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SECTION  1 
INTRODUCTION 


1.1  PURPOSE 

'A  system  of  IBM  370  programs  has  been  developed  for  the  scheduled  maintenance  study 
by  Convair  Aerospace  Division  of  General  Dynamics  for  the  San  Antonio  Air  Materiel 
Area,  Kelly  AFB,  Texas.  This  handbook  provides  information  needed  by  user  personnel 
for  basic  understanding  and  for  executing  each  of  the  computer  programs.  A fleet  of 
150  F-106  aircraft  was  used  to  validate  the  design  of  the  programs  on  the  IBM  370 
(Model  165)  at  Convair  Aerospace,  San  Diego.  The  design  of  the  programs  is  general- 
ized to  cover  all  USAF  aircraft.  . 

t 

1.2  SCOPE  ' 

For  each  of  the  computer  programs,  the  following  information  is  given. 

a.  Purpose  of  the  program. 

b.  Input  Description. 

c.  Sample  Input. 

d.  Procedures. 

e.  Output  Description. 

f.  Sample  Output. 

g.  Output  Size  and  IBM  370  Time. 

h.  Notes  on  Limitations. 

Programs  have  been  written  in  American  National  Standard  COBOL  and  Basic  FORTRAN 
IV  languages.  Section  6 contains  the  computer  source  deck  listings  of  all  the  IBM  370 
computer  programs  together  with  the  job  control  cards  and  sample  data  cards.  To 
achieve  compatibility  with  SAAMA  equipment,  only  the  subset  of  ANS  COBOL  compatible 
with  Version  D COBOL  was  used.  Procediu'es  to  convert  the  IBM  370  programs  into 
the  SAAMA  IBM  360  are  contained  in  Paragraph  1.4. 


To  estimate  computer  time  requirement  on  the  IBM  360  from  the  IBM  370  data,  it 
would  be  realistic  to  assume  a factor  of  three  to  one.  Nine-track,  16 00 -bits -per -inch 
tapes  were  used  on  the  IBM  370.  The  program  and  data  bank  tapes,  part  of  the  con- 
tract end  items  to  be  delivered  to  SAAMA,  are  seven-track  with  800  bits  per  inch. 


In  addition  to  the  functions  performed  by  the  programs  described  in  this  manual,  a 
sort  and  merge  capability  is  also  required.  Since  sort/merge  programs  are  typically 
software  features  supplied  with  operating  systems,  the  relevant  discussions  in  this 
handbook  are  limited  to  descriptions  of  the  sort/merge  control  fields. 

For  a detailed  discussion  of  the  engineering  model  for  the  scheduled  maintenance  study, 
see  the  Phase  I report,  Convair  Aerospace  report  GDCA-AHD7 2-001,  and  the  Phase  n 
report,  GDCA-AHD72-003. 

1.3  MANUAL  ORGANIZATION 

Four  major  categories  of  computer  programs  are  covered  in  this  manual: 

a.  Data  Reduction  Programs  (Section  2). 

b.  Data  Bank  Generation  (Section  3). 

c.  Statistical  Analysis  Programs  (Section  4). 

d.  Effectiveness  and  Cost  Programs  (Section  5). 

Listings  of  all  the  IBM  370  computer  programs  with  job  control  and  sample  data  cards 
are  contained  in  Section  6.  Appropriate  figures  and  tables  are  included  in  the  various 
sections  to  improve  the  understanding  of  the  logic  and  structure  of  the  computer 
programs. 

1.4  CONVERSION  TO  IBM  360 

As  part  of  the  contract  end  items,  computer  programs  and  the  data  bank  are  stored  in 
magnetic  tapes.  FORTRAN  and  COBOL  programs  are  stored  in  separate  reels. 

Data  Bank  was  written  on  two  reels  on  SAAMA  Reel  Numbers  1045  (Reel  1)  and  9490 
(Reel  2).  Tape  was  written  on  seven-track,  800  bpi  with  50  characters  per  record, 
blocked  60  to  a tape  record.  FORTRAN  and  COBOL  source  programs  were  written  on 
SAAMA  Reel  No.  8761  and  10,479,  respectively.  Tape  structure  for  the  program 
tapes  consists  of  80  characters  per  record,  blocked  20  to  a tape  record.  There  are 
about  4000  cards  for  the  FORTRAN  programs  and  about  14, 000  cards  for  the  COBOL 
programs. 

For  the  convenience  of  the  users,  some  modifications  were  made  on  the  IBM  37  0 
COBOL  programs  before  they  were  copied  onto  the  previously  mentioned  tapes: 

a.  Removal  of  the  'sync'  in  the  Data  Division. 

b.  Replace  GOBACK  with  STOP  RUN. 

c.  Carriage  control  character  changed  to  0,  1,  or  blank. 

d.  Program  ID  Statement  change. 
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For  conversion  to  IBM  360  at  SAAMA,  the  user  must: 

a.  Produce  IBM  360  job  control  cards. 

b.  Modify  file-control  in  the  Input-Output  section. 

c.  Generate  input  data  cards. 

The  programs  require  less  than  100,000  bytes  of  core  storage. 
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SECTION  2 


■I 

I i 

DATA  REDUCTION  PROGRAMS  ! 

2.1  GENERAL  DESCRIPTION 

The  purpose  of  the  data  reduction  programs  is  to  reduce  four  data  source  inputs  into 
four  sorted  files,  which  are  used  as  input  to  the  data  bank  generation  programs.  (See 
Section  3.)  The  four  data  sources  consist  of: 


AFM  66-1  maintenance  data. 

AFM  65-110  utilization,  NOR,  and  possessed  hour  data. 

Data  files  for  IRAN  histories. 

Accident,  incident,  and  emergency  unsatisfactory  material  report  histories  (AIE). 

These  data  files  are  referred  to  as  66-1,  65-110,  IRAN,  and  AIE  files,  respectively. 

The  analysis  of  maintenance  policies  requires  that  data  from  the  four  sources  be  proc- 
essed and  combined  into  a single  data  bank,  which  serves  as  input  to  the  various  ana- 
lytical programs.  The  development  of  the  data  bank  requires  screening,  reorganization, 
and  summarization  of  the  data  from  each  of  the  four  sources.  The  data  banic  is  organized 
into  a sorted  file  of  aircraft  serial  number  histories.  For  each  serial  number,  all 
activity  records  for  each  of  the  data  sources  are  summarized  to  statistics  representing 
seven  consecutive  days.  These  seven-day  periods  are  referred  to  as  ’’weeks,  ” although 
they  do  not  correspond  to  any  particular  calendar  week.  To  obtain  the  desired  data 
organization  in  the  data  bank,  the  input  from  each  of  the  four  data  sources  must  be 
sorted  into  ascending  serial  number  sequence  and  into  chronological  order  within  each 
serial  number.  Table  2-1  contains  first  and  last  day  numbers,  with  the  corresponding 
calendar  dates,  for  each  of  the  week  numbers  used  for  this  study.  January  1,  1965 
is  the  first  day  number  for  the  week  number  one. 

In  addition  to  the  required  data,  the  66-1  and  65-110  files  contain  data  that  is  not  rele- 
vant to  this  stu(^.  Consequently,  these  data  files  mxist  be  screened  to  eliminate  the 
extraneous  records.  Furthermore,  for  various  reasons,  certain  aircraft  serial  num- 
bers are  excluded  from  the  data  base.  The  screening  programs  for  the  66-1,  65-110, 
and  AIE  files  eliminate  these  serial  numbers.  Finally,  the  66-1  file  may  contain  diQ)- 
licate  records,  and  after  the  66-1  data  has  been  screened,  sorted,  and  merged  into  a 
single  ordered  file,  adjacent  records  must  be  compared  to  eliminate  the  dl^)llcates. 

The  source  data  tapes  for  66-1  and  65-110  are  shown  in  Tables  2-2  and  2-3,  respec- 
tively. 
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Table  2-1.  Conversion  Table  for  Week  Number 
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68 

82 

569 

18 

.M  Y 

66 

b7j 

24  JLY 

c6  ^./l 

1 bV  / 

2b 

Ul 

6 8 

4tf  3 

3 

NOV 

eH 

b71 

23 

.11  Y 

66 

577 

31  JLY 

06  2 

'2 

16s.' 4 

6 

NUV 

68 

4lV 

10 

NOV 

6E 

84 

578 

1 

584 

7 AUG 

66 

1611 

11 

Nov 

6 J 

417 

17 

NuV 

6E 

%5 

b85 

8 

AHO 

66 

5<Jl 

14  AUG 

66  2 

v6 

I6l3 

18 

NuV 

68 

426 

24 

NUV 

6H 

86 

592 

15 

AOG 

60 

59b 

21  AUG 

66  2 

ib 

i62b 

25 

NOV 

OH 

431 

1 

LFL 

68 

87 

599 

22 

A0(* 

00 

6C5 

28  AOG 

66  2J6 

143< 

2 

OLC 

68 

638 

a 

CFL 

68 

SKI 

29 

AOG 

66 

612 

4 SfP 

66  ^ 

« 7 

1636 

9 

OcL 

68 

445 

15 

i;f(. 

6F 

89 

5 

SfP 

66 

619 

11  SEP 

66  4. 

08 

1 661# 

16 

UcL 

6d 

452 

22 

IfC 

6F 

90 

62w 

12 

3tP 
>1  P 

60 

62o 

18  StP 

o6  2 Jy 

I6bb 

23 

UtL 

68 

659 

29 

i;m 

68 

91 

627 

19 

63i 

25  SrP 

66  21  . 

166\ 

K. 

o8 

■*oo 

5 

JAN 

65 

92 

634 

26 

S(  P 

K,-. 

64i 

2 on 

66  2li 

o 

j&N 

o9 

673 

12 

(AN 

.e 

93 

641 

i 

oci 

66 

64  7 

9 UC7 

66  212 

1476 

1 3 

JAN 

69 

48C 

19 

JA.N 

t s 

94 

648 

10 

nr  I 

66 

654 

16  OCI 

66  2 

13 

1461 

JA  4 

09 

687 

26 

JAN 

69 

95 

655 

7 

nr7 

66 

66l 

23  UCI 

66  2 

14 

l6b8 

27 

JAN 

69 

696 

2 

HP 

<•9 

96 

662 

24 

nc7 

66 

668 

30  0C7 

66  21b 

1695 

3 

FLb 

09 

5,  1 

9 

FI  It 

69 

97 

669 

31 

oa 

66 

675 

6 NOV 

66  216 

15C< 

FEH 

69 

bs'o 

16 

Ftp 

rS 

98 

7 

NOV 

66 

682 

13  NUV 

66  247 

66  ^8 

1509 

1 r 

Ft6 

515 

23 

tFB 

6S 

99 

683 

14 

NOV 

66 

689 

20  NOV 

lbl6 

26 

FHi 

09 

52? 

2 

MAK 

6S 

690 

21 

NOV 

66 

o96 

lU 

27  NuV 

66  219 

1523 

3 

MAk 

69 

529 

9 

MAK 

65 

01 

697 

2H 

luiv 

4 VEC 

66  220 

153i: 

h 

MAK 

69 

5 36 

16 

MAK 

6<- 

1 Q7 

704 

5 

CfC 

66 

11  Dec 

66  221 

lb37 

1 7 

MAK 

o9 

563 

23 

KaK 

69 

^$3 

711 

2 

OFC 

66 

717 

18  OEC 

66  222 

1 b64 

24 

KAK 

69 

5bs’ 

n 

KAK 

A*- 

718 

19 

r.FG 

66 

724 

25  CEC 

66  223 

1551 

31 

MAH 

69 

557 

APK 

ts 

105 

725 

26 

OFC 

66 

731 

1 JAN 

67  224 

i558 

7 

APK 

69 

566 

13 

APh 

69 

732 

2 

.(AN 

67 

738 

8 JAN 

67 

1565 

(4 

APh 

69 

571 

APK 

6S 

.07 

739 

9 

JAN 

67 

745 

15  JAN 

67  2 

26 

1572 

21 

APK 

o9 

57t 

27 

APK 

69 

i08 

746 

16 

JAN 

67 

752 

22  JAN 

67  227 

1579 

28 

APh 

69 

585 

6 

MAY 

69 

^3 

h 

.(AN 

67 

759 

29  JAN 

67  228 

1586 

b 

MAY 

69 

592 

11 

HAY 

t>9 

760 

30 

JAN 

67 

766 

5 FEP 

67  229 

1593 

1< 

MAY 

69 

•>99 

18 

MAY 

69 

1 1 1 

767 

6 

Ff8 

67 

773 

12  FE8 

67  23C. 

1 6VU 

i9 

MAY 

69 

c «o 

<•< 

MAY 

69 

1 t M 

774 

FF8 

67 

780 

19  FEB 

07  231 

lot  7 

2o 

KAY 

ftp 

t 13 

1 

JUN 

69 

Hi 

781 

20 

FF8 

67 

787 

2t  FE8 

67  232 

1616 

2 

JJN 

69 

62" 

6 

JUN 

69 

788 

27 

FFH 

67 

794 

5 MAR 

67  233 

1621 

y 

JUt« 

69 

6<7 

15 

JON 

69 

115 

79  5 

MAK 

67 

80 1 

12  MAf 

67  234 

1628 

It 

JJN 

69 

636 

22 

JUN 

f S 

116 

802 

13 

MAN 

67 

8C8 

19  MAR 

35 

1635 

23 

JuN 

69 

661 

29 

JUN 

69 

809 

MAK 

67 

eib 

26  MAK 

67  236 

1662 

JUN 

6 9 

06H 

6 

JLY 

69 

118 

8l6 

27 

MAN 

67 

822 

2 APR 

67  237 

1669 

7 

Ji  V 

69 

6S5 

1 .i 

Jl  Y 

69 

il9 

823 

3 

APK 

67 

829 

9 APK 

67  238 

l656 

14 

JLY 

69 

662 

2'J 

JIY 

69 
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Table  2-1,  Conversion  Table  for  Week  Number,  Continued 


239 

240 

242 

243 

244 

245 
240 
247 
24S 
24^9 

250 

251 

252 

253 

254 

255 
25o 

257 

258 

259 
2o0 
261 
262 

263 

264 
245 
266 
267 

260 
269 
2 7u 
271 
2 72 
<73 
2 74 

275 

276 

277 

278 

279 


f IhST-JjAV 
lo63 
1 o7o 
1677 
1684 
1691 
lo98 
1 7^^5 
1712 

1719 

1720 

1733 
1 740 
174  7 
1754 
1761 
1700 
1775 
1 782 
17*9 
1790 


OATb 

21  JLY  o9 

20  JLY  69 
AUG  oS 

11  AUO  69 
lo  AUO  o9 

25  aUO  o9 
1 Ot**  o9 

0 b ' • oS 
15  5r.  69 

22  o9 

29  09 

6 CCT  69 
13  UCT  69 
2v  CCT  o9 
27  CLT  69 

3 NUV  09 
10  NOV  69 
17  NOV  69 
29  NUV  69 

1 Ltt  69 
b ObC  o9 

15  DEC  69 

22  UEC  69 

29  UtC  69 

5 JAN  Ik' 

12  JAr4  K 
19  JAN  7w 

26  JAN  70 
£ f-tB  7'. 
9 TEB  7w 

lo  i^co  7j 
25  J-cH  7^ 

2 MAK  7<. 
9 MAK  70 

10  MAK  7w 

23  MAK  7U 

30  MAK  70 

6 AMk  70 

13  APK  70 
2*.  APK  7o 

27  AHK  70 

4 MAY  70 

11  hay  Tw 

Id  MAY  7' 

23  HAY  7^ 
I JON  7‘ 
o JON  7, 

13  JUN  7> 
22  OUN  7< 
29  JUN  7v 

6 JLY  71 

13  JLY  7C 
2.  JLY  ?!. 

27  JLY  7.‘ 

3 AJU  7. 
Iv  Auo  7j 
17  AUO  7. 

24  AUO  If 
Jl  AJO  7l 

7 SLP  7n. 

14  P 7^ 

21  StP  7. 

28  5fcP  7-. 

5 oCI  7 


LAST-CAY 

l069 

1676 

16b3 

1690 

1697 

17C4 

1741 

17j.b 

1725 

1752 
1739 
1746 

1753 
176w 
1767 
1779 
1781 
1700 
1795 
180  2 
1009 
1616 
1623 

le3te 

le37 
U44 
1651 
1856 
1865 
1872 
1679 
1006 
lo93 
i9Ct 
190  7 
1914 
1921 
1928 
1935 
1942 
1949 
1956 
T9o3 

197  • 
1977 
1904 
1991 
1998 
5 


LATb 

27  JLY  69 

3 ALG  69 

10  Auo  69 
17  AUC  69 

24  AUG  69 

11  AuO  69 

7 StP  69 

14  ^tP 
21  I P > > 

28  SEP  o9 
5 UCI  69 

12  OCT  69 
19  OCT  69 
26  OCI  69 

2 NOV  69 
9 NUV  69 

16  NUV  69 
2 ^ NU  V 6 9 

30  NOV  69 

7 etc  69 

14  etc  59 

21  uEC  69 

28  CEC  69 

4 JAN  ?w 

11  JAN  7o 

16  JAN  7(. 

25  JAN  7y 
I ftb  7C 

8 f-EB  7C 

15  fit-  7C 

22  EE8  70 

1 MAK  7C 
0 MAh  7C 

15  hak  /c 

22  MAK  7o 

29  MAK  7C 

5 APK  7C 

12  APK  7o 
19  APK  70 
Jo  APK  7C 

3 MAY  ?C 
Iv  HAY  7v 

17  MAY  7U 
24  MAY  7C 

31  MAY  70 
7 JUN  7c 

14  Juri  7c 
21  JUN  7C 
28  JuN  7C 

5 JLY  7t 

12  JLY  7C 

19  JLY  7C 

26  JLY  7t 

2 AUO  7l 

9 AUG  7l 

16  AUO  7C 

23  AUg  7c 

20  AUG  7c 

6 SEP  7C 

13  SEP  7v 


4 OCT  1u 
11  OCI  70 


*cLK  \C« 
Ju3 
3*4 
3J5 
3U6 
3c  7 
3.0 
3J9 
3l  . 

311 

312 

313 
31<» 
315 

3lo 

^i7 

aIo 

31c 

32« 

321 

3^2 

323 

A^4 

3^5 

326 

i£l 

320 

5^9 

3ii. 

oil 

3i2 

333 

i3-* 

M-' 

3. 

337 

330 

339 


19  ULT  7l 
26  CCT  70 

2 NUV  7l 
9 NGV  7u 

lo  NOV  7. 

10  NuV  7 ) 
3^  NUV  7v 

7  etc  7w 

14  LLC  7j 

21  GCC  7^ 

28  etc  7l 

4 JAN  71 

11  JAN  71 
In  JAN  71 

25  JAN  71 
I h£b  71 

6 PEG  71 

15  FLO  71 

22  FEB  71 
1 MAK  71 

0 MAK  71 

15  MAK  71 
22  MAK  71 

29  MAK  71 

5 APK  71 

12  APK  71 
19  APR  71 
2c  APk  71 

3 FAY  71 
1 • MAY  71 
17  MAY  7i 

24  MAY  71 
31  MAY  71 

7 JUN  71 

14  JUN  71 

21  JUN  71 
2ti  JUN  71 

5 JcY  71 

12  JLY  71 
19  JLY  71 

26  JLY  71 
£ AUO  71 
9 AUG  71 

16  AUG  71 

25  AUG  71 
3.  AUG  71 

6 SfcP  7i 
lo  7l 
2.-  5EP  21 

SEP  71 

4 LlT  71 
a CCT  7 1 
10  UCT  7i 
25  OCI  71 

1 NUV  71 
6 NUV  71 

15  NUV  71 

22  NGV  71 
29  MV  71 

6  etc  71 

13  LtL  71 
2U  OlC  71 


25  OCT  7C 

1 NUV  70 

8 NOV  70 

15  NUV  70 

22  NUV  1C 

29  NUV  7C 

6 CEC  Is. 

13  etc  70 

20  CcC  7C 
2 7 OEC  7t 

3 JAN  7 
IL  JAN  71 

17  JAN  71 

24  JAN  7 
31  JAN  71 

7 FEb  71 

14  FEB  71 

21  FES  71 
28  FEe  71 

7  HAK  71 

14  HAk  71 

21  MAR  71 

28  MAK  71 

4 APK  71 
11  APK  71 

18  APK  71 

25  APK  71 

2 MAY  71 

9 MAY  71 

16  MAY  71 

23  MAY  71 

30  MAY  71 
6 JUN  7 . 

13  JUN  71 

20  JUN  71 

27  JUN  71 

4 JLY  71 

11  JLY  71 
lb  JLY  71 

25  JLY  71 
1 AUC  71 

6 AUO  71 

15  AUC  71 

22  AUG  71 

29  AuC  71 

5 SEP  71 

12  SEP  71 
.9  |hP‘7 

26  SEP  71 

3 OC  r 7 

u nci  71 

17  uCT  7 
OCI  71 

31  OCT  71 

7 NuV  71 

14  NUV  71 

21  NOV  71 

28  NuV  71 
5 LtC  71 

12  Ctr  71 

19  LLC  71 
26  CtL  71 


Table  2-2. 


AFM  66-1  Source 
Data  Tapes 


Tapes  With  AFLC  Numbers 


The  IRAN  file  is  created  by  an  IRAN  data 
preprocessor  that  combines  aircraft  accept- 
ance date  data  and  IRAN  event  data,  and  that 
also  calculates  IRAN  interval  data  by 
relating  information  from  pairs  of  con- 
secutive IRAN  event  records.  Prior  to 
executing  the  IRAN  preprocessing  program, 
the  acceptance  date  data  and  the  IRAN  event 
data  must  be  screened  to  eliminate  the 
excluded  aircraft  serial  numbers . These 
two  data  s ources  are  then  sorted  by  serial 
number  and  (for  the  IRAN  event  data)  by 
calendar  date. 

The  A IE  data  file  is  also  created  by  com- 
bining data  from  two  sources.  Accident  and 
incident  data  is  supplied  on  magnetic  tape, 
while  the  EUMR  data  is  obtained  from  a 
separate  source  on  cards.  Both  data  sources 
must  be  screened  to  eliminate  the  excluded 
serial  numbers  and  the  card  records  must 
be  reformatted  to  match  the  format  of  the 
tape  data.  The  two  files  are  then  sorted  and 
merged  to  produce  the  ALE  file  used  as  input 
to  the  data  bank. 

Details  of  data  reduction/file  generation 
processes  for  the  66-1,  65-110,  AIE,  and 
IRAN  files  are  contained  in  Paragraphs 
2.2,  2.3,  2.4,  and  2.5,  respectively. 

2.2  AFM  66-1  FILE  GENERATION 


Since  the  AFM  66-1  file  contains  maintenance 
data  that  is  not  relevant  to  the  present 
maintenance  study,  these  extraneous  data 
records  must  be  screened  out.  Following 

the  screening  of  each  individual  tape,  the  data  is  sorted  into  an  ordered  sequence,  tlien 
merged  with  other  AFM  66-1  screened  and  sorted  tapes.  Experience  has  shown  that 
many  records  within  the  composite  file  are  duplicates;  these  are  eliminated.  Finally, 
only  data  for  a specified  set  of  aircraft  serial  numbers  is  required  for  the  data  bank. 
These  records  are  copied  to  form  the  final  66-1  file.  The  logic  flow  for  these  programs 
is  shown  in  Figure  2-1. 


71 

8417 

14196 

520 

8977 

14374 

706 

9164 

15985 

781 

9244 

16750 

867 

9610 

16916 

962 

10681 

18685 

1210 

11767 

19257 

1641 

11961 

19643 

1841 

12370 

20449 

5345 

13255 

20720 

6265 

13423 

20782 

7036 

13836 

20790 

7728 

14124 

70333 

8077 

14175 

Tapes  With  KAFB  Numbers 

7499 

18988 

Table  2-3. 

AFM  65-110  Source 

Data  Tapes  (AFLC 

Numbers) 

90149 

93094 

93568 

90154 

93191 

93614 

90167 

93371 

93619 

90275 

93418 

93784 

90288 

93502 

93844 

93041 

93517 

93859 

93054 

93536 

93910 
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Figure  2-1.  Logic  Flow  of  AFM  66-1  File  Generation 


2.2.1  AFM  66-1  SCREEN 

2. 2. 1.1  Purpose . This  program,  written  in  COBOL,  screens  the  AFM  66-1  data 
tapes  to  eliminate  unnecessary  and  unacceptable  records  and  writes  acceptable  records 
on  magnetic  tape  for  further  processing. 

2. 2. 1.2  Input  Data  and  Procedures.  The  program,  a sample  of  card  data  input,  and 
the  associated  job  control  language  (JCL)  for  use  on  the  IBM  370  are  listed  in  Paragraph 

6.1.1. 

Input  to  the  program  consists  of  the  raw  AFM  66-1  tape  and  a deck  of  cards  containing 
the  screening  criteria.  Record  layouts  for  the  input  on  AFM  66-1  tapes  are  shown  in 
Figure  2-2.  The  tape  consists  of  90-character  data  records,  blocked  30  to  a tape 
record.  The  screening  criteria  card  data  consists  of  a deck  containing  (in  order)  the 
data  listed  on  the  following  page. 


I 


1 

j 


Card 

Column 

Description 

a 

1-4 

Acceptable  Aircraft  Mission  and  Design 

b 

1 

Acceptable  Identification 

c 

1-2 

Number  of  Rejected  Aircraft 

d 

1-8 

Rejected  Aircraft  Serial  Numbers 
(Number  of  Cards  Set  by  Card  c) 

e 

1-8 

Lowest  Acceptable  Serial  Number 

f 

1-8 

Hipest  Acceptable  Serial  Number 

g 

1-2 

Number  of  Rejected  How- 
Malfunction  Codes 

h 

1-3 

Rejected  How-Malfunction  Codes 
(Number  of  Cards  Set  by  Card  g) 

i 

1-2 

Number  of  Rejected  Action-Taken  Codes 

j 

1 

Rejected  Action-Taken  Codes 
(Number  of  Cards  Set  by  Card  i) 

The  program  first  opens  the  input  and  output  files,  reads  and  stores  the  screening 
data,  then  reads  the  first  AFM  66-1  data  record  and  checks  for  an  acceptable  Mission 
and  Design  designation,  a numeric  How- Malfunction  code,  a valid  numeric  date,  and  a 
non-blank  serial  number.  Then  the  record  is  checked  for  unacceptable  How-Malfunction 
code  and  Action-Taken  code,  and  the  serial  number  is  checked  for  a full  complement  of 
eight  digits.  In  seven-digit  numbers,  an  additional  zero  is  inserted  after  the  second 
digit. 

After  confirming  the  presence  of  eight  digits,  the  serial  number  is  checked  against  the 
highest  and  lowest  acceptable  serial  number  and  the  list  of  unacceptable  serial  numbers 
for  appropriate  action.  Finally  the  day  number  is  computed,  using  1 January  1965  as 
Day  1,  and  inserted  into  Columns  86  through  89  of  the  record.  The  verified  record  is 
then  written  on  an  output  file  and  the  process  repeated  with  the  next  input  record. 

When  the  last  input  record  is  screened,  the  remainder  of  the  tape  record  is  filled  by 
nines  and  the  input  and  output  files  are  closed. 

Figure  2-3  shows  the  screening  criteria  used  in  the  F-106  Scheduled  Maintenance 
Stutfy.  The  program  is  suitable  for  use  with  all  AFM  66-1  data  files  for  any  USAF  air- 
craft (with  the  following  limitations). 


a. 

Rejected  Aircraft  Serial  Numbers 

25  Maximum 

b. 

Rejected  How-Malfunction  Codes 

8 Maximum 

1 

c. 

Rejected  Action-Taken  Codes 

6 Maximum 

1 

1 
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Figure  2-2.  AFM  66-1  Tape  Record  Layouts  (Sheet  1 of  2) 


Figure  2-2.  AFM  66-1  Tape  Record  Layouts  (Sheet  2 of  2) 


Figure  2-3.  Sample  Input  — AFM  66-1  Screening  Criteria 

2-9 


2. 2. 1.3  Output  Description.  The  sample  output,  Figure  2-4,  shows  the  same  format 
as  the  AFM  66-1  data  tapes,  with  the  addition  of  the  day  number  in  Columns  86  through 
89. 


Experience  with  F-106  AFM  66-1  data  tapes  on  the  IBM  370  using  9-track,  1600  bpi 
tape  drives  indicates  a yield  of  some  30, 000  acceptable  records  from  a total  of  about 
twice  that  number  from  each  input  tape.  The  screening  process  typically  requires 
five  to  ten  minutes  of  elapsed  computer  time.  Without  exception,  a single  reel  of 
input  was  screened  onto  a single  reel  of  output  tape. 

2.2.2  AFM  66-1  SORT 

2. 2. 2.1  Purpose . This  IBM  utility  program  sorts  the  screened  AFM  66-1  data  tape 
into  an  ordered  file. 

2. 2. 2. 2 Input  Data  and  Procedures.  The  JCL  control  cards  for  the  IBM  utility  program 
and  a sample  of  card  data  input  for  use  on  the  IBM  370  are  shown  in  Paragraph  6.1.2. 
The  input  consists  of  card  data  defining  the  sort  fields,  sort  characteristics,  and  the 
screened  AFM  66-1  data  tape.  The  sort  fields  are  all  defined  as  character  fields  in 
ascending  order  and  are  shown  in  the  following  list  in  order  of  hierarchy. 


Field  Column 


Description 


1 

2 

3 

4 

5 

6 
7 


15-22  Serial  Number 

86-89  Day  Number 

46-50  Work  Unit  Code 

53-55  How-Malfunction  Code 

51-52  Action-Taken  and  When -Discovered  Code 

56-84  * 

23-45  * 


* Fields  6 and  7 are  necessary  to  ensure  that  any  diq)licated  records 
will  be  placed  in  adjacent  order  in  the  output  file. 

2. 2. 2. 3 Output  Description.  The  sample  output.  Figure  2-5,  shows  the  same  format 
as  the  screened  output:  90-character  data  record,  blocked  30  to  a tape  record. 


Experience  with  the  sorting  of  screened  F-106  AFM  66-1  tapes  on  the  IBM  370  using 
9-track,  1600  bpi  tape  drives,  typically  required  three  to  five  minutes  of  elapsed 
computer  time. 


TOO 


>.  M ^ M 4-^A00''-O0  4 

.A  ■^  ^ \ ^ \ > 3 o A ^ ^ .*v  n A A AJ*  o ^ ^ 

t-rttrft^t^t^-rttr^t^ttttt-r-r-trrt 
i 4 i i 4 4''*  4 4 * 4 i i 4 4 i 4 ^ 4 4 4 4 4 4 4 4 4 4 4 4 

,^^44^4^M44'4MM4^4-i44^444-4~4^^^M^ 
k kkk  k k t.  k-k  k k k k k k k k k k kk  kkkk>kkkkkk 

an  ^ a anna  aaaaoaajaaa.aaj 

awaaoaoa»ujaa)>r>>>>>a<— 
aaaa^aac  iaj^^>^>ajija  »t>a/jr  >/ 
aaaaaaa-^  itf-*'-  - >•' 

a laaaaa-*  44  j^a^a^jaaia 

joa  jaoac 

ajaa  aaai  j\,\-.  * z \.  jj  j j'aa  3«  rjfz 


o.A.»aA.aa\Aa.»A>  ^aaaoaaaaa  \ aa  \ •»  \ > 
t-t-f^-ttttttrtttrrttttttr-ttftttr 

>4  4"4  4444444444  -4  4444414444444444 
444M~4^-4M-4-*~4M-4M4-4'4M-m  4 

a >‘aa->aamaaaaaa‘aa->aa'^'^-»aa'7aaa  » 

kkkkkkkkkkkLkkkkkkCkkkkkkk^kkkk 

naaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

aaa^aaaanaaaaaaaja-jjaanaaaaaaa 


<.«.oooaaoo>>*« 


a .\  A a a # ^ a A .a 

4>4  4 4 4 4 4 4 4 4 4 


anannaa  a'aa'aa*>a 

kk  kkk-k  kkkkkkkk 


anaaaaaaa  jn a aa^oaaa aj ao 


auaa-aCC(;«fkkAaoo«ddxa'‘a^<jaijaj 
jjjaaaaA?a^^ja-«tjaata«a>aaaa>j 
>J  4^a  % 'i  -4  J l>  4 4 ^“4  f‘  ^ i Jkkk'k'kkk. 

II  >»aai4a 

aoaoaaoaaa  i^.^-^aaaa  i^aaasaaooa 
aaaiaaaaakisaaakkvk  ^ajk^ja  sa  a 3 


--*aa  > > ap  >t-**^aa 
a o > A ' A ^ * a > > a a 
aartfiT*  ?*rkaa 


ajjaaaajaaaajaaaaajjaajaaaaaaa  aaaaaaaaaaaj>aj>)a>aa)>aaaa>a>  aaaaaaaaaaaaaa 


kkkkkkkkkkkwkkkkXkkkkkkkkkkkkk 
»»»>>>«>»  »»'>»>>»»> 
aaaa-aaaaaaaanaaaa-aaT  >-iiaaaaaaa 
jjjtyjsjtytjifjjjjjjjjjjjjjj^j 
Aoa*o^«*aa3^oaaa>Ja3/J4aa^;Joa«aJa 
■ijjay  laa^  l•<aaa^^••a•^JaJ^-l'>--<<aa  t 
jpp  aaaa  a^pp'-j  aaajaajao  j aa  aa  a -« a 
aa;«3aajjaaaaaaaaaaa.aajaaaajaa3 

~4-4-44JJ^^J-^^^.4‘^44  4-40  4M’^J-^^-4-44  4 4 

aaaaaaaaaaaaajaaaaajaaaaaajaaa 
1 A.i  a A I a a a ^ ^ ^ -'«•  n a a a a a a a a a.'*  >•  '«. 

1 a a A 1 I ■>  A A A A A .a  > A ^ ^ a a 3 o A > ^ 4 > -j  44 

£ 4 £ < ^ y 1 laa  / a > ona  jpka  laaa 

k\.kk*'W».kJ-j>-fcWk  la^v^-tkk^.kki^^^ 
044MOJ^M34^JM40i  4 \ J 4 4 4 J ^ 4 

oajJ-33pajjaaaj  54  > - jtjv-  ^k-<^.jiki 
;*..kwk.t  tai!  iapat^  : t j ^ x jj-jx  x x '•  *. 
rTtrrrf4.r4-4rtr'*-'^fTTtrr-t  it  t 4 1 1 r 

•kkk’k  k k>.k.,k-kk..>-'k'k  ^fkk.  ki-k  k-k  k k ^fk  k k.k  k k 

4^-4  4 4 -4  -4^  -4  4 M -4  4-4‘^-44  4-4-4  4-4-4  •4-4  4 4 4 4 4 

ajjaajajjaaaaajjjjaaa  laaaaaaaj 
a-4-j-«  f f ^ 1 g T a a A 

JJll  I i 4 4 4 4 4 4 4 4 4 4 4 -4  4 4-4  j.j  |^gg-« 

r z : i i f s : z i.z^  z.^z  t z-zz  "•  .* zz z z 2 

kLkkkUk4.kkkLkkkLkkkkkkkkkkkkkk 

A‘\A'>A-»'\a/>AAaaaao7‘>3'/*>aj3aj'aaoa 
anaapja^'iaa  1 1 1 igaaaa 

•<-^-i-‘-«-«-^aag'*aaajiajaapaaaaa  11  g 4 
aaaJJaaaaaaaaaajjaaaaa  paaaaaa  ■> 
^jjajjjaaaaoaaaoaoaoa^soaaaaaa 

aaaaj  ^ ^aaaa  pappjaaaa  Jjaaajaaaa 

g'lgiiggjiig  iijggiggg  Jiwi  li'igii 
gg-igggg  4-ig-4ga«4^-g-4 

gig<liij*li|jl4gjgljlj|jj|gig| 

aaaJ  >a  Ja  pj  jaaj  j jj 3Jjj  aaaaj  aaaa 


bkktkkkkkkkUWkkkkkkUkkkkkkkkLk 
>>>  »>>>>>> 
naaaaaanaa  aaaana  >a~>  > aa  >aa  aa  aa 
aaaaaaaiajji/iaiaaaa  *jaa>  ;aaa  > 
oaa-rcai^on  >5300 a i^oo  graa3aaaaa 
a-faaaaa-^a  gaoar  g'»aj/>^3  - 1 «aa>.a  4 

ja'aaaajaaaaaaaaaa^aaaaaaaai^aoj 

> 3:*aaaaaaaaa  aa  3aaaaaaa3  >aa  3 aa> 
'•'-'•'•'•'•-••>a>aa'-««3>-«gA  laigiiiig  < 
ig  Ilia  la  / - g iaaooaA>-*^’^>*'**>*‘A> 

ggg«4>>ja>g-.jga..  3a'>i'«aaaaoaaao 
naaj  4 i j 3akkk.kXkaai.kak>*3aa-a3  '“>a 
k4k^^kkk44k|  3J444kJ<:»3  akkkkkVwk 
444-*k444-4k^)44g44k^3tk«ia-*l^'*^« 
4,k^\.ojakaaac3icga4/a3grpak>*r: 
kkkti.  ijj^a3aJaa5ar^jj^a:t;t:i3 
r r t r r 4 4 4 ^ -4-4  4-4  \ f,4"\r44ttrtrrrrr 

kk  k.k.k  .■^■>>-kr^4f^.4kk  4 k.k^  ^kkkkkkkk 

'4a.4-«-i4-«4-4-^g4g-^4-4'^4^^g  4444444  *4 

A >* 

aaaaaaa  laaaaaaaaaaaaaaaaaaaaa  i 

t tt  'iaa»aa'-44f^  a*^  a ■«•  k .%  5 .\  k ■»  •^  > .\  a 5 > 
|lllllll'l|l|-l|g||||g||j||||ljg 

Z ZZZ  Z Z Z Z ^ !ZZZZZZ!ZZZZZZ^  z z z z z z z 

kkkkkkkCkXkkkkkkkkkkkkkCkkkkCk 
,’k«k.k >••ko^oaAA'«Aoa^J«oOJ^A>  aaaaa  a a 
333  5a-4-^-«-ga-g^a4gg4^^1^^g*>3  >3  ) 33 

I iiiiajaaa-aa'^^aaaaaaaaajaaJaaa 
aa3aaaaaa3aa3aa3aaaaa  aaaa  aaaaa 
3 jaaaooaaajaaaaaaaaoa  3aaaaa*iaa 

aaajjaaaaaa^aaaaajaaaaaajaaaaa 

11141114111111411  gillll  I llligj 
a4^-4a444-«4-4-«>4-44-«^|444  44-4*«4  <4 
4 '4'*!  4ll<l4ll4<ll41ll4l*lll|4l4i 

JJJjaaaaaaajaaaajjaaa  jjjaaaa  aa 


kkkkkkLkWkkl 
>>>>  »>>»  »>  »J 

>a  aaaaaaaaa- 
aaa  laiaa/za- 
pajao53  >aaa- 

a-^^ajgsaaa^ 
aapk/  >aaa.»aa. 
.aaaaaa  >->aaa. 

44^44-44*^^  a* 


i«4aa3aaa<«ii 
> t > A > y 

aao4ii4iid)kC 
aj-3  in  a I ipaaa- 

кк, .V.V‘.  t.Lk'4<» 

a3a:i>«3:3a« 
aaj^w^wtaa:  ii 
arfj4^«4if/^ri 
• V » > 3 3 > ••  kkk 

» > .»  N /*  > > K > i 

aaajjaijgaaa. 

3 ti'rti'rffA3k- 
I44I4II4I-4-4J. 

kkkUUkuCkkCkI 

3 a o aa  aao  o j '«  3 ( 

334414444  3 30' 
aaaoaaaaaaa4. 
>aaa>jaaaa>>; 
ooojaaaaaaaa.: 

X X % t l l X X XX  t l •■ 

ааа. ajaaaaaaa. 

4 J 4 i 4 I I I 4 I I 4 > 
444  4 144444  4 t* 
I I 4 4 -41/444 
laaaaaajijii. 


..A  3 A 33. 3 3 • •.toaaaoAAAA.  aaog«.wac  a 

naa>aa334ja44443i«444443.4i4  » la  • 
'4444.444aa44)>4aiaa.aaaaaaaa4  i 44 

aaa  ajpaaaaaiaaa  laa^naa  aaaaaaa^ 
apaJaaaaaaaaaaaaa  iaa')a3aa^ajaa 

►>>  -4  ■• 

A .3  A-3  A A A A .3  A A 3 .3  A A A A 3 A » 3 3 3 .3  A A A A 3 A 


ca  ‘•'^'•••'•a4/ak4»>»*344AAao..r'a‘Aaaaa3)4  jaooat45/^’'»i 

Al  33333444444^44444443444)  •>)3t\)  )A44  «44Jj3l444 

14  4i«i4aaaaaaa4a.>aaaaaar«a^aaaaaa  iaaaa4aaaaj-*aj 
a^  aaoaaaaaaaaaaaaaapjaaaaaaa^aaa  aaa:>a^ak>aaaAJa 
aa  aaoaaaaaoaaaaao  aao  .laaaaaaaaaaa  aaaaaaoa.aiaaaa 
a a a aaajaa^aaaaaaaaaaaiaaaa  aaaaaaiT^aaaJi 

3 A A •*  3 3 3 3 3 3 t A .3  3 » A 3 3 3 A 3 *)  A A A i3  A A 3 .1  3 3 3 .)  A 3 ')  « 3 *3  > A 3 A 3 


tX<X'tXXXiXXXXXXX<<itiXXX<tXtXX  ItXZXiiXltXiti 

oooaaoaaaoaoooo^aaooaoaooooo.co  oa«-ooooaaa4oaoc-.jaaaaaaocoaao«o  ooovatooaaoako 

aaaaaa^aaaaaaaaaaaaaJaaaaaaaa^  a aaaa  a3jaa-»aa  >a>ja  aajaaaaaaaaa  a aaaa^  > j aa  aa^  a 

44«44^44*4  •4>4«4  ^*4  4 4 4«4«4  4 -4  .H  -4«g  ^M4-4  4 4 4-4-4 -4  4^4-4  4-4-4  4-4  4 -4-4  4 4 4-4  4-4-4^  4 4-4-44  -4-^444444  44444  4 

kkXJ>kkkkk<kkkXklkkULkkk  klkkklk'ktku.  k k X klklLxk-kX  kXX  kXk>kXX4.X  kkkk.kkkLkkkik  ka.J.kkkk4.kkkkkk 
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Figure  2-4.  Sample  Output  — AFM  66-1  Screening  Program 


CNi  o w'^o  bO<«lr.wL  <>i«owvOC  k^uoowuw  FAOt  UOl 


>*.  ‘>4}900dpa«d0<d^00ddd06d0-d4'd000  P« 

rttTt-rrrtt-tr^rtfrr^-ttt^tttrt*^  JttTT  rtttT^ 

*444»4444M'4444444444i44^4444iM  44444444 '4  4^^ 

«>  ) d 44  4444>«-44434  44^  44« 

*>  '>'»“»  >*»*>* 

ft<tt<t<t<4«<it<«<«t;tf('«(t<st 

U.X  ^'4.4.  Ju  i.  ^ J. 

333  333334333333  33 33 333  33333  3 30  303333  3 333  3 

4 'in  J£JJ4333r3P’C<rrru.  333034X433  0333‘«443>«P 

*331  3 3 3.1.>>*?  3 3 3 3C  £2  V 33  3 33X  .A  3 3 .3  .^  A A 3 3 0 *•  3 3 
/.  h ^ > >f4'i.  4 H 3 3 3-4  4<4  4H3  3-4  -4^4  4 4.’>*  4 4'»'^'“>‘3  >3333 

4M43.3  434333JJJ433333J3.03<33333  J33  30  33J3J3 

3'*  4 4 4 4 4r^trffffftfrtfftrfT^'*^  '»ooA3i«’^aA  4 4 _ _ 

.*tiW33..k.4.VV331 


I 4 4<4  4^  4 4333330 


•33*»3*»*»3  333  3*>  3 33  3333331333  33333 


A A.3  A 3 A ^ A.*  A A^ 


3JJ33JJ  3433J  i 433333  >33433^434  > 33  03  3033>3^333: 


33  3 333  3 3J  3333333333  33333333J33 

3JJ«CC3CCSC^3':«t«3£CS3jC3333S3 
X'<'<3J333333333J33J333J3  33  3 33  33 
34AA33>3330330333333P030PP3033 
3433f43  43^  4333  1444443333333  >4,3 
333  3333333^3333333333333333333 
33333v333333./3  ^>333333>3333i33 
444  44  44  4 > 444  440444^-4  4444444444 

3 3 333n3J3 30  3333333333  >33333333 
033’41  *4  4303  1^^A3••1A4.  1A3A 

333 -.lO^  033  »0  0 33’*0  30^03t/^>>>3» 
333  430433  3-^  ‘I-*  44331  1 44  40033303  1 
3 333  3 33  3 3 J>3*.4.L5.>3i34,k33  3333  3 3 
333  JC.^3i.  >3-^kt.>^  JJ,te,.\.\.Jl.VJ3\.j;^ 

3 3—  44,-|4^0'544;0344  -<44  4444444404 
>34l.*-0?33  4>3kL.03U3^0CJ<<J*J440 
444  :-;t>j4<w;t<<3X.i<>aj<'o<<^<  «< 

4 / ttrr^trr  ir 

4444  4 444444  44  44444  44  4444444  444 
.•'AAAA>>'A33>  >3J  >03  JJJJ3333J33J3 
>133>3  334  4-4  44444  4 44  4444  44  4444  4 
lr-rA>AAA4444444J4  44344-<  4 4 4 4 4 f T 

4 4 4 4 4 4 4 .<3333333333'>>3333333  >33 

rZjT^tXi^X.?  rS3.*t3£iX*  *Z3T'3^' 
XULkL4.kLLt.kki.kk4.ULkX4.i.t.k4.ki.k*.i. 
3333J33333J  >3-3  >3  >3333333333  333 
AAA11A1A3A3A3A13'1A3MA1A311A1A'1 
4 4 4 i 4 4 4 4 4 4 4 4 4 4 4 4 4-4 

3 0 3 3 03  j'3  C a’o  03030  3 3 33330033  3 
xttxt-:t<<<4xxxtxtttts(x4x<<x4x 
3J03vJ>3i3C>5.>333333333333>JJ33 
JJ4131.13113  I VIA  1-1  11  -l-l  1 A -1  A 3 1 A 1 1 
.11.1  -4444  4 4444  444  444444444444444 
All  Ij  14444  3 J4J  I.J4444 '4  44444444* 


3333333>->3^33033303333333>>333> 

£Stg-ittSSt'2XietrgXStt2tT€€**X£ 
3 3^3333  3^3  33  J4333  33343  >3333333 
3A.1333t3^333.'3333  4>0  30  3>  >0  3 4S3 

•4-4  4f  44r  43-r-rf-T4  444, i 4-4  40A  4 10  i '^-4 

3333  >3  333033>3o3*3  333>433O3>333 
33>333330033>3333333333-0333>33 
•4  4 4<4  44444'443  4 44  4344  4>4  434444>0  4 

•1300  3 3 3 33  1-413  333>33033  4 0 0303  3 3 3 

3i  033«Ui.«.333333  §3  3 3 3 3 L 3 30  300  > > 
C3033  3V3-53^V3  >03343333^3333  >3  > > 
4033  1.-4  4444  430-'>AJ-3  >i.h-43333  3i.L> 

3 3 3 3-4  04X^3x0  3 >3333  4-*  A 10333  444  > 
^4*441lt1>t4‘44.4444444404444444  4 

^■•1A1-f4-4  4^4  411AAAAAirr.1-.-1lAA*>t  1 
'*>3o3-*  >333333330733333333 

4 4444  444-44.4 -4  4 4.4^44-44444  -44.44444 
333>>333.»3333333333>3>>33>0  333 

444444444.4444  4444444  4 4444.44444 

f 1. 100333330  ,.*.*..*  '^3)0J>>44441 

033333  >3  >333333333  3333-4  44  4-14  4. 4 

lX  kXX  uXxCXwuX  HX  LkkLXXkLkkXxXZL 
3033-3  >3>3>3333303333  >3  33033303 
113  3 3 1 A3  AAA31A  13*111  11AA  1 13AAA  1 
> ’7^  ><  4 4^^  4 

303  3v>'3  3 3 0 O 0O.>  3 3 5 A 0 3-1  A 0 3 > 3 3 3A 3 0 

03  3 0>33.3  0>3030033333.>>3>JJ3>33 
3.  13  A1AAAA -1  1111  3 33 '11  3111  113  1111 
4.44^4444444444  44404444  4'4'4  44  44  4 
444444 '4  4-*444t444444444-i444444t 
/*>>  k ,»>*  f»  ,*»/•>.  .’s  > I..-*  K i»  ^ ^ > 0*  A A 


, 009000^-4  4 

'*7*  •»"«.  N>r«r*r^  3 o o 
TtrtTrTt-rrr^tT 
•4  4 4 y4  4 4 4 -4  4 4 4 4 4 4 

0303333033333  3 

i.XtL«,Lt.l.-i.XXJLkl. 
35*533333  3 3333  3 


033  4 4 3333'«  “333 
.1  1 A 1 -1  .1  1 .1  -1  A .1  .1  1 .1 

>33  >33  3>3>  333-0 
3 0 3 30  • 3 3 3 


33333333333333 
tfxic  : £•:  e c 
zrtz<tt£3txixx 
3 30  J 3 33  J > 3 >.> 
333A1>333333>> 
444K04  44  4'*0-“‘“-“ 
3.433 -“3  3 33  3 “334 
0>03>333333333 
.4“4lr444433“““ 

0 33  3 33  3 30  3 3 3 3 3 

3 3 30  30  >33  >30  3 > 

3330>3043>3>33 
3l3  >3430333  >33 
A ' >X 

33O440>j'>  44334 
444444444444<« 
11  M-rr  111177111 
43433. >>J4>33>> 
44444444444444 
33333333403334 
44444  4444  44  444 
11111777777'--- 
44444  4.44444444 

LXwXLCLLk4lui.kl. 
03 333333333330 
11AAA1  111*1  mil 

4 4 4444444444  '4  4 

30  3-1  1-1  3 -3  3 A A 3 3 3 
t i tittttiXtt 
> 33  33  >33  303333 
1AA1A111A1T11A 

4444444444444  4 

44>3>«*i34“*>< 
^ 1*  ;s  ■»  (*  A > j.  > A > 


3>3-»3,1-3>333'*333>3J333J133313>>  D33333>33>>333303*4  04>3J3j>1>3> 

A 1 1 1 A 1 1 A 1 1 .»  A *1  A A A 1 A A 1 •(  A -1  1 '1  .»  M 1 1 A A » 1 1 1 A 1 A A A -1  1 » 1 *1  » 1 1 A 1 A 1 1 A A A A I t 
444  444444  4-  4 i4i4<t4444  4 I44i-i4’444  3 433>733343433433i>4.3334444«3 

330333330303  30  300  **3j'*'^'^0030^33  3 O 30  0 3 .3  3 30-3  ’*0  3’  3 3 3 0-3  3-3  0 

>3^033330  > >3^33303  0 3 303  3300 

A .1  .1  1 .1  1 .1  1.1  1 .1  A -1  » .1  -1  ,1  .1*1  1 1 .1  1 .1  A .1 .1  1 1,1  i1  A .1  .1 .1  .1  A 1.1-1  1 »*.  .1  A 1 .1  1 A 1 1 1 1 .1  1.1  *1  .1  A .1  .. 


.»>1'>J1>>>3>>33 
1AA1A11111'1111 
34'4  4<.3<i>->4>>> 
333*>333>333J.4  > 

33033>3>-»>3  i 3 J 


1 .1  A .1 .1  ■>  ,1  .*•  1-11. 


oiooo^ioi.3^03^'33^******^^^***^  *^^*^^'**^*J****^*^****'Jooio30  'ilJooio^-oiii' 

503333003303  >>313‘3333D33030330  0 00  3?3  3>0033030330333333303333  303J303*3J3j  >.»'^ 

-0-444-44.44044-0  4444404  4404  0 400040  -400  00  4 44-30404  400  4 404  4 0o04  OO  04  4 040004404  444  4 4 

tl^'VJ.LLXXLXJ.XLl.LLi.kXi.i.  kXXXX  i.X  J.  ki.  J.LXLl.kXkXXXXXXXi.  i.XX  L‘ki.J.kXkkXkl.  LXXkLkLkLkkkLk 
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Figure  2-5.  Sample  Output  — AFM  66-1  Sort  Program 


2,2.3  AFM  66-1  MERGE 

2. 2. 3.1  Purpose.  This  IBM  utility  program  merges  the  screened  and  sorted  AFM 
66-1  data  tapes  into  a single  file  of  data. 

2. 2. 3. 2 Input  Data  and  Procedures.  The  JCL  control  cards  for  the  IBM  utility 
program  and  a sample  of  card  data  input  for  use  on  the  IBM  370  are  listed  in  Paragraph 
6.1.3.  The  input  card  data  is  identical  to  that  used  in  the  AFM  66-1  Sort. 

2. 2. 3. 3 Output  Description.  Merging  of  48  F-106  AFM  66-1  screened  and  sorted  tapes 
on  the  IBM  370  using  9-track,  1600  bpi  tape  drives  required  a total  of  eight  merges, 
each  routine  merging  seven  tapes.  In  the  first  step,  seven  screened  and  sorted  tapes 
were  merged  (generally  to  one,  occasionally  to  two  tape  reels).  This  was  repeated  for 
each  group  of  seven  tapes.  These  steps  required  5 to  10  minutes  of  clock  time.  The 
final  step,  merging  these  intermediate  tapes,  required  20  to  30  minutes  of  elapsed 
computer  time,  and  the  file  consisted  of  five  data  tapes.  The  total  file  contained 
approximately  1, 600, 000  records.  The  output  tape  has  90  characters  to  a data  record, 
blocked  30  to  a tape  record  and  has  identical  format  to  that  of  the  AFM  66-1  sort  output 
data  tape. 

2.2.4  AFM  66-1  ELIMINATE  DUPLICATE  RECORDS 

2. 2.4.1  Purpose.  This  COBOL  program  eliminates  duplicate  records  from  the 
screened,  sorted,  and  merged  AFM  66-1  file. 

2. 2.4. 2 Input  Data  and  Procedures.  The  JCL  control  cards  for  use  on  an  IBM  370 
and  the  program  are  listed  in  Paragraph  6.1.4. 

The  input  consists  of  the  screened,  sorted,  and  merged  AFM  66-1  data  tapes.  The 
program  opens  the  input  and  output  files  and  reads  and  stores  the  first  data  record. 

The  next  record  is  then  read  and  compared  to  the  previous  record.  If  all  90  characters 
are  identical,  the  second  record  is  moved  over  the  first,  the  next  record  read,  and  the 
process  repeated.  If  they  are  dissimilar,  the  first  record  is  passed  to  the  output  file 
and  the  second  record  is  stored  for  the  next  comparison.  Upon  detection  of  a series  of 
nines  on  the  input,  the  remainder  of  the  ouiput  block  is  filled  with  nines  and  both  input 
and  output  files  closed. 

2. 2.4. 3 Output  Description.  Screening,  sorting,  and  merging  of  some  1, 600, 000  F-106 
AFM  66-1  records  yielded  over  100, 000  duplicate  records.  The  number  of  duplicated 
records  is  displayed  on  the  computer  console.  The  program  required  30  to  60  minutes 
of  elasped  computer  time,  and  required  four  output  data  tapes.  The  record  layout  and 
the  blocking  factor  are  unchanged  from  the  AFM  66-1  sort. 
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2.2.5  AFM  66-1  COPY  ACCEPTABLE  AIRCRAFT 

2. 2. 5.1  Purpose.  During  the  initial  screening  of  the  AFM  66-1  data  tapes,  records 
for  a specified  set  of  aircraft  serial  numbers  were  deleted.  During  formulation  of  the 
data  bank,  only  data  for  a specific  fleet  of  aircraft  is  necessary.  This  COBOL  program 
writes  these  acceptable  aircraft  records  on  a magnetic  tape  to  form  the  new  AFM  66-1 
file. 

2. 2. 5. 2 Input  Data  and  Procedures.  The  JCL  control  cards,  the  program,  and  a sample 
of  the  card  data  input  are  listed  in  Paragraph  6.1.5.  The  input  consists  of  card  data 
defining  the  acceptable  aircraft  serial  numbers.  The  first  card  defines  the  number  of 
acceptable  serial  numbers,  and  subsequent  cards  define  the  serial  numbers  in  ascending 


sequence. 

Card 

Column 

Description 

a 

1-3 

Number  of  Acceptable  Aircraft 

b 

1-8 

Acceptable  Serial  Numbers 
(ascending  sequence) 

The  complete  list  of  acceptable  aircraft  is  shown  in  Table  2-4  and  a sample  input  to 
this  program  in  Figure  2-6.  The  program  input  and  output  files  are  opened,  and  the 
list  of  acceptable  aircraft  serial  numbers  is  stored  in  the  computer  memory.  The  AFM 
66-1  data  file  is  rbad  and  records  with  an  acceptable  serial  number  are  written  on  the 
output  file.  On  detection  of  the  last  input  record,  the  remainder  of  the  ou^ut  block  is 


T/P  DTOl 


150: 

57000231 

57000232 

57000735 

57000236 

57000237 

57000243 

57000244 

57002455 

57002456 

57007458 

57002459 

57002463 

57002470 

57002473 

57002476 

57007477 

57002482 

5700748? 

57002485 


Table  2-4.  Tall  Numbers  of  Acceptable  Aircraft 

18.23.21  72/073  BLK  CNT  020  LtNGTH  OSO  CONTHUL  2080 

2 3 4 5 4 


t 


i .. 


57C024R6 

57002490 

5700249?. 


2-14 


T/P  OTOl 


57002493 

57002494 

57002406 

57002503 

57002504 

57C02505 

57002508 

57002509 

57002515 

57002517 

57002520 

57002524 

57002527 

57002528 

57002532 

57002533 

57002537 

57002538 

57002540 

57002543 

37002545 

57002546 

58000760 

58000766 

58000767 

5800077? 

5800C773 

58000776 

58000777 

58000778 

53000780 

58000781 

58000783 

58000785 

5P000786 

58000788 

58000792 

58000797 

53000900 

58000901 

58000903 

5800090^ 

5900C002 

59000003 

59000004 

59000005 

59000006 

59000007 

59000008 

59000010 

59000012 

59000015 

59000016 

59000018 

59000019 

59000024 

59000025 

59000026 

59000027 

59000028 

59000030 

59000031 

50000033 

59000035 


'fable  2-4.  Tall  Numbers  of  Acceptable  Aircraft,  Continued 

18.23.21  72/073  BLK  C-MT  020  LENGTH  080  CONTROL 

1 2 3** 4.  .....  ...5 


Z030 


Table  2-4.  Tail  Numbers  of  Acceptable  Aircraft,  Continued 

T/P  OTP?  ?e.?3.2:  72/073  PLK  CMT  020  LfNGTH  0“C  CONTPCl  Z080 


5‘-?00004^ 

'5O000C44 

5^000046 

5P000043 

5<?000051 

5990005? 

59000053 

590C0054 

59000056 

59000057 

5900'^05e 

59000059 

59000060 

59000063 

59000064 

59000065 

59000067 

59000069 

59000072 

5«000074 

59000076 

59000078 

59000050 

590000s:’ 

59000084 

59000085 

59000083 

59000C'=0 

590C0092 

59Q000«>4 

59000095 

59000096 

59000099 


5900C’03 
59000*  04 
50000105 
5°000'’  05 
59000*  09 
59000’  0 
59000'.  ’ 5 
59000’  1 6 
59000! 19 
59000’  26 
590001.27 
5 = 000’  ■’ P 
39U001 30 
5900013? 
59000’ 33 
590001 37 
59000138 
5900G140 
59000’ 41 
SOQOO’ 4’ 

59000*  44 
59000’ 45 
59000146 
590001 47 
59000149 
59000’ 5’ 
59000’ 52 
59000153 
59000155 
59000157 
590001 66 


f 
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Figure  2-6.  Sample  Input  — Acceptable  Aircraft  Program 

filled  with  nines  and  the  input  and  output  files  are  closed.  A count  of  the  number  of 
records  read  and  records  copied  is  displayed  on  the  computer  console . 

The  program  is  suitable  for  use  with  all  screened  and  sorted  AFM  66-1  data  files  for 
any  USAF  aircraft  and  will  handle  a maximum  of  250  serial  numbers. 

2. 2. 5. 3 Output  Description.  The  record  layout  and  the  blocking  factor  are  unchanged 
from  the  AFM  66-1  Sort.  Experience  with  the  AFM  66-1  file  for  the  F-106  on  the  IBM 
370  for  a file  of  approximately  1, 500, 000  records  produced  some  1,  010,  000  records 
that  were  copied  for  the  AFM  66-1  data  bank.  The  program  required  20  to  40  minutes 
of  elapsed  computer  time  and  required  three  output  data  tapes. 

2.3  AFM  65-110  FILE  GENERATION 

The  AFM  65-110  file  contains  data  that  is  not  relevant  to  the  present  maintenance 
study  and  it  is  necessary  to  screen*  out  these  extraneous  data  records.  Following 


♦Because  the  original  65-110  tape  data  is  classified,  certain  fields  were  blanked  out  of 
every  record  to  declassify  the  data.  The  program  required  to  copy  and  eliminate  these 
data  fields  is  not  described  in  this  manual,  nor  was  it  delivered  as  a contract  end  item. 
It  is  assumed  that  the  user  will  have  authorization  to  process  the  65-110  data  without 
declassification. 
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the  screening  process,  the  file  is  sorted  into  an  ordered  sequence,  then  merged  with 
other  similar  AFM  65-110  screened  and  sorted  tapes.  Experience  has  shown  that 
many  of  the  records  are  duplicated;  these  are  removed.  Finally,  only  data  for  a 
specified  set  of  aircraft  serial  numbers  is  required  for  the  data  bank,  and  these 
records  are  copied  to  form  the  final  AFM  65-110  file.  The  logic  flow  for  these 
programs  is  shown  in  Figure  2-7 . 


2.3.1  AFM  65-110  SCREEN 

2. 3. 1.1  Purpose.  This  program,  written  in  COBOL,  screens  the  AFM  65-110  data 
tapes  to  eliminate  unnecessary  and  unacceptable  records  and  writes  acceptable  records 
on  magnetic  tape  for  further  processing. 

2. 3. 1.2  Input  Data  and  Procedures . The  program,  a sample  of  card  data  input,  and 
the  associated  job  control  language  (JCL)  for  use  on  the  IBM  370  are  shown  in  Para- 
graph 6.2.1.  Input  to  the  program  consists  of  the  raw  AFM  65-110  tape  and  a deck 
of  cards  containing  the  screening  criteria.  The  record  layouts  for  the  AFM  65-110 
tape  are  shown  in  Figure  2-8.  The  tape  consists  of  60-character  data  records,  blocked 
50  to  a tape  record.  The  screening  criteria  card  deck  consists  of  a deck  containing, 

in  order,  the  following. 


Card  Column 


Description 


a 1-4 

b 1-2 

c 1-8 


e 1-8 

f 1-8 

g 1 


2-6 


Acceptable  Aircraft  Mission  and  Design 

Number  of  Rejected  Aircraft 

Rejected  Aircraft  Serial  Numbers 
(Number  of  Cards  Set  by  Card  b) 

Lowest  Acceptable  Serial  Number 

Hipest  Acceptable  Serial  Number 

Maintenance  Code  Corresponding  to 
Periodic  Inspection 

Work  Unit  Code  for  Periodic  Inspection 


11  Maintenance  Code  Corresponding  to 

Hourly  Postflight  Inspection 

12-16  Work  Unit  Code  for  Hourly  Postfli^t 

Inspection 


The  program  opens  the  input  and  output  files,  reads  and  stores  the  screening  data,  then 
reads  the  first  AFM  65-110  data  record  and  checks  for  an  acceptable  Mission  and 
Design  designation,  a valid  date,  and  a non-blank  serial  number.  Then  the  serial 
number  is  checked  against  the  highest  and  lowest  acceptable  serial  numbers  and  the 


i 
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list  of  unacceptable  serial  numbers  for 
appropriate  action.  If  the  WUC  field  is 
blank,  the  Maintenance  Code  field  is  tested 
for  a code  corresponding  to  the  Periodic 
Inspection  or  Hourly  Postflight  Inspection 
and  the  appropriate  WUC  entered  into  the 
output  record.  Finally,  the  day  number 
is  computed  using  1 January  1965  as  day 
number  1 and  inserted  into  Columns  49 
through  52  of  the  output  record.  Upon 
screening  of  the  last  input  record,  the 
remainder  of  the  life  record  is  filled  by 
nines  and  the  input  and  output  files  closed. 
Figure  2-9  shows  the  screening  criteria 
used  in  the  F-106  Scheduled  Maintenance 
Study. 

The  program  is  suitable  for  use  with  all 
USAF  aircraft  witli  the  following  program 
dimension  limitation:  a maximum  of  25 
rejected  aircraft  serial  numbers  is 
allowed. 


2.3. 1.3  Output  Description.  The  sample 
Figure  2-7.  Logic  Flow  of  AFM  65-110  output.  Figure  2-10,  shows  the  same 

File  Generation  format  as  the  AFM  65-110  data  tapes,  with 

the  addition  of  the  day  number  in  Columns 
49  through  52. 


Experience  with  the  F-106  AFM  65-110  data  tapes  on  the  IBM  370  indicates  approxi- 
mately 8,000  acceptable  records  are  available  from  a total  of  10, 000  records  on  each 
input  tape.  The  screening  process  required  two  minutes  of  computer  time. 


2.3.2  AFM  65-110  SORT 


2. 3. 2.1  Purpose.  This  IBM  utility  program  sorts  the  screened  AFM  65-110  data 
tape  into  an  ordered  file. 

2. 3. 2. 2 Input  Data  and  Procedures . The  JCL  control  cards  for  the  IBM  utility  pro- 
gram and  a sample  of  card  data  input  for  use  on  the  IBM  370  are  listed  in  Paragraph 
6.2.2.  The  input  consists  of  card  data  defining  the  sort  fields,  sort  characteristics. 


Figure  2-8.  AFM  65-110  Tape  Record  Layouts 


and  the  screened  AFM  65-110  data  tape.  The  sort  fields  are  all  defined  as  character 
fields  in  ascending  order.  The  sort  fields  in  order  of  hierarchy  are: 


Field 

Column 

Description 

1 

39-46 

Serial  Number 

2 

49-52 

Day  Number 

3 

59 

Record  ID 

4 

34-38 

Work  Unit  Code  or  Landing  and  Sorties 

5 

29 

Maintenance  Code  or  Mission  Symbol 

6 

1-27 

* 

7 

30-33 

* 

* Fields  6 and  7 are  necessary  to  ensure  that  any  duplicated  records 
will  be  placed  in  adjacent  order  in  the  ou^ut  file. 

^.3.2.3  Output  Description.  The  output  tape  file  structure  consists  of  60-character 
data  records,  blocked  50  to  a tape  record.  Sample  output  is  shown  in  Figure  2-11. 

Two  minutes  of  IBM  370  time  was  required  to  screen  a typical  F-106  AFM  65-110  tape. 
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4444444444444444444444444 

<NiNN<N<N<N«N<N<N<N<N<N<N<N<N<N'N<N<N<N<N'N<N<N<N 


«l<«l<(<<<<<<4<«3<<<<<<<<<<«[ 

'O^nooo'O'OOOoon^'n-nO'O'OO'Ooo-c-c 
00»  ' J»*»  '>00*^>0  >000  *150  JO  J'jO  ,■><- 

>•>4^  >4^  >4»«4im4  *^i>4  ^ *kpi4 

kkkkkkkkkkkkkkkkkkkkkkkk 
»»4»4»kk#'k«P«P»kk«Pk4»«Pkkl»«*'«»k«*' 
rg  >4-4  .4  >4  .4  >4  IN 1 -4 114  IN -4  9 i>4  9 <N -a  <N  14 

r>90-4<N04in®K®99c*N<N’n»n4 ingj gj®  "> 

<N  <N  <n  <*>  o m i«>  m r*>  o .4M«M«> 4 4 4 >4 14 .14  Frf  p4  i4  ^ N 

iN<N<N<N<NIN<NINN'N'N<N<N'N'N<NIN<N<N<N<N<^I<NN 
ro  r>  ^ ^ K r>  r>  r>  r>  r»  h*  r>  r>  <*•  r>  ^>  r>  <*• 

®0i4iNO4in  -O^® 90014*^0  4 4in4h‘P>9i4 
■4  *ig  IN  <N  <N -N  <N  N <N  <N  <N  <*'<*'<*>'♦' fO  O O O O r » -4 

444449444444444444444444 
<N<N'N<N'NIN<N<N<N<N'N<N'N<N'Nin  N<N<N<N<N<N<N  N 
9 9 


0000000000-4— -4-4-4-4-4-4-4-4,4-4«4-4«4 

o OO  ooo  oo  oooooo 

<N<N<N<N<N<N<N<N<N<N<N<N<N'N'N<N'N  <N<N<NIN<N<N<N  IN 
O OOOOOOOIJOOOOOOOOOOOOOOOO 
OOOOOOOOOOOOOOOOOOOOOOOOO 
OOOOOOOOOOOOUCOOJOOOOUOOO 

in  in  in  in  in  in  in  in  in  in  in  in  in  in  in  in  in  in  in  in  in  in  in  in  in 

O -4  Ik  <N  < "4  *)  Oq.  O 

<j  0 4 0 ao  o on  o 

^ ^ 4 <N  4-4  -4  .4.4  .4 

4 o r'*  O r'-u  --  -- 

onooo-cooo^oo  ■>o*n®ooOino  ^noj 

4®  44  4<N44  4<n  444<N<n04  4 4-44  41^4  O 
<NO<N.NiN  J<NO<Nv*N'N»\|<NO  !JfN<N'N.4  N<N-4<N«;i 

•Ti  tr\  -V 

< ^ < ‘-000040  4 Z4  4 

kkkkkkkkkkkkkkkkik  kk  k kkkkk 


.4  .4 -4  .4  .4  .4  .4  .4  .4  .4  .4 -4  p4  .4 -4  .4  rg  <N<N<N<N<N<N<N 
^ ^ ^ ^ 
<N<N<N<N<NIN<N<N<N<N<N<N<N<N<NIN<N<N<N  INlNINrgiN 
OOOOOOOOOOOOOOOOOOOOOOOO 
00O00000<^00<J003jr»O0  OOOr^  O 
ucOA,nJooooooui400oouuoooi_io 

ininininininmnininininininininininininininnin 


4 <N  o 4 

OOOOO OOini"' nn  >incio®''*f-oo  m.ij  ^ 
4 44  444  4'N4  44  4<n4  4-4  >fnn44P>4  4 
<N<N'NiN  NfN<N-4 'giNiN<N-4N'N;><N  J.«*<N<'J  ^.N<N 
.A  n 

4 4 4 k H-  < 4 

kkkkkkkkkitekkkkkk  k k'lk  u.  X A.  k k 


0000000000000000000000000 
otototat  atatatatatat®dt4®at'x;®®®atat®iKat® 

XX  XXXXXXXXXXXXX  XXXX  XXX  XXX 

O oooooo  0.^000  0 00  000.^0  0 00  00 
OOOOOOOOOOOOOOOOOOOOOOOOO 

ooooooooooooooooooQ oooooo 

4444444444444444444444444 
® ® ® (C'O  ®®  ®®  0(0®  0®'0®®®®®®®®®® 

OQOOOOOOOOOOOOO'J  OOP  oooooo 
OOOO  300000000 oooooooooooo 
XOOOCIOOOOOOOOXOOOOO'OOOO  oo 
minimnininmininini/iimnini/nmninininmimnimn 

zzzzzzzzzzzzzzzzzzzzzzzzz 


OOOOOOOOOOOOOOOOOOOOOOOOO  oooooooooooooooo rrrrxzxx 
ac®®®«(s:««®‘X(Eat.x®«®iX®««nt««®at  KsatKXctQtRraotatsajtJ  or  oooooooo 

XXXXXXXtXXBXXK  XX  XXX  XX»*XX  XX  X XXXXX  KXCXXKXlj  iritxta.X 
O oooooo  OOO-^O  oooooooo  OOOOO  OOO  UOOOOO  oooooo  O.T  r * 

OOOOOOOOOOOOOOOOOOOOOOOOO  OOOOOOOOOOUOOOOUOOU  OOOO 
0000030300000  3 OOOOOOOOqOO  0003000300300300  JOOt)  3.333 


4 4 444444444  4<<  44  4 4 4 4 4 4444 

® ® ® ®®  ® ® ® ® ® ® ®®  ® ® ® ®®  ® ® ® ® ® ® ® 
00000000030000000030  30000 
OOOOOOOOf^OOOOOO  OOOOOO  OOOO 
<nrXOCX'3rj00003  3'XO<X3r>3(3033cX3  X 
mmi/iinminmmminmmtnmmmmmmininimmni/) 


XXXXXXXXKXCXXKXlj  iiTVXiaY 
OOOUOOOOOOOOOOOO.Tr  * 

UOUOOIJOOIJUUUUOOUOUU  ooou 
0003000300300300  JOOD^.noO 
444444444444444<f4444-T-T4iJ 
r>.r>>r-r>r-p-r-r>r>r>r>.r>r-r>p-p>  .4/4 
®®®®®®®®®s®®  o®  o i>ip®®‘T'  nm  -p 
013000  300000003000  30  00300 
000000000000003000300000 
33  33033 3»3n  ^>3  333  303  »i3  33  3 

91 9 1/)  99  9 m 9 9 9l/)  9 9 9 v/>  l/)  I/)  l/)  l/)  I/)  9 lyMP 

ZZZZZZZTZZZZZZZTZZZ  z zzzz 


kkkkkkkkkkkkkkkkkkkkkkkkk  kkkkkkkkkkkkkkkkkkk  k kkkkk  kkkkkkkkkkkkkkkkkkkkkkkk 


4444444444444444444444444 

OOOO'UOO  ^OOOOOOOOOOOOIJOOOO 


4444444444444444444444444 
C-O-C-O-O-O-O  -O-O-O 

00  30000000003<3000-300  30000 


4 444444  44444444<I«V44  44  44  4 
30OOO000'3.j  >0003  3C  DOOVOOO 


kkkkkkkkkkkkkkkkkkkkkkkkk  kkkkkkkkkkkkkkkkkkkkkkkkk  kkkkkkkkkkkkkfLkkkkk kkkkk 
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Figure  2-10.  Sample  Output  — AFM  65-110  Screening  Program 


I/?  'J12  22.21.37  72/'2t  3.<.  I 021"  LtNJH  120  lUMhUL  2',S?  DDIJT  Pil:  001 


• mm'i'COO^AjiNrri'*^'^tr«'Of*>eoa‘0>a‘0<\j'^'^tA-Oai  0<^J<^Jr^U^tAr■<^^«Mflr|..r■4■«<^^‘^<^^«^(^4’lA4)^*(S  (^00^<^JmsrU^^>(^^(^Jl«^(*>•^tA<0^<SV‘0^<M^O 

• >#«r.#tn«A(iMr«tfMA«Ainm'0'4>4>4>44>4«  4>r>r»r»h>r».^-^sr.^i/Mnirtu>uMniAUMr\tn.O'0'0'0 

• rvjfMrNjrNjrvjrvjrgrNjrgrNj(MrgAjf>4fvjr*gr>gfNjr*gfVjfVj<*gr*gfvj<*g  (^J<^Jf^j(^J(M<M(M<^JAJ(M«^Jf^JlM<M^«l<^KMAl^«^>J«MAJ(^^<J^g  pgiNj(NjiM(Nj(Nj(\j(Nii^(Nj(M(\j(\j2NjojfNJiN<Ni>j<NjrvjiNrvj<N 


► ts.f»^.(.»f».f».f».f».fw(.».f».f».r>.r>.f».^.f».(.fcf».r»r» 


• rrirornrri-<r'r.,f-.r^-.r'f  sr>r  -r  4 sT  sr'^'^i^*A«rt«A4A«AtA«Air>m  if  <r  %r  ^•^umtmaiaia 

^ .f  if  f if  f f f f f f f f f f if -f  if  if -f -f  if  f f if  f ^if  f f f f if  f f f f .f  f .f  if  if  if  f if  if  if  if  f if  if  if  •.ffifififfffififffififififiririf-ffiffif 

K'  cT  trtrir  v*  o <f  if  if  <fif  if  if  C‘  '■f 

•coo 

•f<<OC  t.  OCC.r  OCOt.'OOCOC>COCOC<-’OOC'"CCOC^'-'-'-^— 

• nj|igr>onjrijrNjr>giigr>giig|igiigrNjfgr*gfgnjrijiigrNjrNj«ijru<*gnj  AJ<*g<*gr^2f^Jr^i(^J^gAl^a(^Jf^J^g<^J<^Jfv<^Jf^JAJ^gfv:^>  . < fg  f^J^gf^JrM^gl^J^g^g(MfMf^^<^Jl^J(^(<^J<^J(M<^J(M(^|fgl^«M(^J 

•icrcoc  '“ccooccre  ooocococ  or  r xococccocooc  c fooocoooccrcoxccoccorr  rcooooc  c c ooc  cc  c o 
•ooocooccor  oec  ooo  ooc  ooorcooi  >0000000000*^0000  ooc  c-ocococt  >oooooor*ooc  roc  ocorooo  ooc  o 

• OOt  o^  oOCoOCOCOCOOCOC  C CCCC'  OC.OOOOOOCOOOOC.t.OOOOOC>OOOC  OCOOOCC  OOOOOOOCCOOCOOOOC; 

r*  t»i  fn  r»  r- ►.  fn  r- r- h- r- r- »•►  r- r- r- f*  r- r- f»  r- f*.  r- f*.  f..fi.fs.f..f..fi.f..ii.fi.fi.fi.»s.rs.fwf.if.i».»f.ifi.f..fi.f.if.ifi.fi.  fi.ri.r>>.r>>.ri>ri>riif*fif*f>f-r»fif-r»r»f>r»r»f>f>f>r‘* 

• (Aif' (fttAir  «ll  lAtAtAlllt/Ni/M/l  if  kf  lA  klMA  i/Si/M/\  i/ltAlIl  l/lilM/MAUl  ifMAifMTt  (AUMAlA 

• ^ ^ ^ 00  000^  ^ ^ ^ 

• *1.0.  ■>  OtO  — <J  ^ »^j0  — ^ ^ *MCiO  «af.CC  4 Uj 

• (<  T Oi^ooc  «j-»<  t iL  Oy  c c <t  oO-  r>  cc-o  «»co»->  -»  i^o 

• rsif  if  Mif  ^ ^ r>-.r«irri.f  ^ f\i 

• nr-  f*  fryoor^  <■  f.  Cf*  < C c»C*  O CM^M  furyfg^  f ui 


•«  ^ ^ ^ 00  000^  ^ ^ 

^U.  ■>  OtO  — <J  ^ »^j0  — ^ ^ *MCiO  «af.CC  4 uj 

T Oi^ooc  «j-»<  t iL  Oy  c c <t  oO-  r>  cc-o  «»co»->  -»  i^o 

ryf  f ^ ^ r>-.r«irri.f  ^ f\i 

nr-  f>  fryoor^  <■  f.  Cf*  C C oC*  O CM^M  furyfg^  f ui 

cor  r cu-'r  c cf;-^»Aino*f'c  oc  *^oc  f inr-r  c.  of^c.<  <t)cooo*f»c^^“co'-oc^oor  00  ooc  r c c oo  t -oc  f.o  or>f  c c»C  r o f^occ 

f m,0 1»  if  a.  if — ^^f)f  O i^-CO®  if  f '^'Mif  if  f Ajf  f ^f  f if  py^f  ^r^f  f ^if -foii-if  mf  if  if  f f f f ||^  f f f f if  <r>f  f f f f f f f f lOc  ^ 

'N  — C C rsifO^fSI'M^fSI'Nlfg'MryO'Mf  •M'M'N'MfM'M'NiCC  ^ 

fo  7t>roo  o o <0  o 00  00  (*> 

< 44^^t_aO^  4^4  b.4  ^4  ^ ^4  ^ ^44t^  444^  4 4 *.40 

ILU.^  U.1*.  lX.lX.i^  XlLlL<^lLlLU.i^lklX.kLkL  U.lklLU.lk  Ik  IL  U.U.  ILtk  U.ILIL  ILikU.  1^0.4^  Xlka.lka.lka.lklklklklklklklklk4klklk4kliilklklk 


C'Oor  cu-'r  r co-^if'ino'f'c  oc  *f'C5C  f inr-r  c.  of^o.<  <t)cooo*f»of«f“co'-c.o^oor  or 


OOOl./OSJWWi.l'-JlJlJlJtJOOOOlJWOOWlJO 

Jtctac  t:xocx(X  Xtxoea:  x^xocaca-taa'XiXCKa 

K9-9€f9-9*^Ttie'ttllf*-W9tl:-WX*^ 


W.V  ivi.^»»i2infnfnin<r'<*ppp''r'<o<'piir'«4i'r>  tti 

o*^'^f  c<*  .o.»'  r r.f'or.opir  <*>or  cif'*^r  <*  *■* 
J J i-J  J JT  J 1 ! J JJ  fO'f  fS  ib'T'f  J > J 

if  if  ./I  if  i/l  >>1  4^  1/1 0 .f  1^  if  1^  1/1  if  4^  1^  if  «/l  1^  sf 


4j4_)U4.)4jlJOOl.>4.>U4.)Uli>04.>4ij4.>l.>OOl.>4.>4jU 

oe  et  OC  a oe  01  ac  A (£  OC « a a (Z  jc  a tt  a cc  X X a X <x  IX 

•«•«  «T»  f-vt-c  t-vxtXft 

4.)4j4_24.)U4j4^00  4.)4jO*JUUU4^U4.>UUO4j4^4ii> 
C^OOrjQQOOOOQC.OOCOOOCOOQOO 
4 444  44<44<4<4  4 4444444<<44 

'fi 

f4p-.r  oo j%/%p.o»*' <*r  f^of^o/>f'o < 
:>0:70a  f'?  J*JCf  »•>  J-5'J  J > J'JJ  J 3 


oouuuuixx  rxxxixxixxxxixx 

QC  xoc  X ixa  u0O4^4.>u04j0i->4->uo044UO44 

Tt  vx  c «xaaxuizxxxaxdraxac>x  za 
^^-i^-t-iXZXXX.£ZX^ZZ^X^ZZZZ 
l.>4ii>4.>Wli)UOUO«4U4i.>44<.>4-><4U04jUlJU4ii;4i,> 

COOOTJC^^OCOCQOaQOOOOOQOSC 

<4444444444444444444<444 

^*ri^fT4nipp<*’n>pp<T'n>w<r4<*'pp>4^’f‘n>*r>f>^.rp|<viiT 

^<Nr%^<Nrs<Nr>rsr 

p\fif  .4-»r>p\r^r  f 'fiOf  iji*  ip^of  f "pi.f ‘r.mr- 

o 9(3  3 ! 9 3 t'y  7 y 3 yj'j'y  9'j'j  3 

if  fif  tf  if  if  if  f if  if  if  if  if  if  ,f  4f  .f  ^if  if  if  f If  if 

zxzzzr-zz zzzzzzzzzVz  zzzzt 


<4<<«a<<<<4<4  <4  44<<<<4<<<  4 
ffffffffffflfifOffffffff  f f -o 
Cgoi^^'jciooi  K'0<  4:j0»*20<14  xjooor, 


lk4klklblklklklkX4kkik^Uiik4kXVbikX^J.iklkLk 

<<<<44<<<<<<<<4<<<<<<4<<< 
ffffOfffffffff  ffffff.Affff 
'.no».*»^.».ffjo  »'><  jC'oop.c/i  • 


<<<<<<<<<<<<<<<<  4<4<<<<< 
ffff  fff  f^ff 
ocjoof .ooi-.  .1  ir  "jf.i.'iooc  i'>4-.p>4:*  icit 


1.4.LkXlk4k4k4i.XlL4kLL4kX44.iklL.  4k4klka.4kSk‘Xlk4klkX*klkikiZ4k4klkiVlX.U.>Ji««.ULIA 

« 4f4fc4fc4»**4f«»4»4*»« 


Mry^«>4M«y9‘ry<iMM<M*i«*M«g.y<Nryry^.yM<N«ulf‘ 
f ll>  0f*’0«««rtpyrf  if  f ifO^iiO f iTMf  f^ 

fffff4/>4r'4r'f'fTnf/440iiMr'if'/»z>oo  oooo 

<M  py  fj  OJ  <N  iM  *M  ry  IN  «N  *M  ry  m «N  pg  <N  ly  rg  ly  ry  r\.  ly  ry  rg  rg 


4i>  or^  ®Opypgm  f f m o'*’  ®<^<^OC‘.M«y  f in-o  o ® 
mitiinoff  ffffiffffif  f 4iMi>f  4i>4r'4iMiMi>4i> 
f f f < f f f if  f f ^f  f ffifififf-fffif-fif 
»y  ly  ry  fy  pg  IN  fy  <N  py  pg  IN  py  ly  pg  ry  PJ  ly  py  iN  ly  ly  ly  «y  pg  «y 


CpjCjCOOOC»O0C500O000C  i^CJOCCOO 
pfpopfnopiifpfpnffifoififp^  <<4vf  o ^pipo  opi 

pg  pg  py  <N  py  *y  <y  py  pg  *>  1 «N  «y  pg  py  p^  pg  pg  •N  py  py  ly  py  py  py  py 
WOCOOOOCfOli'OOOC'COOOOOOOOUO 
W00k.'WPi,><..'<.'0<>tU0C<0C*0^^i-'U<-'Ci«.»00 
wo'iJOk.w<.iOc'oooooo<.  oig4.4*uowi.gu 
pH  pn  p»  pa  p»  p*i  h- p»  p»  r>>  p»  p- pi  p»  pi  pi  r*>  pi  p»  p»  pi  pi  pi  pi 

4ri4Aif>u*y**f*y'4ng4u\4Ctu'4ng44/>iri4iMC4g>«/Mr4ir4«f  gigi 
^ < ^ O X)  -- 

►.  — < > o < o — 

X 0^<  ikC 

if  -giP4  -9  pn  ^ if  ^ 

pi  <pg^  »y^  P’C 

?>2C<_.  .TPf'ni34f»OCOC*0'roO^>OO^C  if  o 

9 Q t 3 9 3 pjpy  rr  <ifif<  ifip»4<4po  ifif  if  .f  ifpy< 

pg  py  py  PN  y -^1  ^ py  j pg  ly  ly  y ly  ^ O O •N  py  ly  4.,  <“  JO 'N 


.i««Hiy*iy«g'y.y.4<-g  ..i4*MiPry..«««<i«y«««iMry«i«*i4*igpypy 
<P»«  ypp)  if  «A  *>®Opgfnmif  if  OWlfOryiri  ifif  O OP* 
gjpipipi  9 3 3 f lAif  f nirgMfiiJMf  -OOOitfO-OOO 
ry  pyPgpgpg'ypgrgpypypijPgpypjPgpN  ypgiypy  pgpypypgy 

pi.  pi  pi  pH  p1.p1.p..P».p».p1.p..p.p..p.P».^.P».p».p.^.^^».P».^1.^1. 

Oiypp  if  4l>-OPii>.g^,f  if  f 1^^  ®“'^^P'if  If  OP-P»i  •» 
^^'OOP^p>pnO>f  99  9-3  ^4f  Iff  ifgy/'f  If  If 
ffififif<,rirfif,f,f,f,fif<iff^<ifif<if<if 

y iypypypypyiypy*ypypgiyiypg*Nrypypgpypgpypypgpyy 


a ^ 1^  .k  ^ ^ .k  UL  ik  ^ ^ ^ ^ x ^ ^ X Ik  ^ ^ ^ ^ X 

ry  ry  ry  pi«  .i«  ry  O M *-«  J ly  O py  pg  ry  ly  ly  py  M ^ ^ 
®CPi.^y.^lir\if  o cCyy  Pro  if  If  OPHarl^ii^iy  ^ 
^O^^PiP^Pifif  4 f If  If  If  f f If  f J^lf  f O O O 
p»yy  pg.ypgyy  y y ypypypgpypypypypyyyypgiy 

pip'PipiPi^^^^pipip.^^pipiPipi^pipipi^pi 

CPP^.yryro  3 3 3 p.OPi®0  .?ryf4 

ifOOooooppr»iri44^sf  j 3 3 9 3 3 \t>  r\\r\\rs 
399993339993939939939393 

ry  py  py  py  py  ry  ly  ry  py  py  pg  py  ly  pg  py  py  •■<  py  ry  ry  py  “y  py -y 


pfipp.  ffifiipvpf  finpno  p>**>pii*>  ^pfpofOif  Ofopiif  i»>pMf 

pg  pg  pg  pg  pg  pg  py  pg  pg  pg  py  pg  py  py  pg  py  •N  py  pNpg  py  py  py  py  pg 
oc'i-'ijoooooodpi'oooooooooooo 

OOO^'OOOOOOOC  OOOCOOOOWk  OC'l' 
OOOOC'OOOOOOOOl.  CjOOOOOOOOOO 

r.  rH  pi.  pi.  r.  fk.  p..  p..  p.  ii>  p.  fii  pH  pH  pH  p.  pi.  pi.  pi.  p.  fi.  pi.  pi.  pi.  ^ 
g ' If  If  IP  ' U I Iflf  41 4 If  41 1 in  41 4 W 4 4iM<  * If  414  W 4 If  If  y > If  If  g 4 If 


OCP'-i,  oc  OCC*OC'P>fiv.»OC  CPoCifOOOc  C 
•f-fpgifif-Oif  3 9 99w*9\3  99  -03  9 3 99  9~^3 
ryry.rfpgiyr  pgpg'ypypyJ^opypypyo'N'NOPg'N'NiJfl 


pg  py  py  pg  fi  py  ly  py  pg  py  py  ry  py  ry  py  pg  py  pg  pg  pg  pg  py  py  py 
OOV444000V4CiOOOOk.«.«-!UOOl,  0 4^04.4 
C’OV4l.POOC?C-OC>44UOOOOl.  OOCii-OOt. 
OOOOU  Ol.  O coo 000 1-  Ol.'l.’OI-'Oi  gl_  \J 

pkri.p»ri.pHpi.pHri.rH.ri.rHpHriipkriirHPipHpHpi.pHpHriipi. 
If  If  g4U4U4|f  U4g4u\u4if  U4if  u4if  yigigi'f  If  uiu4w*u4 

O O ^OOo<< 

V --  p>4k'‘yOk'Oo  r * 

>yl,i  O'^'Cvf ✓‘ifi/)^  ^ 

ro^  i*4f<4PyiP>if  If  iPiKi"- 

pyQ  CPyO'Pyfipgpypypy 
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Figure  2-11.  Sample  Output  — AFM  65-110  Sort  Program 


2.3.3  AFM  65-110  MERGE 


2. 3. 3.1  Purpose.  This  IBM  utility  program  merges  the  screened  and  sorted  AFM 
65-110  data  tapes  into  a single  file. 

2. 3. 3. 2 Input  Data  ird  Procedures.  The  input  data  comprises  the  screened  and 
sorted  AFM  65-110  data  tapes  and  the  input  card  data  defining  the  merge  fields.  The 
JCL  control  cards  for  the  IBM  utility  program  and  a sample  of  card  data  input  for  the 
IBM  370  are  listed  in  Paragraph  6.2.3.  The  input  card  data  is  identical  to  that  used 
in  the  AFM  65-110  Sort,  as  shown  in  Paragraph  2. 3. 2. 2. 

2. 3. 3. 3 Output  Description.  Merging  of  21  F-106  AFM  65-110  screened  and  sorted 
tapes  on  the  IBM  370  required  a total  of  four  merges.  In  the  first  step,  seven 
screened  and  sorted  tapes  were  merged  to  one  tape  reel.  This  was  repeated  for  the 
other  14  tapes.  These  steps  required  three  to  five  minutes  of  elapsed  time.  The  file 
contained  480,000  records  and  required  one  reel  of  tape.  The  outiiut  format  is  the 
same  as  that  used  for  the  AFM  65-110  sort  output  data  tape. 

2.3.4  AFM  65-110  ELIMINATE  DUPLICATE  RECORDS 

2. 3.4.1  Purpose . This  COBOL  program  eliminates  duplicate  records  from  the 
screened,  sorted,  and  merged  AFM  65-110  file. 

2. 3. 4. 2 Input  Data  and  Procedures.  The  JCL  control  cards  for  use  on  an  IBM  370 
and  the  program  are  shown  in  Paragraph  6.2.4.  The  input  consists  of  the  screened, 
sorted,  and  merged  AFM  65-110  data  tapes.  Operation  is  identical  to  that  of  the 
corresponding  program  for  the  AFM  66-1  file  in  Paragraph  2. 2.4. 2. 

2. 3. 4. 3 Output  Description.  Screening,  sorting,  and  merging  of  approximately 

485,  000  F-106  AFM  65-110  records  yielded  over  36,  000  duplicate  records.  The  num- 
ber of  duplicate  records  is  displayed  on  the  IBM  370  and  required  one  output  reel.  The 
record  layout  and  the  blocking  factor  are  unchanged  from  the  AFM  65-110  sort. 

2.3.5  AFM  65-110  COPY  ACCEPTABLE  AIRCRAFT 

2.3.5. 1 Purpose . During  the  initial  screening  of  the  AFM  65-110  data  tapes,  records 
for  a specified  set  of  aircraft  serial  numbers  were  deleted.  During  formulation  of 
the  data  bank,  however,  only  data  for  a specific  fleet  of  aircraft  is  necessary.  This 
COBOL  program  writes  these  acceptable  aircraft  records  on  a magnetic  tape  to 

form  the  new  AFM  65-110  file. 

2. 3. 5. 2 Input  Data  and  Procedures.  The  JCL  control  cards,  the  program,  and  a 
sample  of  card  data  input  are  listed  in  Paragraph  6.2.5.  The  input  consists  of  the 
AFM  65-110  merged  file  (wth  any  duplicate  records  removed)  and  a card  deck  defining 


Input  to  the  program  is  a deck  of  cards 
containing  the  AI  data  in  the  following  format. 


ME 
COPY 
ACCEPrADEE 
AmcnAFT 


Column 

2-3 

5-8 

10-11 

12-14 

15-16 

19 

21-25 

26-80 


Description 

First  two  digits  of  serial  number 

Last  four  digits  of  serial  number 

Day  of  report  date 

Three-character  abbreviation  for 
month  of  report  date  (e . g.  JAN, 

FEB) 

Two-digit  year  of  report  date 

Report  Code  I = incident 

1 = accident  (category  1) 

2 = accident  (category  2) 
Work  Unit  Code 

May  be  blank,  or  may  be  used  to 
further  describe  the  report. 


Figure  2-12.  Logic  Flow  of  A IE 
File  Generation 


The  data  must  have  been  previously  screen- 
ed to  eliminate  unacceptable  serial  numbers, 
dates  prior  to  1 January  1965,  and  bad  or 
blank  work  imit  codes.  The  program  is 

suitable  for  use  with  AI  data  from  any  USAF  aircraft,  provided  the  card  data  is  in  the 
correct  format. 


2.4. 1.3  Output  Description.  The  output  record  layout  is  shown  in  Figure  2-13,  and  a 
sample  output  is  given  in  Figure  2-14.  The  tape  has  50  characters  to  a data  record, 
blocked  60  to  a tape  record. 
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Figure  2-14.  Sample  Output  — AI  Reformatter 


Experience  with  the  data  made  available  for  the  F-106  showed  many  records  without 
a work  unit  code,  and  these  were  discarded.  The  elapsed  computer  time  to  run  the 
Reformatter  program  was  one  to  two  minutes  on  the  IBM  370;  the  output  required  one 
reel  of  magnetic  tape. 


A 


2.4. 2.1  Purpose.  This  program,  written  in  COBOL,  screens  the  AIE  data  tapes  to 
eliminate  unnecessary  and  unacceptable  records  and  to  write  acceptable  records  on 
magnetic  tape  for  further  processing.  Acceptable  records  must  have  correct  Mission 
and  Design.  Records  containing  unacceptable  serial  numbers  and  bad  date  information 
are  rejected.  The  output  record  has  an  additional  field  that  contains  the  day  number, 
using  1 January  1965  as  day  one. 

2.4. 2. 2 Input  Data  and  Procedures.  The  program,  a sample  of  card  input,  and  the 
associated  JCL  for  use  on  the  IBM  370  are  listed  in  Paragraph  6.3.2.  Input  to  the 
program  consists  of  the  raw  AIE  data  tape  and  a deck  of  cards  conLaining  the  screening 
criteria.  The  record  layout  for  the  input  AIE  data  is  shown  in  Figure  2-15.  The  tape 
has  90  characters  to  a data  record,  blocked  30  to  a tape  recoi*d.  The  screening 
criteria  card  deck  consists  of  a deck  containing  the  following  (in  the  order  shown). 


Card 

Column 

Description 

a 

1-4 

Acceptable  Aircraft  Mission  and  Design 

b 

1-2 

Number  of  Rejected  Aircraft 

c 

1-8 

Rejected  Aircraft  Serial  Numbers  (Number 
of  cards  set  by  card  b) 

d 

1-8 

Lowest  Acceptable  Serial  Number 

e 

1-8 

Highest  Acceptable  Serial  Number 

The  program  opens  the  input  and  output  files,  reads  and  stores  the  screening  data, 
then  reads  the  first  AIE  data  record  and  checks  for  an  unacceptable  Mission  and  Design 
designation  and  a valid  date.  The  serial  number  is  then  checked  against  the  highest 
and  lowest  serial  numbers  and  against  the  list  of  unacceptable  serial  numbers  for 
appropriate  action.  Finally,  the  day  number  is  computed,  using  1 January  1965  as 
day  one,  and  inserted  into  Columns  45  through  48  of  the  record.  The  verified  record 
is  then  written  on  an  output  file  and  the  process  repeated  with  the  next  input  record. 
Upon  screening  of  the  last  input  record,  the  remainder  of  the  output  tape  record  is 
filled  with  nines  and  the  input  and  output  files  closed.  Figure  2-lG  shows  the  screening 
criteria  used  in  the  F-106  Scheduled  Maintenance  Study. 

The  program  is  suitable  for  all  AIE  data  tapes  for  any  USAF  aircraft,  with  the  following 
program  dimension  limitation:  a maximum  of  25  rejected  aircraft  serial  numixjrs  is 
allowed. 
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Figure  2-15.  AIE  Tape  Record  Layouts 


•0  COLUMN  GENERAL  PUftfOSt  FOmi 


Figure  2-16.  Sample  Input  — Screening  Criteria  for  AIE  Tapes 


2. 4. 2. 3 Output  Description.  The  sample  output,  Figure  2-17,  has  the  same  format 
as  the  AIE  data  tapes,  with  the  addition  of  the  day  number  in  Columns  45  through  48. 
Experience  with  the  F-106  AIE  data  tapes  on  the  IBM  370  indicated  that  the  data  was 
very  sparse,  with  an  average  of  only  50  records  per  data  tape.  The  majority  of  the 
AIE  data  came  from  the  listing,  which  had  approximately  1500  records.  Screening 
of  these  1500  records  required  about  one  minute  of  computer  elapsed  time. 


2.4.3  AIE  SORT 

2.4.3. 1 Purpose.  This  IBM  utility  program  sorts  the  screened  AIE  data  tapes  into 
an  ordered  file. 


2. 4. 3. 2 Input  Data  and  Procedures . The  JCL  control  cards  for  the  IBM  utility 
program  and  a sample  of  card  data  input  for  use  on  the  IBM  370  are  listed  in  Para- 
graph 6.3.3.  The  input  consists  of  card  data  defining  the  sort  fields,  sort  character- 
istics, and  the  screened  AIE  data  tape.  The  sort  fields  are  all  defined  as  character 
fields  in  ascending  order.  The  sort  fields  in  order  of  hierarchy  are: 


Field 

Column 

Description 

1 

25-32 

Serial  Number 

2 

45-48 

Day  Number 

3 

10-14 

Work  Unit  Code 

4 

1-50 

♦ 

* Field  4 is  necessary  to  ensure  that  any  diq>licated  records  will 
be  placed  in  adjacent  order  in  the  output  file. 
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2.4. 3. 3  Output  Description.  The  sample  output,  Figure  2-18,  is  typical  of  AIE  data . 

It  has  the  same  format  as  the  AIE  screened  output.  Sorting  of  the  F-106  AIE  data 
required  one  minute  of  elapsed  computer  time  on  the  IBM  370. 

2.4.4  AIE  MERGE 

2.4.4. 1 Purpose.  This  IBM  utility  program  merges  the  screened  and  sorted  AIE 
data  tapes  into  a single  file. 

2.4.4. 2 Input  Data  and  Procedures.  The  JCL  control  cards  for  this  IBM  utility 
program  and  a sample  of  card  data  input  for  use  on  the  IBM  370  are  listed  in  Para- 
graph 6.3.4.  The  input  card  data  is  identical  to  that  used  in  the  AIE  Sort  program. 

2. 4. 4. 3 Output  Description.  The  F-106  AiE  file  required  just  one  computer  run  to 
merge  the  seven  input  tapes  into  one.  These  input  tapes  comprised  the  five  data  tapes 
(see  Table  2-5),  a tape  generated  from  the  listing  input  data,  and  a tape  generated  from 
the  handwritten  input  data.  The  output  AIE  file  had  some  3000  records,  and  the  merge 
required  one  minute  on  the  IBM  370.  The  output  format  is  identical  to  the  AIE  Sort 
output. 

2.4.5  AIE  ELIMINATE  DUPLICATE  RECORDS 

2.4.5. 1 Purpose.  This  COBOL  program  eliminates  duplicate  records  from  the 
screened,  sorted,  and  merged  AIE  file. 

2. 4. 5. 2 Input  Data  and  Procedures . The  JCL  control  cards  for  use  on  the  IBM  370 
and  the  program  are  listed  in  Paragraph  6.3.5.  The  input  is  the  merged  AIE  data 
tape;  operation  is  identical  to  that  of  the  AFM  66-1  Eliminate  Duplicate  Records  in 
Paragraph  2. 2. 4. 2. 

2.4. 5.3  Output  Description.  The  program  detected  10  duplicate  records  in  the  F-106 
AIE  file  of  approximately  3000  records  and  required  about  one  minute  of  IBM  370 
time.  The  output  format  is  identical  to  that  of  the  AIE  Sort  In  Paragraph  2. 4. 3. 3. 

2.4.6  AIE  COPY  ACCEPTABLE  AIRCRAFT 

2.4.6. 1 Purpose.  During  the  initial  screening  of  the  AIE  data,  records  for  a specified 
set  of  aircraft  serial  numbers  were  deleted.  During  formulation  of  the  data  bank, 
only  data  for  a specific  fleet  of  aircraft  is  necessary.  This  COBOL  program  writes 
these  acceptable  records  on  a magnetic  tape  to  form  the  new  AIE  file. 
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Figure  2-18.  Sample  Output  — AIE  Sort 


2.4. 6. 2 Input  Data  and  Procedures.  The  JCL  control  cards,  the  program,  and  a 
sample  of  card  data  input  are  listed  in  Paragraph  6.3.6.  The  input  consists  of  the  AIE 
file  and  a card  deck  defining  the  acceptable  serial  numbers.  The  input  card  deck  and 
operation  of  the  program  are  identical  to  that  for  the  AFM  66-1  file  in  Paragraph 

2.2. 5. 2. 


2.4. 6.3  Output  Description.  The  record  layout  is  unchanged  from  the  AIE  Sort  pro- 
gram. Experience  with  the  F-106  AIE  file  of  approximately  3000  records  yielded  some 
2000  records  for  the  new  AIE  file.  The  program  required  one  to  two  minutes  of  IBM 
370  time  and  the  output  file  required  one  reel  of  magnetic  tape. 

2.5  IRAN  FILE  GENERATION 

The  objective  of  the  IRAN  File  Generation  programs  is  to  combine  IRAN  event  data 
and  aircraft  acceptance  date  data  to  produce  the  IRAN  data  file  used  as  input  to  the 
Data  Bank  program.  IRAN  interval  data  is  calculated  from  data  on  consecutive  IRAN 
event  records.  The  output  file  includes  information  on  current  IRAN  event,  the 
following  IRAN  event,  and  the  included  IRAN  interval.  A printed  report  of  this  data  is 
generated.  (See  Figure  2-19.) 


Figure  2-19.  Logic  Flow  of  IRAN 
File  Generation 


All  of  the  IRAN  File  Generation  programs 
were  developed  for  the  IBM  370  and  have 
been  written  to  be  compatible  with  SAAMA 
computers.  The  programs  were  written 
using  (ANS)  COBOL. 

The  IRAN  File  Generation  task  consists 
of  three  COBOL  programs: 

a.  IRAN  Formatter  of  Acceptance 
Date  Data. 

b.  IRAN  Preprocessor. 

c.  IRAN  Copy  of  Acceptable 
Aircraft. 

The  IRAN  file  is  subsequently  used  for 
input  to  the  Data  Bank  programs. 

2.5.1  IRAN  FORMATTER  OF  ACCEPT- 
ANCE DATE  DATA 

2. 5. 1.1  Purpose.  The  purpose  of  the 
IRAN  Formatter  of  Acceptance  Date  Data 
program  is  to  convert  the  serial  number 
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to  an  eight-digit  format  and  to  convert  the  date  to  a day  number . The  converted  output, 
the  Acceptance  Date  Data  file,  is  subsequently  used  for  input  to  the  IRAN  Preprocessor 
program.  Paragraph  6.4.1  shows  the  source  program  and  corresponding  job  control 
cards. 

2. 5. 1.2  Input  Data  and  Procedures.  The  card  input  consists  of  a deck  containing  one 
acceptance  date  data  card  for  each  aircraft.  The  cards  contain: 


Column 

Data 

1-2 

First  two  digits  of  serial  number 

3-6 

Last  four  digits  of  serial  number 

17-18 

Month  of  acceptance  date* 

19-20 

Day  of  acceptance  date* 

21-22 

Two-digit  year  of  acceptance  date 

The  record  layout  is  shown  in  Figure  2-20.  The  sample  card  input  is: 

57  230  060158 

57  231  070158 

57  232  070158 

57  235  080158 

2.5. 1.3  Output  Description.  Output  is  an  intermediate  Acceptance  Date  Data  file 
containing  the  converted  eight-digit  serial  number  and  converted  day  number.  The 
record  layout  is  shown  in  Figure  2-20.  Records  are  80  characters  long,  blocked  1 to 
a record.  For  the  F-106  fleet,  processing  of  265  records  took  less  than  one  minute 
on  the  IBM  370  computer. 

2.5.2  IRAN  PREPROCESSOR 


2. 5. 2.1  Purpose.  The  purpose  of  the  IRAN  Preprocessor  is  to  prepare  a Preprocessed 
IRAN  file  and  an  IRAN  printed  report  (Figure  2-19).  Paragraph  6.4.2  contains  a listing 
of  the  source  program  and  corresponding  job  control  cards.  The  following  is  a descrip- 
tion of  the  operation  of  the  IRAN  Preprocessor  program . 

An  event  card  Is  read  and  the  serial  number  and  the  start  and  finish  dates  are  con- 
verted. Cumulative  flight  hours  are  calculated.  An  acceptance  date  record  is  then 
read  from  the  Acceptance  Date  Data  file  and  the  serial  numbers  are  compared.  If 


♦Values  must  be  punched  right- justified  within  these  fields.  The  values  may  have 
leading  zeros  or  blanks. 
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gure  2-20.  IRAN  File  Generation  Record  Layouts  (Sheet  1 of  2) 
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Figure  2-20.  IRAN  File  Generktion  Record  Layouts  (Sheet  2 of  2) 


the  serial  numbers  match,  the  acceptance  date  is  moved  to  the  output  record  temporary 
storage  area. 

All  data  pertaining  to  the  current  IRAN  event  is  moved  to  the  output  area.  If  the 
acceptance  data  and  IRAN  start  date  are  available,  the  aircraft  age  is  calculated.  If 
IRAN  start  and  finish  dates  are  available,  the  IRAN  duration  is  calculated.  The  next 
IRAN  event  card  is  read  into  the  output  area  fields  pertaining  to  the  next  IRAN.  The 
serial  number  and  start  and  finish  dates  are  converted,  and  cumulative  fli^t  hours 
are  calculated.  The  serial  numbers  are  again  compared;  if  they  match,  the  IRAN 
interval  data  in  days,  weeks,  and  flight  hours  is  calculated. 

The  output  is  written  on  tape  and  printed  in  the  report.  If  the  last  event  card  read 
was  for  the  current  serial  number,  the  next  event  card  is  read  and  the  second  half  of 
this  procedure  is  repeated.  If  the  last  event  card  read  was  for  a different  serial 
number,  the  entire  procedure  beginning  with  retrieval  of  an  acceptance  date  record  is 
repeated.  This  cycle  is  continued  until  all  IRAN  event  cards  have  been  read  and 
processed. 

All  fields  for  which  data  is  missing  are  filled  with  the  value  zero.  This  will  occur  for 
the  information  on  next  IRAN  and  IRAN  interval  for  the  last  IRAN  for  each  serial  num- 
ber and  if  particular  elements  of  input  data  are  missing. 

2. 5. 2. 2 Input  Data  and  Procedures.  The  input  consists  of  IRAN  acceptance  date  data 
previously  described  and  IRAN  event  data  cards.  The  following  is  a description  of  the 
input  for  IRAN  event  data  (one  card  for  each  IRAN  event  for  each  aircraft). 


Column 

Data 

1-2 

First  two  digits  of  serial  number 

3-6 

Last  four  digits  of  serial  number 

7 

Aircraft  series  designation  (A  or  B) 

10-11 

Month  of  IRAN  start  date* 

12-13 

Day  of  IRAN  start  date* 

14-15 

Two-digit  year  of  IRAN  start  date 

17-18 

Month  of  IRAN  completion  date* 

19-20 

Day  of  IRAN  completion  date* 

21-22 

Two-digit  year  of  IRAN  completion  date 

♦Values  must  be  punched  right-justified  within  these  fields.  The  values  may  have 
leading  zeros  or  blanks. 


Column 


Data 


27-30  Cumulative  aircraft  flight  hours  at  start  of  IRAN  (whole  hours)* 

32  Cumulative  aircraft  flight  hours  at  start  of  IRAN  (tenths  of  an 

hour  — Column  31  may  contain  a decimal  point) 

35-36  IRAN  type  code: 

10  = full  IRAN 

11  = ACI 

20  = essential  IRAN 
30  = limited  IRAN 

61  = Speedline  1 (equivalent  to  20) 

62  - Spcedline  2 (equivalent  to  20) 

63  = Speedline  3 (equivalent  to  30) 

70-73  Manhours  of  labor  in  IRAN* 

The  IRAN  event  data  cards  must  be  sorted  into  ascending  serial  number  and  event 
date  order.  The  following  is  a sample  card  input. 


57  230A 

091064 

111664 

834.7 

10 

57  230A 

100465 

110965 

1041.1 

20 

57  23 OA 

100768 

122468 

1924.8 

10 

4245 

57  231A 

092864 

120164 

920.5 

10 

57  231 A 

101465 

111765 

1189.1 

20 

57  231A 

112068 

030669 

2004.7 

10 

4507 

57  232A 

111565 

011766 

989.6 

20 

57  232A 

112067 

022168 

1478.7 

10 

57  232A 

021670 

032970 

2036.6 

10 

4140 

57  235A 

070665 

080665 

1002.3 

20 

57  235A 

072666 

091906 

1211.0 

30 

57  235A 

100266 

123066 

1233.1 

20 

3676 

57  235A 

032169 

052969 

1749.3 

10 

4463 

2. 5. 2. 3 Output  Description.  The  output  consists  of  a magnetic  tape  file  (Prcproccsscd 
IRAN  file)  and  a corresponding  printed  IRAN  report.  The  output  tape  records  are 
80-character  records  formatted  as  follows. 


♦Values  must  be  punched  right- justified  within  these  fields.  The  values  may  have 
leading  zeros  or  blanks. 


Position 


Data 


I- 8  Serial  number 

9 Aircraft  series  (A  or  B) 

II- 15  Acceptance  date  day  number 

17  Visit  number 

19-20  IRAN  type  code  (see  description  under  IRAN  event  data  input 

formats) 

22-26  Cumulative  aircraft  flight  hours  and  tenths  at  start  of  IRAN 

28-30  Aircraft  age  in  weeks  at  start  of  IRAN 

32-35  IRAN  start  date  day  number 

37-40  IRAN  completion  date  day  number 

42-44  Duration  of  IRAN  (days) 

46-49  Manhours  of  labor  in  IRAN 

51-52  Next  IRAN  t3T)e  code  (see  description  under  IRAN  event  data 

input  formats) 

54-58  Cumulative  aircraft  flight  hours  and  tenths  at  start  of  next  IRAN 

60-63  Next  IRAN  start  date  day  number  ; 

65-68  IRAN  interval  (days)  ^ 

70-72  IRAN  interval  (weeks)  j 

74-78  IRAN  interval  (flight  hours  and  tenths) 

Tape  output  records  consist  of  80  characters,  blocked  30  to  a tape  record.  Figure  | 

2-20  shows  the  record  layout;  Figure  2-21  is  a sample  of  the  tape  output.  j 

The  printed  output  is  a report  containing  the  same  data  fields  (in  the  same  order)  as 
the  tape  output,  plus  the  start  and  completion  dates  of  the  IRAN.  The  printed  output 
report  consists  of  120-character  data  records,  blocked  25  to  a tape  record.  Figure 
2-20  shows  the  record  layout,  and  Figure  2-22  is  a sample  of  the  printed  output  reiwi't 
tape.  For  the  F-106  fleet,  processing  of  265  records  took  approximately  one  minute 
on  the  IBM  370. 

2.5.3  IRAN  COPY  ACCEPTABLE  AIRCRAFT 

2. 5. 3.1  Purpose.  The  purpose  of  the  IRAN  Copy  Acceptable  Aircraft  program  is  to 
select  acceptable  aircraft  serial  numbers  for  input  to  the  data  bank. 
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Figure  2-21.  Sample  Tape  Output  — IRAN  File 
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Figure  2-22.  Sample  Tape  Output  — IRAN  Print  Report 


2. 5. 3. 2 Input  Data  and  Procedures.  The  JCL  cards,  the  program,  and  a sample  of 
card  data  input  are  shown  in  Paragraph  6.4.3.  The  input  consists  of  the  Preprocessed 
IRAN  file  and  a card  deck  defining  the  acceptable  aircraft  serial  numbers.  The  input 
card  deck  and  operation  of  the  program  are  identical  to  that  for  the  AFM  66-1  file  in 
Paragraph  2 . 2 . 5 . 2 . 

2. 5. 3. 3 Output  Description.  The  record  layout  is  described  in  Figure  2-20,  and  a I 

sample  of  the  tape  output  is  shown  in  Figure  2-21  .>  The  IRAN  file  of  562  records  was  ] 

copied  in  one  minute  of  elapsed  computer  time.  j 
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SECTION  3 


DATA  BANK  GENERATION 

3.1  GENERAL  DESCRIPTION 

Generation  of  the  Data  Bank  requires  six  input  files: 

a.  AFM  66-1  Data  File 

b.  AFM  65-110  Data  File 

c.  AIE  Data  File 

d.  IRAN  Data  File 

e.  WUC  Data  File 

f.  Data  Bank  Control  Data 

Preparation  of  the  first  four  files  was  covered  in  Section  2.  This  section  is  concerned 
with  the  preparation  of  the  WUC  data  file,  the  Data  Bank  Control  Data,  the  Data  Bank 
program,  and  the  WUC  Conversion  program.  Preparation  of  the  WUC  data  file  was 
made  more  complex  because  of  revisions  in  WUC  designation  during  the  period  which 
the  Data  Bank  covers.  Additional  programs  have  been  developed  to  first  check  the 
WUCs  that  are  processed  in  the  Data  Bank,  then  to  convert  the  WUCs  prior  to  the 
changeover  to  the  new  designation.  The  logic  flow  for  generating  the  Data  Bank  is 
shown  in  Figure  3-1. 

3.2  WUC  FILE  GENERATION 

The  WUC  data  file  comprises  the  five-digit  WUC  records  and  must  be  sorted  into 
ascending  order  on  the  work  unit  code  field.  The  Data  Bank  program  uses  the  WUC 
file  as  one  of  the  input  files.  (See  Figure  3-1.)  If  the  WUC  designation  is  changed 
during  the  period  covered  by  the  Data  Bank,  the  Acceptable  WUC  representing  the 
codes  will  be  printed  in  the  final  output.  The  logic  flow  of  the  WUC  file  generation  is 
shown  in  Figure  3-2.  If  there  are  no  changes  in  WUC  designations,  the  Sort  WUC  for 
Conversion  and  WUC  Merge  steps  should  be  bypassed,  and  the  WUC  for  conversion  as 
input  data  would  not  be  available. 

3.2.1  SORT  ACCEPTABLE  WUC 

3. 2. 1.1  Purpose.  This  IBM  Utility  program  sorts  the  Acceptable  WUC  data  into  an 
ordered  file. 
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Acceptable 

WORK  UNIT 
CODE 


WUC  FOR 
CONVERSION 


^AFMN 

66-1 

DATA 

sFILEy 


Afm\ 

65-110' 
DATA  i 
sFILEy 


AIE 

DATA 

FILE 


IRAN 

DATA 

FILE 


Figure  3-2.  Logic  Flow  - WUC  File  Generation 
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3. 2. 1.2  Input  Data  and  Procedures.  The  job  control  language  (JCL)  for  the  IBM  utility 
program  and  a sample  of  card  data  input  for  use  on  the  IBM  370  are  shown  in  Paragraph 
6.5.1.  The  format  of  the  input  data  is  given  in  Figure  3-3,  and  the  listing  of  WUCs  used 
in  the  F-106  Scheduled  Maintenance  Stutfy  is  given  in  Table  3-1.  The  20-character  data 
record  is  the  minimum  record  length  accepted  by  the  IBM  370  Sort  Utility  program  at 
Convair  Aerospace.  The  Sort  key  is  defined  as  a character  field,  in  ascending  order 
on  Columns  1 throu^  5. 


Figure  3-3.  Format  of  WUC  Record 


3. 2. 1.3  Output  Description.  The  sample  output.  Figure  3-4,  has  20-character  data 
records,  blocked  50  to  a tape  record.  The  time  required  to  sort  the  2043  WUCs  for  the 
F-106  Scheduled  Maintenance  Study  was  less  than  one  minute  on  the  IBM  370  computer. 

3.2.2  SORT  WUC  FOR  CONVERSION 

3. 2. 2. 1 Purpose.  When  the  WUC  designations  have  been  changed  during  the  period 
covered  by  the  data  bank,  it  is  essential  that  the  list  of  Acceptable  WUCs  includes 
codes  that,  although  obsolete  and  superseded  at  the  end  of  the  period,  had  validity  at 
the  start  of  the  data  bank  period.  This  program  sorts  these  obsolete  WUCs  in  the 
identical  sequence  as  the  list  of  Acceptable  WUC  prior  to  merging  of  the  two  files. 

3. 2. 2. 2 Input  Data  and  Procedures.  The  JCL  for  the  IBM  Utility  program  and  a 
sample  of  card  data  inputs  for  use  with  the  IBM  370  are  shown  in  Paragraph  6.5.2. 

The  format  of  the  input  WUC  to  be  converted  is  shown  in  Figure  3-5.  This  program 
only  uses  the  Old  WUC  (i.e.,  the  one  to  be  added  to  the  data  bank)  but  the  WUC  to 
supersede  it  is  also  included  on  the  input  card  deck,  enabling  the  same  file  to  be  used 
in  a subsequent  program.  The  listings  of  the  "Old  WUC,"  (those  to  be  replaced)  and 
the  "New  WUC"  (those  to  supersede  the  old  one  used  in  the  F-106  Scheduled  Mainte- 
nance Study)  are  given  in  Tables  3-2  and  3-3.  The  sort  data  is  defined  as  a character 
field,  in  ascending  order  in  Columns  2 throu^  6. 
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Table  3-2.  WUC  Conversion  — Work  Unit  Codes  for  Deletion,  Continued 
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Table  3-3.  WUC  Conversion  — Work  Unit  Codes  for  Conversion,  Continue! 
(WUC  in  the  first  column  to  be  replaced  by  WUC  in  the  right-hand  column) 
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3.2. 2.3  Output  Description.  The  sample  output.  Figure  3-6,  has  80 -character  data 
records,  blocked  20  to  a tape  record.  The  time  required  to  sort  the  221  F-106  WUCs 
was  less  than  one  minute  on  the  IBM  370  computer. 

3.2.3  WUC  MERGE 

3.2.3. 1 Purpose . When  the  WUC  designations  have  been  changed  during  the  period 
covered  by  the  data  bank,  the  list  of  Acceptable  WUCs  must  include  codes  that, 
although  obsolete  and  superseded  at  the  end  of  the  period,  had  validity  at  the  start 
of  the  data  bank  period.  This  COBOL  program  adds  these  obsolete  WUCs  to  the  list 
of  Acceptable  WUCs. 

3. 2. 3. 2 Input  Data  and  Procedures.  The  program  listing  and  the  associated  JCL  for 
use  with  the  IBM  370  are  shown  in  Paragraph  6.5.3.  The  input  comprises  two  files; 
Acceptable  WUC  and  WUC  Conversion.  The  record  layouts  are  shown  in  Figures  3-3 
and  3-5,  respectively.  Both  input  files  must  be  sorted  before  using  with  the  WUC 
merge  program. 

3. 2. 3. 3 Output  Description.  The  output  comprises  the  Acceptable  WUCs  and  the 

Old  WUCs,  merged  to  form  a file  to  use  as  input  to  the  Data  Bank  program.  The  output 
record  layout  and  blocking  factor  are  identical  to  that  of  the  Acceptable  WUC  shown 
in  Figure  3-3. 

3.3  DATA  BANK  PROGRAM 

3.3.1  PURPOSE . The  Data  Bank  program  processes  the  input  data  files  to  produce 
a data  bank  for  statistical  analysis.  The  program,  written  in  COBOL,  provides  the 
logic  to  control  the  input  files  so  as  to  merge  all  data  for  a particular  aircraft  serial 
number  into  one  of  four  output  data  formats.  The  basic  time  unit  for  all  records  is 
one  week.  Only  input  data  records  having  a WUC  listed  in  the  Acceptable  WUC  file, 
the  3-digit  WUC  file,  or  a scheduled  or  Special  Inspection  code  is  used  to  construct 
the  data  bank  output  records . 
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Figure  3-6.  Sample  Output  — Sort  Converted  WUC 


3.3.2  INPUT  DATA  AND  PROCEDURES.  The  program,  a sample  of  card  data  input, 
and  the  associated  job  control  language  (JCL)  for  use  with  the  IBM  370  are  shown  in 
Paragraph  6.5.4.  The  input  to  the  program  comprises  five  input  data  files  and  the 
control  data.  The  five  input  files  are: 


a.  AFM  66-1  Data  File 

b.  AFM  65-110  Data  File 

c.  IRAN  Data  File 

d.  AIE  Data  File 

e.  WUC  Data  File 


The  control  data  consists  of  a deck  of  cards  with  the  following  format. 


Card  Type  Column 

a 1-2 

6-7 
11-18 

28-30 

32 

33-35 

36-40 

b 1-3 


c 1 

d 1-3 

4-6 


e 


1 


f 

g 

h 


1-3 

1-3 

1-3 

7-10 


Description 

Scheduled  Inspection,  2-Digit  WUC 

Special  Inspection,  2-Digit  WUC 

First  Aircraft  Serial  Number  to  be 
Processed 

Last  Week  Number  to  be  Processed 

Mission  of  Aircraft 

Design  of  Aircraft 

Number  of  Aircraft  to  be  Processed 

Number  of  Action-Taken  Codes  (ATC)  to 
Process 

Action- Taken  Code  (Number  of  Cards  Set 
by  Card  b) 

Number  of  Maintenance  Codes  for  NORM 
and  NORS  Hours 

Number  of  Maintenance  Codes  for  NORM 
Hours  only 

Maintenance  Codes  (NORM  Codes  First) 
(Number  of  Cards  Set  by  Col.  1-3  of  Card  d) 

Number  of  3 -Digit  WUCs  to  be  Processed 
3-Dlglt  WUC  (Number  Set  by  Card  f) 

Number  of  2-Digit  WUC  Groups 
Number  of  5-Digit  WUCs  to  be  Processed 
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Card  Type 

Column  Number 

Description 

i 

1-2 

2-Digit  WUC  Group  Identification  (ID) 
(Number  of  Cards  Set  by  Card  h) 

6-10 

Position  in  WUC  file  of  First  WUC  with 
Corresponding  2-Diglt  WUC  Group  ID 

11-15 

Position  in  WUC  file  of  Last  WUC  with 
Corresponding  2-Digit  WUC  Group  ID 

A sample  set  of  input  data,  used  for  the  F-106  Scheduled  Maintenance  Study,  is  given 
in  Figure  3-7.  All  numbers  should  be  right-justified  within  their  designated  fields. 

It  is  also  important  that  the  Maintenance  Codes,  card  type  e,  be  arranged  such  that 
codes  corresponding  to  NORM  hours  be  placed  ahead  of  the  codes  corresponding  to 
NORS  hours. 

The  Data  Bank  program  first  opens  all  input  and  output  files  and  reads  the  control 
data.  The  four  data  files  are  then  updated  to  the  first  aircraft,  and  then  to  the  first 
week  for  which  both  AFM  66-1  and  AFM  65-110  data  is  available.  All  four  files  are 
then  processed,  merging  data  with  a time  step  of  one  week.  Processing  is  terminated 
when  the  day  number  in  the  files  reaches  the  day  corresponding  to  the  Last  Week, 
when  the  next  aircraft  is  processed.  This  continues  until  either  the  end  of  the  65-110 
or  66-1  files  or  the  number  of  aircraft  to  be  processed  is  exceeded.  On  completion, 
the  output  tape  record  is  filled  with  nines,  and  all  files  are  closed. 

The  program  is  suitable  for  use  with  the  appropriate  processed  data  files  for  any  USAF 
aircraft  with  the  following  program  dimension  limitations. 


a. 

Number  of  Action-Taken  Codes 

5 Maximum 

b. 

Number  of  Maintenance  Codes 

17  Maximum 

c. 

Number  of  3-Digit  WUCs 

7 Maximum 

d. 

Number  of  2-Digit  WUC  Groups 

22  Maximum 

e. 

Number  of  WUCs 

3000  Maximum 

f. 

Number  of  Type  3 Output  Records  for 
Serial  Number  - Week 

250  Maximum 

g. 

Number  of  Type  4 Output  Records  for 
Serial  Number  - Week 

250  Maximum 

3.3.3  OUTPUT  DESCRIPTION.  The  sample  output.  Figure  3-8,  shows  examples  of 
the  four  types  of  output  records;  the  format  of  the  data  records  is  given  in  Figure 
3-9.  The  source  of  each  data  item  in  the  four  output  record  tyjics  is  listed  in  Tal)lc 
3-4. 
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Figure  3-7.  Sample  Input  — Data  Bank  Control 
3-19 


•0  COLUMN  GCNCML  PUNNOSE  FOMit 


as  m 

_.*•» 

«4 

tiacttti 

1 1 

1 1 1 1 1 t 1 1 1 t 

imniHf 

iiiHmiiiiiiiiiniiwniHiMUHHUnn 

■ .... 

mNHiii 
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HHHHH 

HHHHHi 

7^  . . . 

.ti.Vb.  . 
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HHIHHi 

HHHHB 
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43 . ■ . 

ZiM 

miHMii 
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HmHm 

Hmmii 
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47  ■ ■ • 

aaoi. 

MHRlII 

MMMM 

nmmH 

Hmmii 

HHHIHI 

HimHH 

Miiiiiiii 

iHPMHil 

Hupum 

Hmmii 

mmmi 

iplipjiip 

mSBSSm 

miiiHii 

HIHilHI 

HNIIIHI' 

W—l 

HHmm 

HHHHWI 

mmHHi 
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Figure  3-7.  Sample  Input  — I>ata  Bank  Control,  Continued 


Experience  with  the  files  generated  for  the  F-106  Sdieduled  Maintenance  Study,  with 
ISO  aircraft  for  approximately  150  weeks,  produced  an  ou^ut  file  with  609,691  records 
and  required  31  minutes  of  IBM  370  time.  The  maximum  number  of  l^'pe  3 and  l^e  4 
records  for  a particular  Serial  Number-Week  combination  was  98  and  111,  respectively. 
The  output  file  required  one  reel  of  magnetic  tape. 


3.4  WUC  CONVERSION 


The  group  of  programs  is  necessary  to  change  WUCs  within  records  if  their  designa- 
tions have  changed  within  the  period  covered  by  the  data  bank.  The  logic  flow  for  this 
groiq>  of  programs  is  indicated  in  Figure  3-10. 

3.4.1  SORT  WUC  FOR  CONVERSION 

3.4. 1.1  Purpose.  This  IBM  Utility  program  sorts  the  WUCs  that  are  to  be  changed 
before  the  week  of  the  designation  change  into  an  ordered  file. 

3.4. 1.2  Input  Data  and  Procedures.  The  JCL  cards  for  the  IBM  Utility  pprgram  and 
the  data  used  on  the  F-106  Scheduled  Maintenance  Study  are  listed  in  Paragraph  6.515. 
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Figure  3-8.  Sample  Output  — Data  Bank 


Figure  3-9.  Record  Layouts  — Data  Bank 


Table  3-4.  Data  Item  Source 


Column 

1-5 

6-13 

14-16 

29-32 

36-39 

40-43 

49 

50 

Column 

1-5 

6-13 

14-16 

26-28 

36-39 

40-43 

49 

50 

Column 

1-5 

6.13 

14-16 

17-21 


26-28 

29-32 

33-33 

36-39 

40-43 

44-46 

49 

50 

Column 

1-5 

6-13 

14-16 

17-21 

22 

23-25 

26-28 

29-32 

49 


Nomenclaturo 

MDS 

Serial.  Number 

Week-Number 

Flight-Hours 

Sorties 

Landings 

Record  ID 

Record  Mark 

Nomenclature 

MDS 

Serial-Number 

Week-Number 

IRAN-Vlslt-No. 

IRAN-SUrt-Day 

IRAN-Cnd-Day 

Record  ID 

Record  Mark 

Nomenclature 

MDS 

Serial-Number 

Week-Number 

WUC 


Maintenance  Action 
Labor  Hours 
AIE 

NORM  Hours 

NORS  Hours 

A TC  Maintenance 
Actions 

Record  ID 
Record  Mari; 

Nomenclature 

MDS 

Serial-Number 

Week-Number 

WUC 

WDC 

HMC 

Maintenance  Acti<m 

lAbor 


RECORD  TYPE  1 

Source  Data 

Input  Control  Data 
Any  Input  File 

Computed  From  Day-Number  from  Any  Input  File 

Sum  for  the  Serial  Number-Week  of  Columns  31-33  on  65-110  type  3-9  records 
Sum  for  the  Serial  Number-Week  of  Columns  36-37  on  65-110  type  3-9  records 
Sum  for  the  Serial  Number-Week  ol  Columns  34-35  on  65-110  type  3-9  records 
Set  to  1 

RECORD  TYPE  2 

Source  Data 

Input  Control  Data 
Any  Input  File 

Computer  from  Day-Number  from  Any  Input  File 
Value  for  the  Serlat-Number-Week  from  IRAN  File,  Columns  10-20 
Value  for  the  Serial-Number-Weck  from  IRAN  File,  Columns  32-35 
Value  for  the  Serial-Number-Week  from  IRAN  File,  Columns  37-40 
Set  to  2 

HECORD  TYPE  3 

Source  Data 

Input  Control  Data 
Any  Input  File 

Computed  from  Doy-Numljer  from  Any  Input  File 
Data  Records  lor  Serial- Number- Week  lor  the  Files; 

a.  65-110  File,  Type  2 Records,  Columns  34-38 

b.  66-1  File,  Columns  46-50 

c.  AIE  File,  Columns  10-14 

The  Sum  of  66-1  File,  Columns  56-57  for  the  Sei  lal-Numbcr-Weck-WUC  Combination 
The  Sum  of  66-1  Flic,  Columns  58-Cl  for  the  Serlal-Nurr’s  r-Woek-WUC  Combination 
The  Number  of  AIE  Records  for  the  Serlul-Numbor-Week-WUC  Combination 

The  Sum  of  65-110  File,  Ty|>e  2 Records,  Columns  31-33  for  the  Serial  Number- Week- 
WUC  and  Maintenance  Code,  Column  39,  Corresjxmdlng  to  NORM  Codes 

The  Sum  of  65-110  File,  Type  2 Records,  Columns  31-33  for  the  Serial-Number- Week 
WUC  snd  Maintenance  Code,  Column  39,  Corresjwnding  to  NORS  Corle 

The  Sum  of  66-1  File  Columns  56-57  for  the  Selected  ATC  from  the  Input  DitUi  for  the 
Serlttl-Number-Week-WUC  Combination 

Set  to  3 


RECORD  TYPE  4 

Source  Data 

Input  Control  Data 
Any  Input  File 

Computed  from  Dsy-Number  from  Any  InfMit  File 

For  the  Scrlal-Number-Wcek  Combination,  66-1  File,  Columns  46-50 

For  the  Serlal-Number-Week-WUC  Combination  6€-l  File,  Column  52 

For  the  Serlal-Number-Week-Wl^C  WDC  Combination,  66-1  File,  Columns  53-55 

The  Sum  for  the  Serlsl-Numbor-Week-WUC-WDC-HMC  Combination,  06-1  File, 
Columns  56-57 

The  Sum  for  the  SerlsI-Numbor-W’eek-WlJC-WDC-HMC  Combination,  66-1  File, 
Columns  66>  61 


1 

I 


i 


50 


Record  ID 
Record  Mark 


Setto4 
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Figure  3-10.  Logic  Flow  — WUC  Conversion 

The  input  consists  of  a tape  containing  the  WUC  using  the  format  of  Figure  3-5  and 
should  be  identical  to  the  one  used  in  Paragraph  3.2.2  and  the  card  data  defining  the 
sort  field.  This  is  defined  as  a character  field  in  ascending  order.  The  sort  field  is: 

Field  Column  Number  Description 


1 2-6  Old  WUC 


3.4.1. 3 Output  Description.  The  sample  output.  Figure  3-11,  has  80  characters  to 
a data  record,  blocked  20  to  a tape  record.  The  sort  for  the  170  WUCs  to  be  con- 
verted on  the  F-106  Data  Bank  required  less  than  one  minute  of  IBM  370  computer 
time. 

3.4.2  SORT  WUC  FOR  DELETION 

3.4. 2. 1 Purpose.  This  IBM  Utility  program  sorts  the  WUCs  (which  are  to  be  deleted 
when  occurring  in  records  before  the  week  of  the  change  of  WUC  designation)  into  an 
ordered  file . 

3. 4. 2. 2 Input  Data  and  Procedures.-  The  JCL  cards  for  the  IBM  Utility  pi’ogram  and 
the  data  cards  used  on  the  F-106  Scheduled  Maintenance  Study  are  shown  in  Pai  agraph 

6. 5.6. 
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Figure  3-11.  Sample  Output  — Sort  WUC  for  Conversion 


Format  of  the  input  tape  records  Is  shown  in  Figure  3-12.  The  sort  control  cards 
are  identical  to  those  in  Paragraph  3.4. 1.1. 

3.4. 2. 3 Output  Description.  The  sample  output  is  shown  in  Figure  3-13.  The  sort 
for  the  221  WUCs  to  be  deleted  in  the  F-106  Data  Bank  required  less  than  one  minute 
of  IBM  370  time. 

3.4.3  VERIFY  WUC 

3.4.3. 1 Purpose.  This  program,  written  in  COBOL,  provides  two  functions.  First, 
it  performs  a logical  check  on  the  two  lists  of  WUCs  previously  prepared.  If  these  lists 
are  verified,  it  then  proceeds  to  change  and  delete  records  within  the  Data  Bank 
according  to  the  two  input  files. 

3. 4. 3. 2 Input  Data  and  Procedures.  The  program,  a sample  of  card  data  input,  and 
the  associated  JCL  for  the  IBM  370  are  shown  in  Paragraph  6.5.7. 

The  input  +o  the  program  consists  of  the  data  bank  from  the  Data  Bank  program,  WUC 
conversio..  file,  WUC  Delete  file,  and  a control  card  defining  the  two-digit  code  to  be 
processed  and  the  date  of  the  WUC  designation  change.  This  control  card  has  the 
following  format. 


Column 


1-3 

Week 

5-6 

First 

Description 

of  WUC  Designation  Change 
Two  Digits  of  WUC  to  be  Changed 


Figure  3-12.  Record  Layout  — WUC  for  Deletion 
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Figure  3-13.  Sample  Output  — Sort  WUC  for  Deletion 


A sample  ii^>ut,  used  in  the  F-106  Sdieduled  Maintenance  Study,  Is  shown  in  Figure 
3-14.  Week  280  corresponds  to  May  1970,  vdien  the  Air  Force  revised  the  F-106 
WUC  callouts  for  System  74. 

As  shown  in  Figure  3-10,  the  program  first  reads  the  WUC  Delete  file,  containing 
the  list  of  WUCs  to  be  deleted  from  the  data  bank  generated  from  the  Data  Bank  pro- 
gram. Then  the  WUC  Conversion  file  is  read.  (The  Conversion  file  contains  a list 
of  WUCs  to  be  replaced  and  a list  of  the  replacing  WUCs. ) The  week  of  WUC  change 
is  contained  in  the  control  card  previously  mentioned. 

The  program  then  checks  the  logical  consistency  of  the  WUCs  on  these  two  input  files. 
After  consistency  is  verified,  the  program  reads  the  data,  bank  generated  from  the 
Data  Bank  program  to  delete  those  records  with  the  WUCs  matching  those  in  the  WUC 
Delete  file  and  to  convert  those  records  with  WUCs  matching  those  in  the  WUC  Con- 
version file. 


ao  COLUMN  GENERAL  PURPOSE  FORM 


Figure  3-14.  Sample  Input  — Verify  WUC 


The  program  is  suitable  for  use  with  the  Data  Bank  file  for  any  USAF  aircraft  (with  the 
following  program  dimension  limitations). 

a.  WUCs  to  be  changed  300  Maximum 

b.  WUCs  to  be  deleted  300  Maximum 

3.4. 3.3  Output  Description.  The  output  has  the  identical  format  to  that  of  the  Data 
Bank  program  shown  in  Figure  3-9.  If  the  two  WUC  lists  are  verified,  the  number  of 
records  processed,  passed,  changed,  and  dropped  are  displayed  on  the  console.  If 
the  WUC  lists  are  not  correct,  the  errors  are  listed  on  an  output  file.  It  took  eight 
minutes  of  IBM  370  time  to  run  the  Verify  WUC  program  for  the  F-106  fleet. 


SECTION  4 


STATISTICAL  ANALYSIS  PROGRAMS 

4.1  GENERAL  DESCRIPTION 

A group  of  programs  has  been  developed  to  perform  various  statistical  analysis  tasks 
using  the  data  bank  as  input.  (Section  3 contains  the  details  of  the  data  bank  generation. ) 
Relationship  of  the  statistical  analysis  program  is  shown  in  Figure  4-1.  The  tasks 
solved  by  the  statistical  analysis  programs  are; 

a.  Frequency  Analysis  (Task  I). 

b.  Manhour  and  NOR  Time  Analysis  (Task  II). 

c.  Interval  Length  Analysis  (Task  III). 

d.  Effect  of  Time  after  Inspection  (Task  IV). 

e.  Removal  Action  Analysis  (Task  V). 

f.  Aircraft  Inspection  Histories. 


Figure  4-1.  Logic  Flow  — Statistical  Analysis  Programs 
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A set  of  programs,  called  Preprocessor,  was  developed  to  sort  and  reformat  the  in- 
put data  bank  (Figure  4-1)  into  three  output  files  which,  in  turn,  were  used  to  input 
the  six  major  program  modules.  The  three  output  files  from  the  F>reprocessor  are: 

a.  Sorted  Data  Bank. 

b.  Non-support  General  File. 

c.  Support  General  File. 

Preprocessor  programs  are  discussed  in  detail  in  Paragraph  4. 2.  Programs  for 
various  statistical  analysis  tasks  and  Aircraft  Inspection  Histories  are  discussed  in 
Paragraphs  4. 3 through  4. 8. 

4.2  PREPROCESSOR  PROGRAMS 

The  Preprocessor  programs  were  developed  to  reformat  and  sort  the  input  data  bank 
into  three  output  files  (Figure  4-2).  All  Preprocessor  programs  were  developed  for 
the  IBM  370  and  have  been  written  to  be  compatible  with  SAAMA  computers.  The  Pre- 
processor Formatter  program  was  written  using  (ANS)  COBOL.  Sorting  is  accom- 
plished by  using  a standard  IBM  utility  sort  program. 


REFOnMATTED 
DATA  RANK 


Figure  4-2.  Logic  Flow  — Preprocessor  Programs 
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4.2.1  PREPROCESSOR  FORMATTER 


4.2.1. 1 Purpose.  The  Preprocessor  Formatter  program  was  developed  to  summar- 
ize and  reformat  data  records  from  the  input  data  bank  file  into  three  output  files, 
which  are  then  sorted  and  used  as  input  to  subsequent  programs  (Figure  4-2). 

4. 2. 1.  ? Input  Data  and  Procedures.  The  combined  listing  of  the  program  and  JCL 
cards  is  shown  in  Paragraph  6.6. 1.  The  data  bank  file,  created  by  the  Data  Bank 
programs  or  the  work  unit  code  (WUC)  convert  program,  is  the  input  to  the  Prepro- 
cessor Formatter  program.  The  input  data  records,  consisting  of  four  record  types, 
have  been  organized  in  a sequence  of  aircraft  serial  number,  week  number,  and 
record  type.  (See  Figure  3-9  for  the  D.ata  Bank  Record  layout. ) 

The  Preprocessor  Formatter  program  reformats  data  records  by  transferring  flight 
hours  from  Type  1 records  to  Type  3 and  Type  4 records.  Also,  flight  hours,  sorties, 
and  landings  from  Type  1 records  are  summed  within  an  aircraft  serial  number  for  a 
given  week  and  transferred  to  Type  3 and  'fype  4 records. 

All  Type  2 records  are  skipped  by  the  Preprocessor  program.  For  a specific  serial 
number  for  a given  week,  there  will  be  no  more  than  one  Type  1 record  and  no  more 
than  250  lype  3 or  Tj^pe  4 records.  Figure  4-3  shows  the  detailed  program  logic. 

1.3  Output  Description.  Output  from  the  Preprocessor  Formatter  program  con- 
sists of  three  files  containing  either  Type  3 or  Type  4 records  or  both  (Figure  4-4). 

" 'pes  (’  itain  70-character  data  records,  blocked  40  to  a record.  The  three  files 
' c: 


.1.  The  Reformatted  Data  Bank  file  (Type  3 and  Type  4 records)  from  which  b and 
c are  separated. 

b.  The  Support  Oencral  file  (Type  3 records  only)  with  WUC  prefixes  of  03  and  04. 

c.  The  Non-Support  General  file  (Type  3 records  with  WUC  prefixes  greater  than 
09  and  Type  4 records). 

A''  additional  output  is  the  record-keeping  listing,  which  gives  Input/Output  Totals 
^^igure  t-5)  and  Aircraft-Level  Subtotals  (Figure  4-6). 

The  single-line  input/output  totals  in  Figure  4-5  are  described  in  the  following  fields. 

Field  Column  Description 

Data  Record  Input 

3 and  4 Data  Records  Input 
Number  of  Aircraft 


1 2-8 

2 10-16 

3 18-20 


Figure  4-3.  Logic  Flow  — Preprocessor  Formatter  Program 


RECORDS  AND  WORK  AREAS 


Figure  4-4,  Preprocessor  Tape  Record  Layouts 
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Figure  4-5.  Sample  Output  — Record-Keeping  (Liput/Output  Totals) 
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Figure  4-6.  Sample  Output  — Record  Keeping  (Aircraft- Level  Subtotals) 


Field 

Column 

Description 

4 

22-28 

S’jpport  General  Data  Records  Output 

5 

30-36 

Non-Support  General  Data  Records  Output 

6 

38-44 

Type  1 Records  Input 

7 

46-52 

TVPe  3 Records  Input/Output 

8 

54-60 

Type  4 Records  Input/Output 

Aircraft- 

Level  Subtotals  fields  arc; 

Field 

Column 

Description 

1 

2-7 

Total  Flight  Hours 

2 

9-13 

Total  Sorties 

3 

15-19 

Total  Landings 

4 

21-26 

Type  1 Records 

5 

28-34 

Type  3 Records 

6 

36-42 

Type  4 Records 

7 

44-51 

Aircraft  Serial  Number 

8 

53-58 

Support  General  Records 

9 

60-65 

Non-support  General  Records 

For  the  150-aircraft  F-IOG  fleet,  the  Preprocessor  Formatter  program  requires  ap- 
prn;;imatoly  ten  minutes  of  IBM  370  computer  clock  time  and  two  minutes  of  central 
processor  unit  (CPU)  time.  The  input  volume  is  604,677,  the  reformatted  Data  Bank 
output  volume  is  587,255,  the  reformatted  Support  General  volume  is  83,293,  and  the 
reformatted  Non-support  General  volume  is  503,962. 

4 2.2  REFORMATTED  SUPPORT  GENERAL  WUC  SORT 

4.  2.  2. 1 Ihirpose.  This  IBM  utility  program  sorts  the  Support  General  data  records 
into  an  ordered  file  for  subsequent  use  on  Task  IV  Statistical  Programs  and  the  Aircraft 
Inspection  Histories  Plot  Program. 

4.2. 2.2  Input  Data  and  Procedures.  The  combined  listing  of  the  program  and  JCL 
cards  is  shown  in  Paragraph  6.6.2.  The  sort  fields,  in  order  of  hierarchy,  are: 


Field 

Column 

Description 

1 

6-13 

Serial  Number 

4-7 


Field 


Column 


Description 


14-16 

17-21 


Week 

Work  Unit  Code 


The  input  tape  record  layout  is  shown  in  Figure  4-4.  Only  record  TVpe  3 data  is  sorted. 

4. 2. 2. 3 Output  Description.  Sorting  the  Support  General  file  of  83,293  data  records 
took  approximately  two  minutes  of  elapsed  time  and  30  seconds  of  CPU  time  (IBM  370), 

A sample  of  the  sorted  output  is  shown  in  Figure  4-7. 

4.2.3  REFORMATTED  NON-SUPPORT  GENERAL  WUC  SORT 

4. 2.3.1  Purpose.  This  IBM  utility  program  sorts  the  Non-support  General  data  records 
into  an  ordered  file  for  subsequent  use  on  Task  IV  Statistical  Programs. 
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Figure  4-7,  Sample  Output  — Support  General  WUC  Sort 


4-8 


4,  2. 3. 2 Input  Data  and  Procedures.  Paragraph  6. 6.3  shows  the  program  and  JCL 
cards.  The  sort  fields,  in  order  of  hierarchy,  are: 

Field  Column  Description 


1 

6-13 

Serial  Number 

2 

14-16 

Week 

3 

17-21 

Work  Unit  Code 

4 

49 

Type 

The  input  tape  record  layout  is  shown  in  Figure  4-4.  Record  Types  3 and  4 are  sorted. 

4.  2.3.3  Output  Description.  Sorting  the  Non-support  General  file  of  503,962  data 
I'ecords  took  20  minutes  of  elapsed  time  and  30  seconds  of  CPU  time  (IBM  370).  A 
sample  of  the  sorted  output  is  shown  in  Figure  4-8. 
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Figure  4-8.  Sample  Output 


Non-support  General  WUC  Sort 


4.2.4  REFORMATTED  DATA  BANK  SORT 


4. 2.4.1  Purpose.  This  IBM  utility  program  sorts  Data  Bank  data  records  into  an 
ordered  file  for  subsequent  use  on  Tasks  I,  n.  III,  and  V Statistical  Programs. 

4. 2.4. 2 Input  Data  and  Procedures, 
cards  is  shown  in  Paragraph  6.6.4. 

The  combined  listing  of  the  program  and  JCL 
The  sort  fields,  in  order  of  hierarchy,  are: 

Field 

Column 

Description 

1 

17-21 

Work  Unit  Code 

2 

23-25 

How -Malfunction  Code 

3 

6-13 

Serial  Number 

4 

14-16 

Week 

The  input  tape  record  layout  is  shown  in  Figure  4-4.  Record  Types  3 and  4 are  sorted. 

4. 2. 4.3  Output  Description.  Sorting  the  Data  Bank  file  of  587,255  data  records  on  the 
IBM  370  took  27  minutes  of  elapsed  time  and  3 minutes  of  CPU  time.  A sample  of  the 
sorted  output  is  shown  in  Figure  4-9. 
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Figure  4-9.  Sample  Output  — Data  Bank  Sort 
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4.  3 FREQUENCY  ANALYSIS  — TASK  I 

The  objective  of  this  task  is  to  generate  a matrix  of  data  to  determine  the  kinds  of  mal- 
functions that  occur  on  a WUC  and  when  they  are  discovered,  and  to  compare  these  re- 
sults with  the  definitions  of  scheduled  inspections.  A system  of  three  COBOL  programs 
has  been  developed  to  perform  this  task  (Figure  4-10). 

a.  Title  Formatter  and  Five-Digit  WUC  Analysis  (Paragraph  6.7.1). 

b.  Frequency  Analysis  Sort  (Paragraph  6. 7. 2). 

c.  Three-Digit  WUC  Analysis  (Paragraph  6.7.3). 

Paragraph  6. 7 contains  the  listing  of  the  source  programs  with  the  corresponding  job 
control  cards,  as  noted  above. 


4.3. 1 TITLE  FORMATTER  AND  FIVE-DIGIT  WUC  ANALYSIS 
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4.3. 1.2  Input  Data  and  Procedures.  There  are  two  types  of  input  data:  tape  and  card 
deck.  Tape  data  consists  of  a data  bank  sorted  in  the  order  of  Work  Unit  Code  (WUC), 
How-Malfunction  Code  (HMC),  aircraft  serial  number,  and  week  number.  The  card 
deck  data  has  the  following  format. 


Card 

Column 

Description 

a 

3-5 

Number  of  isochronal  aircraft. 

b 

3-10 

Isochronal  aircraft  serial  number  in 
ascending  sequence. 

13-15 

Starting  week  number  for  Isochronal 
inspection. 

c 

1-5 

When-Discovered  Code  (WDC)  titles 
(WDC  used  must  be  In  Column  5 and  in 
ascending  sequence). 

d 

1-3 

Number  of  WDC  corresponding  to 
unscheduled  Inspections. 

e 

1-3 

Sequential  position  of  WDC  corresponding 
to  an  unscheduled  inspection. 

f 

1-3 

Number  of  SG  WUC  to  follow. 

g 

1-3 

Sequential  position  of  WDC  corresponding 
to  scheduled  inspection. 

6-10 

Scheduled  inspection  in  ascending  sequence. 

h 

1-80 

Five  cards  with  SG  WUC  titles  (Columns 
1-80). 

i 

1-25 

Five  cards  with  SG  WUC  titles  (Columns 
81-105). 

j 

1-3 

Sequential  position  of  WDC  corresponding 
to  two-digit  SG  WUC. 

6-10 

Two-digit  SG  WUC. 

k 

1-3 

1 WDC  in  sequence  matching  SG  WUC. 

4-6 

1 

1-5 

SG  WUC  requiring  time  Interval  to  define 
end  of  inspection. 

7-8 

Week  Interval  for  SG  WUC. 

A sample  input  data  deck  Is  shown  In  Figure  4-11 
files: 


The  program  generates  four  outpu< 


a.  Title  Information. 

b.  Five-digit  WUC  Analysis  Report  — Isochronal. 

c.  Five-digit  WUC  Analysis  Report  — Non-isochronal. 

d.  Five-digit  WUC  Analysis  data. 

The  title  information  file  is  derived  partially  from  the  input  card  deck  (Cards  c,  h,  and 
i)  and  the  data  bank  input  file.  The  card  deck  defines  the  WDC  and  SG  WUC  titles.  The 
Support  General  WUC  Frequency  is  obtained  from  Type  3 records  by  totaling  the  number 
of  maintenance  action  field  for  the  appropriate  SG-WUC. 

The  five-digit  WUC  Analysis  Report- Isochronal  file  uses  the  Isochronal  title  to  each 
page  of  the  report;  the  frequencies  for  each  WUC  and  HMC  combination  are  obtained 
by  accumulating  the  maintenance  actions  for  each  of  the  21  WDCs  for  the  Isochronal  air- 
craft subset.  The  total  unscheduled  maintenance  actions  are  accumulated,  as  are  all 
totals  over  the  complete  WUC.  The  output  is  also  written  in  the  WUC-Data  file  for  sub- 
sequent usage  at  the  three-digit  WUC  level.  A similar  report  file  is  available  for  Non- 
isochronal  aircraft. 

4. 3. 1. 3 Output  Description.  The  output  consists  of  two  report  files  that  have  130 
characters  to  a data  record,  blocked  15  to  a tape  record,  and  two  data  files  that  have 
130  characters  to  a data  record,  blocked  23  to  a tape  record.  A typical  report  output 
is  shown  In  Figure  4-12. 

The  record  layout  for  the  two  data  files  is  shown  in  Figure  4-13,  an  example  of  the 
WUC  Data  in  Figure  4-14,  and  Title  Data  in  Figure  4-15.  The  WUC  Data  file  contains; 


Column 

Value 

Description 

1 

H 

Flag  indicating  data  relates  to  a specific 
HMC. 

W 

Flag  indicating  data  is  a total  for  a WUC 

3-7 

Five-digit  WUC. 

9-11 

XXX 

Three-digit  HMC. 

BLANK 

Total  data  for  a WUC. 

13-17 

For  Column  1 = H,  sum  of  MA  for 

WUC,  HMC,  WDC(l). 

For  Column  1 = W,  sum  of  MA  for 
WUC+WDC(1). 

This  is  repeated  for  21  When-Discovered  Codes. 


s6  COLUMN  GENERA).  RURROSE  FORM 

M imi  . 

HM  M 

MO  . 

_.»W0W4f 

. IMMUO 

_(iMCta»  MMm 

SAoPOOo 

SSSQSBA 


S.1P0.WI 


V^SMoaI9&^?L  ...a. 


4^  I U I A •-  * I 1 • i i-t-A  4 J 1 L 


•0  COtUMN  GCNCRAi  PUftfOSC  FOAM 


..  fVKIOl 

V4 


>«  2 - 4 

Mtl 


, 

. SaOlILKm  . .3!^»  , 
AfPfiAl.l  1 . . 

.SiffiPAIM  . AAA  , 
SAPPPJffi  . A.AA . 
s.tmj.m . AAA , 
aa.oppjaA  . aaa  , 

ASAPPJAA  . AAA  . 
ffPAAlAj] . AAA.. 
?,?0MlAAt . ?A*; . 

. fi.. 


‘ » » ■ * 4_»  . 4 

4.k4  A-4  4_1.  *.  4 
-4U.4  A. 4^  I 4 4 

. < i 4 I 4 A » I I 


> A.  4 LJJ.4_I-I 
• ■ < J I I I 


4— (.4.4.1  4 4 I 
• 4 4-»  I I . I 


I I 4 4.4  4 4 4.4  4.  I .1 

k 4~4  4.4.«  44  4.  4.4  I 

> 4 • 44.1  4.4  I 4.  • a 


Figure  4-11.  Sample  Input  — Title  Formatter  and  Flve-Wgflt  WUC  Analysis  (Sheet  1 of  2) 


NON-UU 


PAGE  1 


WHEN  DISL.  COPE 


SUP PUNT 
GLNfcKAC 
W.U.C* 
PKEwJENCV 


FKEQ  HMC 
FKE«.  HHC 
FKcw  HHC 
FKtU  HMC 
FKEW  HMC 
PKbi.  HMC 
pkeU  HHC 
PKEW  HHC 
PKcC  HMC 
fKeC  HMC 
fl<.c.W  HMC 
PKcC  HMC 
PKtW  HMC 
PKLC  HMC 
PKtC  HMC 

PRbU  HMC 
EKEG  HHC 
PKEw  HMC 
PKLw  HMc 
pKkC  HHC 
PKbW  HMC 
PKkW  HMC 
fKkW  HMC 
PKLW  HNl 


woe  FKECUcNLV 


Figure  4-12.  Sample  Output  — Five-Digit  WUC  Analysis 


Column 

118-123 


Value 


Description 

For  Col.  1 = H,  sum  of  unscheduled  MA 
for  WUC  and  HMC. 

For  Col.  1 = W,  sum  of  unscheduled  MA 
for  WUC. 

Isochronal  Data. 

Non-lsochronal  data. 

End  of  record. 


On  a recent  IBM  370  run  for  an  F-106  fleet  of  150  aircraft  and  2201  WUCs,  total  com- 
puter throughput  time  was  11  minutes.  The  following  number  of  records  were  generated. 


Five-digit  WUC  Analysis  — Isochronal 


20.505  records 


Five-digit  WUC  Analysis  — Non-lsochronal  51,341  records 


c.  Title  Data 

d.  WUC  Data 


21  records 
30,614  records 


The  program  has  the  following  dimensional  limitations. 


a.  Isochronal  aircraft 

b.  Number  of  Unscheduled  WDC 

c.  Number  of  SG-WUC 

d.  Number  of  SG-WUC  using  time  to  determine 

end  of  inspection 


36  Maximum 
10  Maximum 
14  Maximum 


10  Maximum 


4-16 


Figure  4-13.  Record  Layout  — Title  Formatter  and  Five-Digit  WUC  Analysis 
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bC>K  CNT  010  teNCTH  130  CUNTkuL  il30  OOOOOOO  OOOOOOO 


1 2. 

2990t  bOK  I. 

“ ■“  0*0000*00 


1 1 AmA 
IIaAA 
1 lAAA 
lUAb 
ll«*Ai> 
llAAl 

iIaaI 

lUAl 


CH 


OOOU«OOOC^UOUu«OOi/0«UUOO«OOuUttUi>00«tuOO^OOUd«OaOO*ObOU«uOOO«OOOOAOOOO*. 
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uoou«oooo^oouuHioou«oooo«oMObuooo«ouou«uooo«ogoo«oooo«oooo»uooo«oi;oo«ooou«oooo«opoo«ooo&«oooo«oooO'H>ooo«ooooob 
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gouo^oocu«Quou«goou«oooo«ooooAoouo«oooo«'Oooo«6ooo«oooo«oooo«oooo«ooou*ooou^ooM*0000«ooooAOOoo*oo6o^ooOH>ooooA 
ouou«uooo«OooG«oooo«ouco«oouoKiooo«uoooooooo*oooo*oooo«ooOi/*oooo«oooo«uooo«oooo*o6oo«goou*oooo*oo6o«oooo*ooooo«  i 
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H llAAl 
H UmAI 
N llAAl 
H IImAI 
n IIaAI 
N llAAl 
H UaAI 

H i«HAl 
H *1AA1 
N llAAl 

H llOAl 
H lUAl 
H ili.Al 
H i IaAI 
H IImaI 
H ; iami 
n llx^i 
H il.Ul 
■ 1 loAl 

W 1 iMA4 

h Haoi 
N IImGI 
N iiAcl 
H * i Mb  1 
H llMbl 
N liAbi 
N llMbl 
N i.MOl 
H 11mC« 
H IImLI 
n il.tbl 
h IImCI 
h liuGl 

N UmOI 
M ilAwl 
N UmGI 
N lUol 
H IImw* 

M llMbl 
N I US.  I 
N li.,bl 
H lUGi 
rt  IImG* 
n llMbi 
H llAbl 
H ll<H>i 

5 ll:i{ 

H llA^l 

M 1 1 Mf  1 
H 1 lAr  b 
H 11  ML  1 
U llACl 
b 1 1 MC  1 
M 11 Awl 
U llAwl 

H IImwI 
H 11m«1 
H lUul 
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Figure  4-14.  Sample  Output  — WUC  Data 
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Figure  4-15.  Sample  Output  — Title  Data 
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4.3.2  FREQUENCY  ANALYSIS  SORT 

3.4. 2. 1 Purpose.  The  purpose  of  this  program  Is  to  sort  output  WUC  Data  for 
further  processing. 

4. 3. 2. 2 Input  Data  and  Procedures.  The  Input  consists  of  the  WUC  Data  file  de- 
scribed in  Paragraph  3.4. 1.3. 

4.3. 2.3  Output  Description.  The  output  file,  130  characters  to  a data  record,  blocked 
23  to  a tape  record,  is  sorted  according  to  the  following  keys  in  ascending  order. 


Key 

Column 

Description 

1 

125 

Isochronal 

2 

3-5 

Three-digit  WUC 

3 

1 

Data  Type 

4 

9-11 

HMC 

It  required  two  minutes  on  the  IBM  370  to  sort  the  30,636  records  for  the  150-aircraft 
F-106  fleet. 

4.3.3  THREE-DIGIT  WUC  ANALYSIS 

4. 3. 3. 1 Purpose.  The  purpose  of  this  program  is  to  perform  the  analysis  at  the 
tlii’ee-digit  WUC  level. 

4. 3. 3. 2 Input  Data  and  Procedures.  Two  previously  generated  files  are  input  data  to 
this  program: 

a.  Sorted  WUC  data. 

b.  Title  data. 

Operation  of  the  program  is  similar  to  analysis  at  the  five-digit  WUC  level,  Paragraph 
4.3. 1.2.  Differences  Include  a single  report  output,  with  the  Isochronal  preceding  the 
Non-Isochronal  data. 

4. 3. 3. 3 Output  Description.  The  output  consists  of  a single  report  file,  130  charac- 
ters to  a data  record,  blocked  15  to  a tape  record,  A typical  output  Is  shown  In  Figure 
4-16.  On  a recent  IBM  370  run  for  an  F-106  fleet  of  150  aircraft  and  2201  WUCs,  total 
computer  throughput  time  was  two  minutes;  14,660  print  records  were  generated. 
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Figure  4-16.  Sample  Output  — Three-Digit  WUC  Analysis 
4. 4 MANHOUR  AND  NOR  TIME  ANALYSIS  - TASK  II 


The  objective  of  this  task  is  to  generate  cumulative  probability  distributions  for  man- 
hour and  NOR  time  analysis.  A system  of  five  COBOL  programs  has  been  developed 
to  perform  this  task  (Figure  4-17). 

a.  Task  II  Preprocessor. 

b.  Sort  2BS. 

c.  Cumulative  Distribution  2B. 

d.  Sort  2CS. 

e.  Cumulative  Distribution  2C. 


Paragraph  6.  8 contains  the  listing  of  the  source  programs  with  corresponding  job 
control  cards. 
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Figure  4-17.  Logic  Flow  — Manhours  and  NOR  Time  Analysis  (Task  II) 
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4.4. 1  PREPROCESSOR  - TASK  II 


4. 4. 1. 1 Purpose.  The  purpose  of  the  Task  II  Preprocessor  is  to  generate  two  output 
files  for  further  processing  using  the  sorted  data  bank  tape,  isochronal  aircraft  defi- 
nition, a selected  list  of  WUCs,  and  inspection  criteria  data  as  inputs  as  shown  in 
Figure  4-17. 

4. 4. 1.2  Input  Data  and  Processors.  There  are  two  types  of  input  data:  tape  and 
card  deck.  Tape  data  consists  of  a data  bank  sorted  In  the  order  of  WUC,  HMC, 
aircraft  serial  number,  and  week  number.  For  the  tape  record  layout,  see  Figure 
4-4.  The  data  card  deck  has  the  following  formats. 

Card  No.  1: 

Column  Description 

I- 5  WUC  for  Hourly  Post  Flight  Inspection 

6-10 

II- 15  WUC  for  MA-1  Scheduled  Calibration 

16-20 

21-25  WUC  for  Periodic  Inspection 

26-30  WUC  for  IRAN  Depot  Visit 

31-35  WUC  for  Preflight  Inspection 

36-40  WUC  for  Basic  Postflight  Inspection 

41-45  WUC  for  Special  Hourly  Postflight 

46-47  Minimum  number  of  weeks  between  inspections  for  the  luur 

WUCs  in  Columns  1 through  20. 

48-49  Minimum  number  of  weeks  between  inspections  for  Periodic 

Inspection  and  IRAN  Depot  Visit 

Card  No.  2: 

3-5  Number  of  Isochronal  Aircraft.  (Current  program  Is  dimensioned 

for  a maximum  of  36  isochronal  aircraft,  which  may  be  increased 
by  minor  program  modification. ) 

The  following  cards  describe  the  Isochronal  aircraft  fleet,  one  card  per  Isochronal 
aircraft;  the  serial  numbers  are  sorted  In  ascending  order. 

Column  Description 

3-10  Aircraft  Serial  Number 

13-15  Starting  Week  Number  for  Isochronal  Inspection 
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Figure  4-18  is  a sample  input  data  deck  listing.  The  Task  II  Preprocessor  program 
(Figure  4-17)  produces  two  output  files  (2B  and  2C)  containing  the  following  information. 


File 

Data  Type 

Description 

2B 

1 

NORM  Hours  — Scheduled  Inspection 

2B 

2 

Manhours  — Scheduled  Inspection 

2B 

3 

NORM  Hours  — Unscheduled  Maintenance 
Actions 

2B 

4 

NORS  Hours  — Unscheduled  Maintenance 
Actions 

2C 

1 

Manhours  — Unscheduled  Maintenance 

Actions 

a.  NORM  Hours  and  Manhours  — Scheduled  Inspection  (for  File  2B,  Data  Types  1 
and  2).  Any  NOR  time  charged  during  preflights  and  basic  postflights  is  recorded 
as  unscheduled  maintenance.  Manhours  expended  during  the  look  phase  of  these 
inspections,  however,  are  charged  as  support  general,  so  that  these  Inspections 
are  included  when  calculating  the  look  phase  manhour  distributions.  For  a given 
type  of  scheduled  inspection,  each  occurrence  of  that  inspection  on  an  aircraft 
provides  an  observation  of  the  NORM  hours  charged  during  the  look  and  repair 
phases  of  the  Inspection  and  the  manhoxurs  charged  during  the  look  phase. 

To  calculate  the  NORM  hours  for  the  inspection,  the  first  Type  3 record  en- 
countered with  the  support  general  (SG)  WUC  corresponding  to  that  inspection 
is  combined  with  records  for  immediately  succeeding  weeks  with  the  same  code 
until  the  end  of  a continuous  block  of  weekly  records  is  reached.  The  NORM 
hours  sum  for  the  inspection  is  obtained  by  accumulating  the  NORM  hours  re- 
corded in  this  block  of  records.  The  manhours  for  the  look  phase  of  this  inspec- 
tion are  obtained  by  also  accumulating  the  manhours  in  the  same  way. 

By  analyzing  the  plots  of  flight  hours  versus  week  for  the  F-106  fleet  (see  Air- 
craft Inspection  Histories,  Paragraph  4.8),  it  was  discovered  that  the  minimum 
number  of  weeks  between  inspections  was  more  than  two  weeks  for  Hourly  Post 
Flight  Inspections  and  MA-1  Scheduled  Calibration  Inspections.  The  minimum 
number  of  weeks  between  inspections  for  Periodic  Inspections  and  IRAN  Depot 
Visit  Inspections  was  more  than  four  weeks.  This  information  was  incorporated 
to  define  an  inspection  as  part  of  the  input  data.  (See  Paragraph  4.4. 1.  2. ) 

b.  Manhours  — Unscheduled  Maintenance  Action  (for  File  2C,  Data  Type  1).  The 
manhour  distributions  are  calculated  separately  for  repair  actions  and  unschedul- 
ed maintenance  actions  by  accumulating  the  number  of  manhours  charged  against 

a specific  WUC  and  specific  HMC  for  successive  weeks  until  a week  is  encountered 
with  a nonzero  number  of  maintenance  actions.  The  number  of  repair  actions  or 
unscheduled  actions  against  the  same  WUC  is  accumulated  at  the  same  time. 


1 
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Figure  4-18.  Sample  Data  — Task  II  Preprocessor 
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This  data  is  obtained  from  Record  Type  4.  The  ratio  of  these  totals  provides 
one  observation  of  manhours  per  maintenance  action  for  this  WUC  malfunction. 
Each  occurrence  of  a maintenance  action  on  an  aircraft  is  in  the  bank  for  the 
specific  WUC  malfunction.  Each  occurrence  of  a maintenance  action  on  an  air- 
craft in  the  bank  for  the  specific  WUC  malfunction  combination  provides  another 
observation. 

c.  NORM  and  NORS  Hours  — Unscheduled  Maintenance  Actions  (for  File  2B.  Data 
Types  3 and  4).  The  distribution  for  unscheduled  NORM  hours  is  the  same  as  in 
Item  b except  that  only  unscheduled  maintenance  actions  are  included.  Again, 
NORM  hours  and  maintenance  action  totals  are  accumulated  from  week  to  week 
until  a nonzero  number  of  maintenance  actions  field  is  encountered.  The  ratio 
of  the  two  totals  then  provides  one  observation  of  unscheduled  NORM  hours  per 
maintenance  action  for  the  specific  WUC.  Since  the  type  of  malfunction  is  not 
recorded  in  AFM  65-110,  through  which  NORM  hours  are  recorded,  it  is  not 
possible  to  calculate  this  distribution  for  a specific  type  of  malfunction.  The 
data  for  this  calculation  is  obtained  from  Record  Type  3. 

Calculation  of  the  NORS  hours  distribution  is  somewhat  different.  In  this  case, 
the  parameter  is  NORS  hours  per  week  for  a specific  WUC.  Each  week  for  which 
NORS  hours  are  charged  against  the  specific  WUC  in  Record  Type  3 provides 
another  observation. 

4.4.1. 3 Output  Description.  The  output  consists  of  two  tape  files  (2B  and  2C)  with  20- 
character  data  records  blocked  90  to  a tape  record,  with  the  following  formats. 

Column  Description 

1-5  Work  Unit  Code  (WUC) 

6-8  How-Malfunction  Code  (HMC) 

10-15  Observation  Data 

17  Isochronal  Indicator 

=1  Isochronal  Inspection 
=2  Non-Isochronal  Inspection 
19  Data  Type 

For  File  2B: 

=1  Scheduled  NORM  Hours 
=2  Scheduled  Manhours 
=3  Unscheduled  NORM  Hours 
=4  Unscheduled  NORS  Hours 


! 


I Column  Description 

I For  File  2C: 

) =1  Unscheduled  Manhours 

20  Record  Mark 

j On  a recent  IBM  370  run  for  an  F-106  fleet  of  150  aircraft  and  2201  WUCs,  total  com- 

puter  throughput  time  was  about  10  minutes.  Records  totaling  348,511  and  243,801 
were  generated  for  Files  2B  and  2C,  respectively. 

4.4.2  SORT  FOR  SCHEDULED  NORM  HOURS.  MANHOURS,  UNSCHEDULED  NORM 
HOURS.  NORS  HOURS  (SORT  2BS) 

4.4. 2. 1 Purpose.  The  purpose  of  this  program  is  to  sort  output  File  2B  for  further 

I processing. 

J 

4. 4. 2. 2 Input  Data  and  Procedures.  The  input  consists  of  tape  File  2B  as  described 

j in  Paragraph  4.4. 1.3. 

{ 4.4. 2, 3 Output  Description.  An  output  tape  with  20  characters  per  record  and  a blocking 

j factor  of  90,  consisting  of  scheduled  NORM  hours,  manhours,  and  unscheduled  NORM 

1 and  NORS  hours  records,  is  sorted  according  to  the  following  keys  in  ascending  order. 


Key 

Column 

Description 

17 

Isochronal  Indicator 

1 

1 2 

19 

Data  Type 

3 

1-5 

Work  Unit  Code 

It  took  about  four  minutes  on  the  IBM  370  to  sort  348,511  records  for  the  150-aircraft 
F-106  fleet. 

4.4.3  CUMULATIVE  DISTRIBUTION  FOR  SCHEDULED  NORM  HOURS.  MANHOURS, 
UNSCHEDULED  NORM  HOURS.  NORS  HOURS 

4.4.3. 1 Purpose.  This  program  generates  cumulative  distribution  plots  for  scheduled 
NORM  hours  and  manhours  and  for  unscheduled  NORM  and  NORS  hours  by  WUC  and 
isochronal  subset  type.  The  number  of  observations,  maximum  and  minimum  values, 
and  the  mean  and  variance  of  the  observation  are  printed  on  the  top  of  each  plot. 


■5 
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I 

4.4.3. 2 Input  Data  and  Procedures.  The  format  for  the  input  data  card  is: 

Column  Description 

1-5  Total  Isochronal  Aircraft  Weeks.  For  definition,  see  Figure 

2-1  in  GDCA-AHD72-003,  P-106  Scheduled  Maintenance  Study, 

Phase  II  — Model  Formulation  and  Data  Analysis. 

6-10  Total  Non-Isochronal  Aircraft  Weeks.  For  definition,  see  the 

preceedlng  reference. 

13-14  Printout  Suppression  Cutoff  for  Isochronal  Subset, 

15-16  Printout  Suppression  Cutoff  for  Non-Isochronal  Subset. 

Figure  4-19  is  a sample  Input  data  card. 


Figure  4-19,  Sample  Data  — Cumulative  Distribution  for  Scheduled  NORM 
Hours,  Manhours,  Unscheduled  NORM  Hours, and  NORS  Hours 
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4.4. 3. 3 Output  Description.  Cumulative  distribution  plots  by  a printer  contain  the 
following  Information. 

Work  Unit  Code 

Output  Data  — one  of  four  t5rpes; 

Scheduled  NORM  Hours 
Scheduled  Manhours 
Unscheduled  NORM  Hours 
Unscheduled  NORS  Hours 
Isochronal  or  Non-Isochronal  Subset 
Number  of  Observations 
Maximum  and  Minimum  Values 
Mean  and  Variation 

The  plot  tape  has  130-character  data  records,  blocked  15  to  a tape  record.  The 
values  for  printout  suppression  cutoff  have  a significant  impact  on  the  output  volume. 
The  effect  of  cutoff  on  output  volume  Is  shown  below,  based  on  the  F-106  experience: 


No.  of  Aircraft 

Isochronal 

Non-Isochronal 

No.  of  Plots 

15 

0 

10 

1275 

15 

10 

10 

686 

150 

5 

15 

2101 

It  took  six  minutes  on  the  IBM  370  to  process  348,511  records  and  to  g3nerate  the 
observation  tape  for  the  F-106  fleet.  It  required  three  printer  hours  to  make  2101 
plots.  A sample  output  from  a recent  F-106  run  is  shown  In  Figure  4-20. 

-1.4.4  SORT  FOR  UNSCHEDULED  MANHOURS  (SORT  2CS) 

4.4.4. 1 Purpose.  The  purpose  of  this  program  Is  to  sort  output  File  2C  for  further 
processing. 

4.4.4. 2 Input  Data  and  Procedures.  The  input  consists  of  tape  File  2C,  as  described 
In  Paragraph  4. 4. 1.3. 

4. 4. 4. 3 Output  Description.  The  output  tape  file,  consisting  of  unscheduled  manhours 
charged  against  a specific  WUC  and  specific  HMC  is  sorted  according  to  the  following 
keys  in  ascending  order. 
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Figure  4-20.  Sample  Output  — Cumulative  Distribution  of  Scheduled  Manhours 


Key  Column 

1 17 


2 19 

3 1-5 

4 6-8 


Description 
Isochronal  Indicator 
=1  Isochronal  Subset 
=2  Non-Isochronal  Subset 
Data  Type 
=1  Manhours 
Work  Unit  Code  (WUC) 
How-Malfunction  Code  (HMC) 


The  output  tape  consists  of  20-character  data  records,  blocked  90  to  a tar^e  record. 
It  took  one  minute  and  36  seconds  to  sort  243,801  records  for  a fleet  of  150  F-106 
aircraft. 


4.4.5  CUMULATIVE  DISTRIBUTION  FOR  UNSCHEDULED  MANHOURS 

4.4.5. 1 Purpose.  This  program  generates  cumulative  distribution  plots  for  un- 
scheduled manhours  by  WUC,  HMC,  and  Isochronal  subset  type.  The  number  of  ob- 
servations, maximum  and  minimum  values,  and  mean  and  variance  of  the  observa- 
tions are  printed  at  the  top  of  each  plot. 
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4. 4. 5. 2 Input  Data  and  Procedures.  The  format  for  the  data  card  Is: 

Column  Description 

1-2  Printout  suppression  cutoff  for  Isochronal  subset 

3-4  Printout  suppression  cutoff  for  non-lsochronal  subset 

A sample  data  card  Is  shown  In  Figure  4-21. 

4.4. 5.3  Output  Description.  Cumulative  distribution  plots  by  a printer  contain: 

a.  Work  Unit  Code  (WUC). 

b.  Output  Data  — Unscheduled  Manhours. 

c.  Isochronal  or  Non-lsochronal  Subset. 

d.  Number  of  Observations. 

e.  Maximum  and  Minimum  values. 

f.  Mean  and  Variance. 


so  COLUMN  GENERM  njm>OSE  FORM 


Figure  4-21.  Sample  Data  — Cumulative  Distribution 
for  Unscheduled  Manhours 
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The  plot  tape  consists  of  130-character  data  records,  blocked  15  to  a tape  record. 
The  values  for  printout  stq)pression  cutoff  have  a significant  impact  on  the  output 
volume.  The  effect  of  cutoff  on  output  vo’-ime  is  shown  below,  based  on  the  F-106 
experience. 


No.  of  Aircraft 

Isochronal 

Non- Isochronal 

No.  of  Plots 

15 

0 

10 

1433 

150 

0 

10 

7455 

150 

5 

15 

2819 

The  fleet  of  150  F-106  aircraft  required  about  22  minutes  on  the  IBM  370  to  generate 
the  observation  tape  and  four  hours  of  printer  time  to  print  the  2819  plots.  A sample 
output  from  a recent  F-106  run  is  shown  in  Figure  4-22. 

4. 5 INTERVAL  LENGTH  ANALYSIS  - TASK  HI 

The  objective  of  this  task  is  to  generate  cumulative  probability  distributions  for  in- 
terval length  analysis.  A system  of  five  COBOL  programs  has  been  developed  to 
perform  this  task.  (See  Figure  4-23). 
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Figure  4-22.  Sample  Output  — Cumulative  Distribution  for  Unscheduled  Manhours 


Figure  4-23.  Logic  Flow  — biterval  Length  Analysis 

a.  Task  III  Preprocessor. 

b.  Sort  3BS. 

c.  Cumulative  Distribution  3B 

d.  Sort  3CS. 

e.  Cumulative  Distribution  3C. 

Paragraph  6.9  shows  the  listing  of  the  source  programs  with  corresponding  Job  control 
cards. 

4..,.!  PREPROCESSOR  - TASK  III 

4.5. 1. 1 Purpose.  The  purpose  of  the  Task  III  Preprocessor  is  to  generate  two  out- 
put files  for  further  processing  using  the  sorted  data  bank  tape,  Isochronal  aircraft 
definition,  a selected  list  of  WUCs,  and  inspection  criteria  data  as  Inputs  (Figure 
4-23). 

4. 5. 1. 2 Input  Data  and  Procedures.  There  are  two  types  of  Input  data;  tape  and 
card  deck.  Tape  data  consists  of  a data  bank  sorted  In  the  order  of  WUC,  HMC,  air- 
craft serial  number,  and  week  number.  For  the  tape  record  layout,  see  Figure  4-4. 
The  data  card  deck  has  the  following  fonnat. 

Column  Description 

Card  No.  1: 

3-5  Number  of  Isochronal  Aircraft.  (Current  program  Is  dlmensloY^ed 

for  a maximum  of  36  Isochronal  aircraft,  which  may  be  Increased 
by  minor  program  modification. ) 


The  following  cards  describe  the  Isochronal  aircraft  fleet  (one  card  per  Isochronal  air- 
craft); serial  numbers  are  sorted  in  ascending  order. 

Column  Description 

3-10  Aircraft  Serial  Number 

13-15  Starting  Week  Number  for  Isochronal  Inspection 

The  next  group  of  cards  contains  information  for  a special  set  of  support  general  (SG) 
WUCs  and  relating  time  span  in  weeks  for  Inspection  criteria. 


Card  Column  Description 


1 

1-5 

WUC  for  Hourly  Post  Flight  Inspection 

6-8 

Minimum  Number  of  Weeks  Span  Between  Inspections  for 
the  WUC 

2 

1-5 

WUC  for  MA-1  Scheduled  Calibration 

6-8 

Minimum  Number  of  Weeks  Span  Between  Inspections  for 
the  WUC 

3 

1-5 

WUC  for  MA-1  Scheduled  Calibration 

6-8 

Minimum  Number  of  Weeks  Span  Between  Inspections  for 
the  WUC 

4 

1-5 

WUC  for  MA-1  Scheduled  Calibration 

6-8 

Minimum  Number  of  Weeks  Span  Between  Insp>ections  for 
the  WUC 

5 

1-5 

WUC  for  Periodic  Inspection 

6-8 

Minimum  Number  of  Weeks  Span  Between  Inspections  for 
the  WUC 

6 

1-5 

WUC  for  IRAN  Depot  Visit 

6-8 

Minimum  Number  of  Weeks  Span  Between  Inspections  for 
the  WUC 

A sample  input  data  deck  is  shown  in  Figure  4-24.  The  Task  111  Preprocessor  program 
(Figure  4-23)  produces  two  output  files  (3B  and  3C)  containing  the  following  information. 
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Figure  4-24.  Sample  Data  — Task  III  Preprocessor 
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File 

Date  Type 

Description 

3B 

1 

Inspection  Interval  in  Weeks 

3B 

2 

Inspection  Interval  in  Flight  Hours 

3C 

1 

Repair  Action  Interval  in  Weeks 

3C 

2 

Repair  Action  Interval  in  Flight  Hours 

a.  Inspection  Interval  Lengths  (for  File  3B,  Data  Types  land 2).  Observation  data 
will  be  generated  for  the  Interval  between  successive  occurrences  of  two  Inspec- 
tions of  the  same  type.  The  Inspections  will  be  located  In  the  data  bank  by  check- 
ing for  the  appropriate  SG  WUCs  In  the  Type  3 records.  The  Inspection  Interval 
Is  defined  to  be  the  period  between  the  end  of  one  Inspection  and  the  start  of  the 
next.  As  for  the  repair  action  Intervals  below,  the  Inspection  Intervals  will  be 
measured  in  both  weeks  and  flight  hours.  The  data  bank  will  have  only  one  Type 

3 record  for  each  Inspection  short  enough  to  be  performed  in  less  than  a week. 
However,  long  Inspections  will  lead  to  a number  of  data  bank  records  for  conse- 
cutive weeks.  Therefore,  it  will  be  necessary  to  determine  the  week  numbers 
for  both  the  start  and  the  end  of  each  Inspection.  This  analysis  will  be  performed 
for  all  Inspection  types. 

By  analyzing  the  plots  of  flight  hours  versus  week  for  the  F-106  fleet  (see  Aircraft 
Inspection  Histories,  Paragraph  4. 8),  it  was  discovered  that  the  minimum  number 
of  weeks  between  inspections  was  three  or  more  weeks  for  hourly  Post  Flight  In- 
spections and  MA-1  Scheduled  Calibration  Inspections.  The  minimum  number  of 
weeks  between  inspections  for  Periodic  Inspections  and  IRAN  Depot  Visit  Inspec- 
tions was  five  or  more  weeks.  This  information  was  Incorporated  to  define  an 
inspection  as  part  of  the  input  data.  (See  Paragraph  4. 5. 1. 2. ) 

b.  Repair  Action  Intervals  (for  File  3C,Data  Types  land2).  This  task  involves  the 
generation  of  observation  data  of  the  repair  action  interval  for  each  combination 
of  equipment  identification  WUC  and  HMC.  Two  types  of  observation  data  will  be 
generated  for  each  such  combination:  one  for  the  interval  measured  in  weeks  and 
one  for  the  interval  measured  in  flight  hours.  Each  observation  will  be  the  interval 
between  two  consecutive  flight -hour  totals  found  in  the  Type  4 records,  in  which 
the  maintenance  actions  are  recorded.  It  follows  that  whenever  two  or  more  main- 
tenance actions  are  encountered  for  the  same  aircraft-week -WUC-HMC  (i.e. , in 
the  same  Type  4 record),  one  or  more  intervals  of  zero  length  will  be  Included  in 
both  distributions.  All  distributions  generated  for  this  task  will  be  stored  on 
magnetic  tape  so  that  they  will  be  available  for  use  as  Input  analyses  to  be  per- 
formed at  a later  time. 

4.5. 1.3  Output  Description.  The  output  consists  of  two  tape  files  {3B  and  3C)  and  20- 

character  data  records  blocked  90  to  a tape  record,  with  the  following  formats. 
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Column 

Description 

1-5 

Work  Unit  Code  (WUC) 

6-8 

How-Malfunction  Code  (HMC) 

10-15 

Observation  Data 

17 

Isochronal  Indicator 

=1  Isochronal  Inspection 
=2  Non-Isochronal  Inspection 

19  Data  Type: 

For  File  3B: 

=1  Inspection  Interval  Length  In  Weeks 
=2  Inspection  Mterval  Length  In  Flight  Hours 
For  File  3C: 

=1  Repair  Action  Interval  Length  in  Weeks 
=2  Repair  Action  Interval  Length  In  Flight  Hours 

20  Record  Mark 

On  a recent  IBM  370  run  for  an  F-106  fleet  of  150  aircraft  and  2201  WUCs,  total  com- 
puter throughput  time  was  eight  minutes.  Records  totaling  139,770  and  218, 760  were 
generated  for  Files  3B  and  3C,  respectively. 

4.5.2  SORT  FOR  INSPECTION  LENGTH  INTERVAL  (SORT  3B) 

4. 5. 2. 1 Purpose.  The  purpose  of  this  program  is  to  sort  output  File  3B  for  further 
processing. 

4. 5. 2. 2 Input  Data  and  Procedures.  The  input  consists  of  tape  File  3B  as  described 
In  Paragraph  4. 5. 1. 3. 

4.5. 2.3  Output  Description.  The  output  tape  file,  20-character  data  records 
blocked  90  to  a tape  record  and  consisting  of  inspection  Interval  lengths  in  weeks  and 
In  flight  hours,  Is  sorted  according  to  the  following  keys  In  ascending  order. 

Key  Column  Description 

1 17  Isochronal  Indicator 


It  took  about  five  minutes  on  the  IBM  370  to  sort  139, 700  records  for  the  150-aIrcraft 
F-106  fleet. 


4.5.3  CUMULATIVE  DISTRIBUTION  FOR  INSPECTION  LENGTH  INTERVAL 

4.5. 3. 1 Purpose.  This  program  generates  cumulative  distribution  plots  for  inspection 
length  intervals  by  WUC  and  isochronal  subset  tsTse.  The  number  of  observations, 
maximum  and  minimum  values,  and  the  mean  and  variance  of  the  observation  are  printed 
on  the  top  of  each  plot. 

4. 5.3.2  Input  Data  and  Procedures.  The  input  data  card  has  the  following  format. 

Column  Description 

1-5  Printout  Suppression  Cutoff  for  Non-Isochronal  Subset 

6-10  Printout  Suppressi<8i  Cutoff  for  Isochronal  Subset 

Figure  4-25  is  a sample  data  card. 
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Figure  4-25.  Sample  Data  — Cumulative  Distribution  for  Inspection  Length  Interval 
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4. 5. 3. 3 Output  Description.  Cumulative  distribution  plots  by  a printer  contain  the 
following  Information. 

a.  Work  Unit  Code  (WUC). 

b.  Output  Data  — One  of  the  two  types: 

Inspection  Interval  Length  in  Weeks. 

Inspection  Interval  Length  in  Flight  Hours. 

c.  Isochronal  or  Non- Isochronal  Subset. 

d.  Number  of  Observations. 

e.  Maximum  and  Minimum  Values. 

f.  Mean  and  Variance. 

The  tape  structure  of  the  plot  tape  consists  of  130-character  data  records,  blocked 
15  to  a tape  record,  ft  took  five  minutes  on  the  IBM  370  to  process  139,770  records 
for  the  F-106  fleet  and  six  minutes  on  the  printer  to  make  176  plots.  A sample  output 
from  a recent  F-106  run  Is  shown  In  Figure  4-26. 
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Figure  4-26.  Sample  Output  — Cumulative  Distribution  for  Inspection  Length  filter val 
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4.5.4  SORT  FOR  REPAIR  ACTION  INTERVAL  (SORT  3C) 

4.5.4. 1 Purpose.  The  purpose  of  this  program  is  to  sort  output  File  3C  for  further 
processing. 

4.5.4. 2 Input  Data  and  Procedures.  The  Input  consists  of  tape  File  3C,  as  described 
In  Paragraph  4. 5. 1. 3. 

4.5.4. 3 Output  Description.  The  output  tape  file,  consisting  of  repair  action  Interval 
lengths  In  weeks  and  In  flight  hours  charged  against  a specific  WUC  and  specific  HMC, 

Is  sorted  according  to  the  following  keys  In  ascending  order. 

Key  Column  Description 

1 17  Isochronal  Indicator 

=1  Isochronal  Subset 
=2  Non-Isochronal  Subset 

2 19  Data  T3rpe 

=1  Repair  Action  Interval  In  Weeks 
=2  Repair  Action  Interval  In  Flight  Hours 

3 1-5  Work  Unit  Code  (WUC) 

4 6-8  How -Malfunction  Code  (HMC) 

The  output  tape  file  structure  consists  of  20-character  data  records,  blocked  90  to  a 
tape  record.  P took  three  minutes  to  sort  218,760  records  for  a fleet  of  150  F-106 
aircraft. 

4.5.5  CUMULATIVE  DISTRIBUTION  FOR  REPAIR  ACTION  INTERVAL 

4. 5. 5. 1 Purpose.  This  program  generates  cumulative  distribution  plots  for  repair 
action  Intervals  In  weeks  and  In  flight  hours  by  WUC,  HMC,  and  Isochronal  subset 
t}npe.  The  number  of  observations,  maximum  and  minimum  values,  and  the  mean  and 
variance  of  the  observations  are  printed  on  top  of  each  plot. 

4. 4. 5. 2 Input  Data  and  Procedures.  The  Input  data  card  has  the  following  format. 

Column  Description 

1-5  Printout  Suppression  Cutoff  for  Non-Isochronal  Subset 

6-10  Printout  Suppression  Cutoff  for  Isochronal  Subset 

Flgfure  4-27  Is  a sample  data  card. 
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Figure  4-27.  Sample  Data  — Cumulative  Distribution  for  Repair  Action  Interval 

4. 5. 5. 3 Output  Description.  Cumulative  distribution  plots  by  a printer  contain  the 
following  information. 

a.  Work  Unit  Code  (WUC). 

b.  Output  Data  — One  of  the  Two  Types; 

Repair  Action  filter val  in  Weeks. 

Repair  Action  Interval  in  Flight  Hours. 

c.  Isochronal  or  Non-Isochronal  Subset. 

d.  Number  of  Observations. 

e.  Maximum  and  Minimum  Values. 

f.  Mean  and  Variance. 

The  tape  structure  of  the  plot  tape  consists  of  130-character  data  records,  blocked 
15  to  a tape  record.  The  values  for  printout  suppression  cutoff  have  a significant  im- 
pact on  the  output  volume.  The  effect  of  cutoff  on  output  volume  is  shown  on  the  follow- 
ing page,  based  on  the  F-106  experience. 
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No,  of  Aircraft 

Isochronal 

Non-Isochronal 

No.  of  Plots 

150 

4 

4 

3426 

150 

4 

10 

2283 

For  a fleet  of  150  F-106  aircraft,  it  required  about  14  minutes  on  the  IBM  370  to 
process  218, 760  records  and  three  printer  hours  to  print  2284  plots.  A sample  out- 
put plot  from  a recent  F-106  run  is  shown  in  Figure  4-28. 
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Figure  4-28.  Sample  Output  - Cumulative  Distribution  for  Repair  Action  Interval 


4.6  EFFECT  OF  TIME  AFTER  INSPECTION 

This  set  of  programs  determines  the  effect  of  time  after  an  inspection  on  maintenance 
requirements  and  effectiveness  parameters.  Independent  variables  will  be  used  with 
a number  of  dependent  variables  for  specified  sets  of  equipment  identification  WUCs, 

A second  analysis,  to  determine  the  trend  of  the  various  Data  Bank  variables  and  the 
effect  of  scheduled  inspections  on  these  trends,  is  also  Included. 

The  eight  programs  listed  on  the  following  page  have  been  developed  to  perform  these 
tasks.  The  logic  flow  at  Aircraft  and  WUC  levels  are  shown  in  Figures  4-29  and  4-30, 
respectively. 
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a.  Measure  Observations  at  Aircraft  Level. 

b.  Measure  Observations  at  WUC  Level. 

c.  Sort  Aircraft-Level  Observations. 

d.  Sort  WUC-Level  Observations. 

e.  Merge  WUC-Level  Observations. 

f.  Count  Observations. 

g.  Analyze  Regression  and  Correlation. 

h.  Analyze  Trend. 

FORTRAN-COBOL  linkage  Is  used  for  processing  Items  a,  b,  and  g.  COBOL  Input/ 
output  processing  Is  employed  to  ensure  data  compatibility,  provide  more  efficient 
Input/output  processing,  and  permit  multi-reel  file  processing  of  the  FORTRAN 
programs. 

4.6.1  MEASURE  OBSERVATIONS  AT  AIRCRAFT  LEVEL 

4. 6. 1. 1 Purpose.  The  purpose  of  this  program  Is  to  generate  the  observations  for 
a defined  set  of  Independent  variables  for  a defined  set  of  dependent  variables  for 
Isochronal  and  non-lsochronal  aircraft  subsets. 

4. 6. 1.2  Input  Data  and  Procedures.  The  program  was  written  In  both  FORTRAN  and 
COBOL.  The  latter  provides  the  Input/output  capability  and  the  FORTRAN  section 
performs  the  requisite  measurements.  A listing  of  the  complete  program,  the  associ- 
ated job  control  language  (JCL),  and  a sample  of  input  data  is  given  in  Paragraph 

6. 10. 1.  The  COBOL  Input/output  Is  used  to  handle  multi-reel  files. 

Linkage  Is  provided  by  a call  In  the  FORTRAN  program  to  a COBOL  program  entry. 

The  entries  In  the  COBOL  program  and  their  uses  are. 

CREADl  Reads  control  cards,  Type  1. 

CREAD2  Reads  control  cards,  Type  2. 

CREAD3  Reads  control  cards.  Type  3. 

COBRDl  Reads  data  records  from  the  Support  General  WUC  file  or  the  Non-si?)- 
port  General  WUC  file,  depending  on  the  code  transmitted  hy  the 
FORTRAN  program. 

The  Input  comprises: 

a.  The  Support  General  (SG)  WUC  file. 

b.  The  Non-si5)port  General  (NSG)  WUC  file. 

c.  Cards  containing  the  control  data. 
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Figure  4-29.  Logic  Flow  — Effect  of  Time  After  Inspection  — Aircraft  Level 
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Figure  4-30.  Logic  Flow  — Effect  of  Time  After  Inspection  — WUC  Level 


I 


4-43 


IlL 


i 


The  ciiterian  to  measure  the  end  of  an  Inspection  is  determined  by  the  interval  in  weeks 
between  occurrences  of  the  inspection  code.  For  Hourly  Postfli^t  and  MAI  Inspections, 
the  minimum  interval  to  define  the  end  of  a current  inspection  is  two  weeks.  For  the 
Periodic  inspection,  the  Interval  is  Increased  to  four  weeks.  The  code  corresponding 
to  these  inspections  is  the  required  input  to  the  program.  Cards  5 through  7. 

The  control  data  used  in  the  F-106  Scheduled  Maintenance  Study  is  shown  in  Figpire 
4-31  and  has  the  following  format. 


Card 

Column 

Description 

1 

3-10 

First  Week  of  Analysis 

13-20 

Last  Week  of  Analysis 

2 

3-10 

First  Serial  Number  for  Analysis 

13-20 

Last  Serial  Number  for  Analysis 

3 

3-10 

Position  in  SG  WUC  table  that  follows  the  Periodic 
Inspection  for  measurement  of  NORM  Hours 

13-20 

Position  in  SG  WUC  table  that  follows  the  Hourly  Post- 
flight  Inspection  for  measurement  of  NORM  Hours 

4 

3-10 

Position  in  SG  WUC  table  that  follows  the  Periodic 
Inspection  for  measurement  of  AIE/Sortie 

13-20 

Dummy  (use  zero) 

5 

32-36 

First  entry  into  SG  WUC  table,  using  greater  than  two 
week  Interval  to  define  End  of  Inspection 

6 

32-36 

Second  entry  into  SG  WUC  table,  using  greater  than  two 
week  Interval  to  define  End  of  Inspection 

7 

32-36 

Third  entiy  into  SG  WUC  table,  using  greater  than  four 
week  interval  to  define  End  of  Inspection 

8-On 

3-10 

Isochronal  Aircraft  Serial  Number.  (These  must  be  in 
ascending  sequence.) 

13-20 

Starting  Week  Number  for  Isochronal  Aircraft 

The  final  card  must  have  an  eight -digit  number  in  Columns  3-10,  greater  than  the  last 
serial  number  from  Card  2,  Columns  13-20.  Hils  is  used  as  an  end-of-file  indicator. 
Cards  1-4  and  8 and  on  are  examples  of  Type  1 input  cards.  Cards  5-7  are  examples 
of  Type  2,  as  defined  by  the  COBOL-FORTRAN  linkage. 
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Figure  4-31.  Sample  Input  — Measure  Observations  at  Aircraft  Level 
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The  Independent  variables  are  the  following  measure  of  time  after  the  Inspection. 


a.  Number  of  Weeks  since  Inspection.  For  each  observation,  this  Includes  the  week 
for  which  the  values  of  the  dependent  variables  are  being  determined,  but  not  the 
week  during  which  the  Inspection  was  completed. 

b.  Number  of  Flight  Hours  Accumulated  since  Inspection.  This  Includes  all  flight 
hours  for  the  week  of  the  observation,  but  none  of  the  flight  hours  for  the  week 
during  which  the  inspection  was  completed. 

c.  Number  of  Sorties  Flown  since  Inspection.  This  Includes  all  sorties  flown  during 
the  week  of  the  observation,  but  none  of  those  flown  during  the  week  In  which 

the  inspection  was  completed. 

d.  Number  of  Landings  Performed  since  Inspection.  This  Includes  all  landings  per- 
formed during  the  week  of  the  observation,  but  none  of  those  performed  during  the 
week  in  which  the  inspection  was  completed. 

The  dependent  variables  are: 

a.  NORM  Hours  per  Periodic  Inspection.  Separate  observations  are  made  for  NORM 
hours  per  periodic  Inspection  for  periodic  Inspections  Immediately  preceded  by 
each  of  the  following  types  of  Inspection. 

1.  Hourly  Postflight. 

2.  MAI  Inspection. 

An  observation  of  time  after  each  of  these  Inspection  types  Is  performed  with  each 
of  the  four  independent  variables. 

b.  NORM  Hours  per  Hourly  Postfllght.  Separate  observations  are  made  for  NORM 
hours  per  hourly  postfllght  Inspection  for  hourly  postflights  preceded  by  each  of 
the  following  types  of  Inspection. 

1.  Periodic  Inspection. 

2.  Hourly  Postfllght. 

3.  MAI  Inspection. 

For  each  of  these  Inspection  types,  an  observation  Is  taken  with  each  of  the  four 
Independent  variables. 

c.  Number  of  AIEs  per  Sortie.  The  number  of  AIEs  per  sortie  Is  calculated  for  each 
aircraft  week  after  the  last  preceding  periodic  Inspection.  All  four  of  the  Inde- 
pendent variables  are  used. 

d.  Number  of  Flight  Hours  per  Week.  The  variable  flight  hours  per  week  are  de- 
fined to  be  the  quotient  obtained  by  dividing  the  number  of  hours  flown  since  the 
latest  periodic  Inspection  by  the  number  of  weeks  since  that  Inspection. 
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e.  Number  of  Sorties  per  Week.  The  variable  sorties  per  week  are  defined  in  the 
same  way  as  flight  hours  per  week.  It  wUl  be  observed  with  the  independent 
variable  sorties  since  the  inspection. 

f.  Number  of  Landings  per  Week.  The  variable  landings  per  week  are  also  defined 
in  the  same  way.  They  are  observed  as  a function  of  landings  since  the  inspection. 

4. 6. 1.3  Output  Description.  The  output  consists  of  a magnetic  tape  40-characters  to 
a data  record  blocked  70  to  a tape  record.  A sample  is  shown  in  Figure  4-32,  and  the 
format  of  the  data  record  is  as  follows. 


Column 

Value 

Description 

3-10 

Zeroes 

Aircraft  Level 

11-12 

01 

Non-isochronal  Aircraft 

02 

Isochronal  Aircraft 

13-14 

01 

NORM  Hours  — Periodic 

02 

NORM  Hours  — Hourly  Postflight 

03 

AIEs/Sortle 

04 

Flight  Hour/Week 
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Figure  4-32.  Sample  Output  — Measure  Observations  at  Output  Level 
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Column 

Value 

Description 

05 

Soi’lie/Week 

06 

Landing/Week 

15 

1 

Origins  — Hourly  Postflight 

2 

Origins  — MAs 

3 

Origins  — Periodic 

16 

1 

Independent  Variable  — Week 

2 

Independent  Variable  — Flight  Hours 

3 

Independent  Variable  — Sortie 

4 

Independent  Variable  — Landing 

18-23 

xxxxxx 

Numerator  of  Dependent  Variable 

25-30 

xxxxxx 

Denominator  of  Dependent  Variable 

32-37 

xxxxxx 

Independent  Variable 

40 

End  of  Data  Record 

Output  is  achieved  by  a call  from  the  FORTRAN  program  to  the  COBOL  entry,  COBOUT. 

The  record  keeping  output  file  contains  a copy  of  the  input  control  data  and  an  additional 
line  containing: 


Column 

Description 

1-8 

Number  of  Control  Data  Cards 

9-16 

Number  of  Output  Observations 

17-28 

Number  of  Input  Records  from  SG  File 

29-36 

Number  of  Input  Records  from  NSG  File 

37-44 

Number  of  I'Vpe  1 Input  Cards 

45-52 

Number  of  Type  2 Input  Cards 

53-61 

Number  of  Type  3 Input  Cards  (always  zero  at  Aircraft  Level) 

Figure  4-33  is  a sample  of  the  record  keeping  output.  On  a recent  IBM  370  run  for  an 
F-106  fleet  of  150  aircraft,  a total  of  55,288  observations  were  measured,  requiring 
seven  minutes  of  computer  time. 
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Figure  4-33.  Sample  Output  — Record  Keeping  at  Aircraft  Level 
4.6.2  MEASURE  OBSERVATIONS  AT  WUC  LEVEL 

4. 6. 2. 1 Fhjrpose.  The  purpose  of  this  program  is  to  generate  the  observations  for  a 
defined  set  of  Independent  variables  for  a defined  set  of  dependent  variables  for  isochrohal 
and  non-lsochronal  aircraft  subsets. 

4.6. 2.2  Input  Data  and  Procedures.  TTie  program  uses  both  FORTRAN  and  COBOL; 
the  latter  provides  the  Input/output  capability  for  the  FORTRAN  section,  which  per- 
forms the  requisite  measurements.  A listing  of  the  complete  program,  the  associated 
JCL,  and  a sample  of  input  data  is  given  In  Paragraph  6. 10, 2.  The  COBOL  Input/out- 
put is  identical  to  that  used  in  Paragraph  4. 6. 1. 2.  The  input  comprises: 

a.  Support  General  (SG)  WUC  File. 

b.  Non-Support  General  (NSG)  WUC  File. 

c.  Card  containing  the  control  data. 

The  criteria  to  define  the  end  of  an  inspection  is  defined  in  the  same  manner  as  at  the 
aircraft  level.  Paragraph  4. 6. 1. 2. 

For  each  group  of  NSG  WUC  groups,  different  origins  for  the  measurement  of  intervals 
between  inspections  may  be  defined.  Ibus,  the  input  data  defines  first  the  origin  of 
the  inspection,  followed  by  the  groups  NSG-WUC  groups  to  be  observed.  Each  NSG- 
WUC  group  can  be  subdivided  into  a three-digit  code  and  a two-digit  code.  The 
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three-digit  code  will  Include  observations  for  all  NSG-WUCs  with  the  corresponding 
first  three  digits.  The  two-digit  code  group  will  include  observations  for  all  NSG-WUCs 
except  those  for  the  preceding  three-digit  codes.  The  three-digit  code  for  a particular 
two-digit  code  subset  must  precede  the  two-digit  code  in  the  input  control  data. 

The  NSG-WUC  set  using  the  Hourly-Postfllght,  MAI,  and  Period  inspections  as  origin 
for  the  F-106  Scheduled  Maintenance  Stucfy  is: 

Set 

Description 

2 

74A 

All  of  74A 

3 

74B 

All  of  74B 

4 

74C 

All  of  74C 

5 

74D 

All  of  74D 

6 

74F 

All  of  74F 

7 

74H 

All  of  74H 

8 

74  K 

All  of  74K 

9 

74  L 

All  of  74  L 

10 

74  P 

All  of  74  P 

11 

74Q 

All  of  74Q 

12 

74000  Only  74000 

The  NSG-WUC  sets  using  the  Hourly  Postflight  and  Periodic  inspection  as  origins  are: 

Set 

Description 

1 

IIJ 

All  of  IIJ 

2 

IIK 

All  of  IIK 

3 

11 

All  of  11  except  for  IIJ,  IIK 

4 

12B 

All  of  12B 

5 

12 

All  of  12  except  for  12B 

6 

13  C 

All  of  13C 

7 

13J 

All  of  13J 

8 

13 

All  of  13  except  for  13 C,  13 J 

9 

14 

All  of  14 

10 

23K 

All  of  23K 
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Set 

Description 

11 

23M 

All  of  23M 

12 

23N 

All  of  23N 

13 

23Q 

All  of  23Q 

14 

23S 

All  of  23S 

15 

23 

All  of  23  except  23K,  23M,  23N,  23Q,  23S 

16 

41F 

All  of  41F 

17 

41 

All  of  41  except  41F 

18 

42E 

All  of  42E 

19 

42F 

All  of  42F 

20 

42G 

All  of  42G 

21 

42 

All  of  42  except  for  42E,  42F,  42G 

22 

44 

All  of  44 

23 

45E 

All  of  45E 

24 

45J 

All  of  45J 

25 

45 

All  of  45  except  for  45E,  45J 

26 

46A 

All  of  46A 

27 

46C 

All  of  46C 

28 

46G 

All  of  46G 

29 

46  H 

All  of  46  H 

30 

46J 

All  of  46J 

31 

46 

All  of  46  except  46 A,  46C,  46G,  46H,  46 J 

32 

47 

All  of  47 

33 

49A 

All  of  49A 

34 

49 

All  of  49  except  49A 

35 

51 

All  of  51 

36 

52 

All  of  52 

37 

55 

All  of  55 

38 

63 

All  of  63 

39 

65 

All  of  65 
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Set 

Description 

40 

71 

All  of  71 

41 

75 

All  of  75 

42 

93 

All  of  93 

43 

97 

All  of  97 

The  control  card  data  used  in  the  F-106  Maintenance  Study  shown  in  Figure  4-34  has 
the  following  format . 


Card 

Column 

Description 

1 

3-10 

First  week  of  analysis 

13-20 

Last  week  of  analysis 

2 

3-10 

First  serial  number  for  analysis 

13-20 

Last  serial  number  for  anabasis 

3 

3-10 

Number  of  SG-WUC  with  week  interval  definition 
to  define  end  of  inspection 

13-20 

Number  of  groups  of  non-SG-WUC 

4 

32-36 

SG-WUC  with  greater  than  two-week  interval 
for  definition  of  end  of  inspection 

5 

32-36 

SG-WUC  with  greater  than  two-week  interval 
for  definition  of  end  of  inspection 

6 

32-36 

SG-WUC  with  greater  than  four-week  interval 
for  definition  of  end  of  inspection 

7 

8-10 

Identification  used  on  output  for  following  group 
of  NSG-WUC 

13-20 

Starting  index  for  WUC  set  number  for  the 
following  group  of  NSG-WUC 

8 

3-10 

Number  of  SG-WUC  for  origin  used  with 
following  NSG-WUC  dictionary 

13-20 

Number  of  NSG-WUC  in  following  dictionary 

9 

32-36 

SG-WUC  for  origin  with  following  NSG-WUC. 
(Number  of  cards  set  by  Card  B,  Col.  1-10.) 

10 

32-36 

NSG-WUC  using  above  SG-WUC  as  origin. 
(Number  of  cards  set  by  Card  8,  Col.  11-20.) 
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Figure  4-34.  Sample  Input  — Measure  Observations  at  WUC  Level  (Sheet  2 of  2) 
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Card 

Column 

Description 

11 

8-10 

Identification  used  on  output  for  following  SG- 
WUC  origins 

13-20 

Starting  index  for  the  WUC  set -number  for  the 
following  group  of  NSG-WUC 

12 

3-10 

Number  of  SG-WUC  in  following  dictionary 

13-20 

Number  of  NSG-WUC  in  following  dictionary 

13 

32-36 

SG-WUC  for  origins  with  following  NSG-WUC 
(Number  of  cards  set  by  Card  12,  Col.  3-10) 

14 

32-36 

NSG-WUC  using  above  SG-WUC  as  origin 
(Number  of  cards  set  by  Card  12,  Col.  13-20) 

15 

41-49 

Nine  WDC  used  to  define  unscheduled 

maintenance 

16 

41-43 

Three  WDC  used  to  define  Inspections 

17 

3-10 

Position  of  first  WDC,  corresponding  to  Abort 
mission,  in  WDC  table 

13-20 

Position  of  second  WDC,  corresponding  to 
Abort  mission,  in  WDC  table 

18 

3-10 

Isochronal  aircraft  serial  number.  (These 
must  be  in  ascending  sequence) 

13-20 

Starting  week  number  for  isochronal  aircraft 

The  final  card  must  have  an  eight -digit  number  in  Columns  3-10  greater  than  the 
last  serial  number  for  Card  2,  Columns  13-20.  This  is  used  as  an  end-of-file 
indicator. 

Cards  1-3,  7-8,  11-12,  and  17  and  on  are  examples  of  Type  1 input  cards;  4-6,  9-10, 
and  13-14  are  examples  of  lype  2;  and  15-16  are  examples  of  Type  3 (as  defined  by 
the  COBOL-FORTRAN  Unkage). 

Data  for  the  various  sets  of  WUCs  is  analyzed  with  measurements  taken  using  the 
following  Independent  and  dependent  variables.  The  independent  variables  are: 

a.  Number  of  Weeks  since  Inspection.  For  each  observation,  this  Includes  the 
week  for  which  the  values  of  the  dependent  variables  are  being  determined, 
but  not  the  week  during  which  the  inspection  was  completed. 

b.  Number  of  Flight  Hours  Accumulated  since  hispectlon.  This  Includes  all  flight 
hours  for  the  week  of  the  observation,  but  none  of  the  flight  hours  for  the  week 
during  which  the  inspection  was  completed. 
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c.  Number  of  Sorties  Flown  since  Inspection.  This  includes  all  sorties  flown  during 
the  week  of  the  observation,  but  none  of  those  flown  during  the  week  in  which  the 
inspection  was  completed. 

d.  Number  of  Landings  Performed  since  Inspection.  This  Includes  all  landings  per- 
formed during  the  week  of  the  observation,  but  none  of  those  performed  for  the 
week  during  which  the  inspection  was  completed. 

Not  all  dependent  variables  are  measured  against  each  independent  variable.  The  de- 
pendent variables  measured  are: 

a.  Unscheduled  Maintenance  Actions  per  Week. 

b.  Unshceduled  Maintenance  Actions  per  Flight  Hour. 

c.  Unscheduled  Maintenance  Actions  per  Sortie. 

d.  Unscheduled  Maintenance  Actions  per  Landing. 

Variables  a through  d are  defined  to  be  the  quotients  obtained  by  dividing  the 
number  of  unscheduled  maintenance  actions  since  an  inspection  by  the  number  of 
weeks,  flight  hours,  sorties,  and  landings  since  the  inspection.  These  are 
observed  as  functions  of  independent  variables  a through  d.  A separate  observa- 
tion of  each  variable  is  performed  for  each  of  the  inspection  types  associated 
with  the  WUC  set.  In  each  observation,  a value  of  each  variable  is  calculated  for 
each  week  up  to  the  next  occurrence  of  an  Inspection  of  any  of  these  types. 

e.  The  Number  of  Repair  Actions  (fix  phase  maintenance  actions)  per  Inspection  by 
Inspection  type.  This  observation  is  calculated  somewhat  differently  than  the 
other  dependent  variables.  For  a given  number  of  weeks  after  a given  type  of 
Inspection,  each  aircraft  provides  a number  of  observations  of  whether  or  not  a 
second  type  of  inspection  occurs  in  the  given  week.  Each  aircraft  also  provides 
a number  of  observations  of  the  number  of  repair  actions  in  the  given  week  that 
result  from  the  second  type  of  Inspection,  as  identified  by  the  When-Discovered 
Code.  The  number  of  repair  actions  per  inspection  for  this  inspection  type  is 
then  the  total  number  of  these  repair  actions  on  all  aircraft  divided  by  the  total 
number  of  inspections  of  this  type  on  all  aircraft.  The  inspection  types  for  which 
this  variable  is  calculated  are  those  for  which  When-Discovered  Codes  correspond 

to  an  inspection.  Each  observation  Includes  all  four  Independent  variables,  measured 
from  the  latest  occurrence  of  an  inspection  of  one  of  the  specified  types.  A sepa- 
rate analysis  is  performed  for  each  combination  of  When-Discovered  Code  and 
type  of  inspection  used  as  a time  origin. 

f.  Abort  Maintenance  Actions  per  Sortie.  An  abort  maintenance  action  is  defined  in 
the  input  on  Card  17.  The  ratio  of  the  number  of  these  actions  for  an, aircraft- 
week  to  the  number  of  sorties  in  that  week  constitutes  an  observation  of  this  de- 
pendent variable.  This  observation  is  analyzed  with  all  four  independent  variables, 
which  are  to  be  measured  from  the  latest  occurrence  of  an  inspection  of  one  of  the 
specified  types.  Separate  observations  are  performed  on  data  for  the  different 
inspection  types. 
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The  program  Is  suitable  for  data  from 
limitations. 

all  USAF  aircraft  with  the  following  dimensional  j 

t 

a. 

Total  number  of  WUC  sets 

200  maximum 

b. 

Number  of  WUC  groups 

7 maximum 

c. 

Number  of  WDCs 

9 maximum 

d. 

Number  of  WDCs  (Inspection) 

3 maximum 

4.6. 2.3  Output  Description.  The  output  consists  of  a magnetic  tape  with  40  characters 
to  a data  record,  blocked  70  to  a tape  record.  A sample  is  shown  in  Figure  4-35;  the 
format  of  the  data  record  is; 

■ 

Column 

Value 

1 

Description 

3-7 

Group  ID  of  Origin  (defined  by  input  data) 

8-10 

XXX 

1 

WUC  Set  Number  (defined  by  input  data) 

11 

0 

For  Columns  13-14  = 07,  08,  09,  10,  20 

1 

Current  Inspection  HPF 

2 

Current  Inspection  MAs 

3 

Current  Inspection  Periodic 

12 

1 

Non-Isochronal  Aircraft 

2 

Isochronal  Aircraft 

13-14 

07 

Unscheduled  MA/Week 

08 

Unscheduled  MA/Flight  Hour 

09 

Unscheduled  MA/Sortle 

10 

Unscheduled  MA/Landing 

18 

Repair  Action/inspection 

20 

Abort  MA/Sortle 

15 

1 

Origins  — Hourly  Fk>stfllght 

2 

Origins  — MAs 

3 

Origins  — Periodic 

16 

1 

Independent  Variable  — Week 

2 

Independent  Variable  — Flight  Hour 

4-57 


Column 

Value 

Description 

3 

Independent  Variable  — Sortie 

4 

Independent  Variable  — Landing 

18-23 

xxxxxx 

Numerator  of  dependent  variable 

25-30 

xxxxxx 

Denominator  of  dependent  variable 

32-37 

xxxxxx 

Independent  variable 

40 

¥ 

End  of  data  record 

1/'*  fu?; 

f 7?/15l  ol*  tNT  ‘ >2  LfNGTM  \2' 

CCNTPcl  Z . 

tt 


The  record-keeping  output  file  contains  a copy  of  the  input  control  data  and  an  addi- 
tional line  containing: 


Column 

Description 

1-8 

Number  of  control  data  cards 

9-16 

Number  of  output  observations 

17-28 

Number  of  input  records  from  SG  file 

29-36 

Number  of  input  records  from  NSG  file 

37-44 

Number  of  Type  1 input  cards 

45-52 

Number  of  Type  2 input  cards 

53-61 

Number  of  Type  3 input  cards 

A sample  of  the  record  keeping  output  is  shown  in  Figure  4-36.  On  a recent  IBM  370 
run  for  an  F-106  fleet  of  150  aircraft,  a total  of  3,902, 190  observations  were  meas- 
ured, requiring  25  minutes  of  computer  time  and  five  reels  of  magnetic  tape  for 
output. 

4.6.3  SORT  AIRCRAFT-LEVEL  OBSERVATIONS 

4.  6.3. 1 Purpose.  This  IBM  utility  program  sorts  the  aircraft-level  observation 
tape  records  into  an  ordered  file  for  subsequent  use  by  the: 

a.  Observation  Count  program. 

b.  Regression  and  Correlation  Analysis  program. 

c.  Trend  Analysis  program. 

The  logic  flow  for  this  Sort  is  shown  in  Figure  4-29. 

4.  6.3. 2 Input  Data  and  Procedures.  The  combined  listing  of  the  program  and  JCL 
cards  Is  shown  in  Paragraph  6. 10.3.  The  sort  fields  in  order  of  hierarchy  are: 


Field 

Column 

Description 

1 

3-16 

See  description  in  Paragraph  4. 6. 1. 3 

2 

32-37 

Independent  Variable 

The  sort  input  tape  record  is  described  In  Paragraph  4.6. 1.3,  and  a sample  is  shown 
in  Figure  4-32. 
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Figure  4-36.  Sample  Output  — Record  Keeping  at  WUC  Level 


4. 6. 3. 3  Output  Description.  Sorting  55,288  records  of  the  Aircraft- Level  Observa- 
tions file  for  an  F-106  fleet  of  150  aircraft  took  three  minutes  on  the  IBM  370. 

4.6.4  SORT  WUC-LEVEL  OBSERVATIONS 

4.6. 4.1  Purpose.  This  IBM  utility  program  sorts  the  WUC-level  observation  tape 
records  Into  an  ordered  file  for  subsequent  use  by  the  Merge  WUC-Level  Observa- 
tions program.  Separate  sorts  were  performed  to  prevent  exceeding  the  sort  capacity 
and  to  provide  more  efficient  processing.  The  logic  flow  for  this  sort  and  the  subse- 
quent merge  is  shown  In  Figure  4-30. 

4. 6. 4. 2 Input  Data  and  Procedures.  The  combined  listing  of  the  program  and  JCL 
cards  Is  shown  In  Paragraph  6. 10.4.  The  sort  fields  In  order  of  hierarchy  are: 

Field  Column  Description 

1 3-16  See  description  In  Paragraph  4. 6. 2. 3 

2 32-37  Independent  Variable 

4. 6. 4. 3 Output  Description.  Sorting  approximately  800,000  records  of  the  WUC- 
Level  Observations  file  for  an  F-106  fleet  of  150  aircraft  took  20  minutes  on  the  IBM 
370.  Five  sort  Input  tapes  generated  seven  sort  output  tapes,  which  were  subsequently 
merged. 

4.6.5  MERGE  WUC-LEVEL  OBSERVATIONS 

4. 6.5. 1 Purpose.  This  IBM  utility  program  merges  the  sorted  WUC-level  observa- 
tion tape  records  Into  an  ordered  multi-reel  file  for  subsequent  use  by  the: 

a.  Observatioi;;:  Count  program. 

b.  Regression  and  Correlation  Analysis  program. 

c.  Trend  Analysis  program. 

4.6. 5.2  Input  Data  and  Procedures.  The  combined  listing  of  the  program  and  JCL 
cards  Is  shown  In  Paragraph  6. 10. 5.  The  merge  fields  and  tape  record  description 
are  the  same  as  described  In  Paragraph  4. 6.4.2. 

4. 6. 5. 3 Output  Description.  Merging  3, 902, 190  records  of  the  sorted  WUC-Level 
Observations  file  for  an  F-106  fleet  of  150  aircraft  took  29  minutes  on  the  IBM  370. 
Seven  sort  Input  tapes  generated  a merged  output  file  of  five  tapes. 
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4.6.6  OBSERVATIONS  COUNT 


4. 6. 6. 1 Purpose.  This  COBOL  program  counts  the  number  of  observations  In  each 
of  tv'O  files: 

a.  Aircraft- Level  sorted  file. 

b.  WUC- Level  Observations  merged  file. 

As  shown  in  Figures  4-29  and  4-30,  the  respective  outputs  are  input  to  the  correspond- 
ing aircraft-level  and  WUC-level  Regression  and  Correlation  and  Trend  Analysis 
programs. 

4. 6. 6. 2 Input  Data  and  Procedures.  The  combined  listing  of  the  program  and  JCL 
cards  Is  shown  in  Paragraph  6. 10.6.  The  respective  input  records  for  aircraft  and 
WUC  levels  are  described  in  Paragraphs  4.6. 1.3  and  4.  6.2.3. 

4. 6. 6. 3 Output  Description.  The  output  tape  records  consist  of  30-character  data 
records  blocked  90  data  records  to  a tape  record.  The  output  data  record  description 
is: 


Field 

Column 

Description 

1 

3-16 

See  column  breakdown  in  Paragraphs  4. 6. 1.3 
and  4.6. 2.3,  respectively,  for  aircraft  and 

WUC  levels. 

2 

17-22 

Count  of  Observations. 

3 

24-29 

Count  of  Observations  for  Equal  Values  In  Columns 
3-10.  (For  record-keeping  purposes,  not  used  by 
subsequent  programs.) 

Figure  4-37  shows 

a sample  tape  output  record  for  the  Aircraft-Level  Observations 

Count.  Processing  for  an  F-106  fleet  of  150  aircraft  on  the  IBM  370  resulted  In  the 
following  Input/output  statistics. 

a.  Aircraft  Level.  55,288  input  records  and  54  output  records  required  three  min- 
utes of  processing  time. 

b.  WUC  Level.  3,902, 190  input  records  and  4342  output  records  required  23  minutes 
of  processing  time. 
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Figure  4-37.  Sample  Output  — Observations  Count 


4.6.7  REGRESSION  AND  CORRELATION  ANALYSIS 

4. 6. 7. 1 Purpose.  The  purpose  of  this  program  Is  to  provide  regression  and  correla- 
tion analysis  of  the  data  from  the  observation  at  both  aircraft  and  WUC  levels. 


4. 6. 7. 2 Input  Data  and  Procedures.  The  program  uses  both  FORTRAN  and  COBOL, 
with  the  latter  providing  the  input/output  capability  for  the  FORTRAN  in  a similar 
manner  as  in  Measure  of  Observation  at  the  Aircraft  Level,  Paragraph  4.6. 1.2.  Link- 
age is  provided  by  a call  in  the  FORTRAN  program  to  a COBOL  program  entry.  The 
entries  in  the  COBOL  program  and  their  uses  are: 


COBFRQ  — reads  the  frequency  count  of  observations  tape  records. 

COBOBS  — reads  the  sorted  or  merged  observations  tape  records. 

A listing  of  the  program  and  the  associated  JCL  Is  given  in  Figure  4-35. 

The  input  consists  of  two  magnetic  tape  files,  one  containing  the  observations  and  the 
other  the  frequency  of  each  group  of  observations  as  described  previously.  The  routines 
used  can  handle  up  to  a maximum  of  5000  observations.  If  more  are  available,  records 
are  skipped  to  reduce  the  total  number  of  observations  for  computation  to  less  than  5000. 
If  f-iwcr  than  four  observations  are  available,  the  data  for  that  group  is  bypassed.  Under 
- itain  circumstances,  the  routine  MISR  can,  for  constant  values  of  input  data,  provide 
extremely  high  output  values  (1.0E75).  Under  these  conditions,  flag  is  set  and  all  output 
V ues  are  set  to  zero  except  the  mean  values  and  the  number  of  observations. 
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4.6. 7.3  Output  Description.  The  output  is  a listing  of  the  various  parameters  together 
with  the  identifier  for  the  particular  group.  A sample  output  is  given  in  Figure  4-38. 
The  identifier  is  determined  from  the  codes  given  in  Paragraphs  4. 6. 1 and  4. 6.  2 at  the 
aircraft  and  WUC  levels,  respectively.  The  analysis  provides  the  following  ouput 
parameters. 
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Figure  4-38.  Sample  Output  — Correlation  and  Regression  Analysis 

Description 

Correlation  Coefficient 
Intercept  for  Independent  Variable 
Slope  of  fiidependent  Variable 
Standard  Regression  Coefficient 
Standard  Error  Estimate 
F-level  for  Regression 
Mean  of  Independent  Variable 
Standard  Deviation  of  Independent  Variable 
Mean  of  Observation 
Standard  Deviation  of  Observation 
Number  of  Observations 

The  output  report  tape  records  consist  of  130-character  data  records  blocked  15  data 
records  to  a tape  record.  Output  is  provided  by  a call  from  the  FORTRAN  program  to 
a COBOL  entry,  COBOT2. 


Output  Title 
CC 
A 
B 

SER 

SEE 

F 

XBAR 

XSIGMA 

YBAR 

YSIGMA 

N 
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A fleet  of  150  F-106  aircraft  required  one  minute  of  computer  time  to  process  55,288 
records  in  54  groups  at  the  Aircraft  Level.  At  the  WUC  Level,  it  required  25  minutes 
of  computer  time  to  process  3,902, 190  records  in  4342  groups. 

4.6.8  TREND  ANALYSIS 

4.6.8. 1  Purpose.  The  purpose  of  this  program  is  to  determine  the  trend  of  various 
data  bank  variables  and  the  effect  of  scheduled  inspections  on  these  trends.  The  analy- 
sis is  performed  at  the  aircraft  and  WUC  levels  using  the  same  program. 


4, 6.8.2  Input  Data  and  Procedures.  A listing  of  the  program  (written  in  COBOL), 
the  JCL  for  use  on  the  IBM  370,  and  a sample  of  input  data  is  shown  in  Paragraph 
6. 10. 8.  The  input  data  consists  of  three  files: 


a.  Sorted  observations. 

> 

b.  Frequency  count  of  observations. 

c.  Cutoff  and  dependent  axis  titles.  . 


For  either  WUC  or  Aircraft  Level 


The  generation  of  Files  a and  b has  been  covered  previously.  The  data  cards  to  create 
the  third  file  have  the  following  format. 


Card  Column  Description 

a 1-5  Printout  Suppression  Cutoff 

b 1-80  Title  used  dependent  axis,  one  card  per  title 

A sample  input,  that  used  in  the  F-106  Scheduled  Maintenance  Study,  is  given  in 
Figure  4-39. 


The  program  is  suitable  for  data  from  any  USAF  aircraft,  with  the  following  program 
dimension  limitations. 


Number  of  Dependent  Titles  15  maximum 

Number  of  Independent  Intervals  200  maximum 

The  independent  titles  and  the  decoding  for  the  dependent  titles  written  Into  the  program 
are  compatible  with  the  variables  and  codes  generated  in  the  measurement  programs  at 
both  Aircraft  and  WUC  Levels. 

4. 6. 8. 3  Output  Description.  The  output  is  a plot  for  each  group  of  input  identifiers 
(Columns  3 through  16  of  the  input  data)  of  the  dependent  versus  independent  variables. 
The  structure  of  the  plot  tape  consists  of  130-character  data  records,  blocked  15  to  a 
tape  record. 
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Figure  4-39.  Sample  Input  — Trend  Analysis 

At  the  WUC  Level,  the  values  for  printout  suppression  have  a significant  Impact  on  out- 
put volume.  The  effect  of  cutoff  on  output  volume  Is  shown  below,  based  on  the  F-106 
experience  for  150  aircraft. 

Cutoff  Values  Number  of  Plots  at  WUC  Level 
0 3680 

5 2059 

A fleet  of  150  F-106  aircraft  required  three  minutes  to  process  55,300  records  and 
ten  minutes  to  print  the  54  plots  at  the  Aircraft  Level.  At  the  WUC  Level,  It  required 
30  minutes  to  process  3, 902, 190  records  and  three  hours  to  print  the  2059  plots.  A 
sample  output  from  a recent  F-106  run  Is  shown  in  Figure  4-40. 

4. 7 REMOVAL  ACTION  ANALYSIS  — TASK  V 

The  objective  of  this  task  is  to  generate  the  cumulative  distribution  for  the  interval  be- 
tween removals  on  each  WUC  and  to  rank  the  codes  in  order  of  their  frequencies  of 
removal.  A system  of  nine  COBOL  programs  has  been  developed  to  perform  this  task. 
(See  Figure  4-41  and  the  following  page. ) 


race  I 


CuaacNT  lOENI 
0. 


ooioiceioioti2 


Figure  4-40.  Sample  Output  — • Trend  Analysis 

a.  Task  V Preprocessor. 

b.  Sort  WUC  Frequency. 

c.  Write  WUC  Frequency. 

d.  Sort  Non-lsochronal  Frequency. 

e.  Write  Non-lsochronal  Frequency. 

f.  Sort  Isochronal  Frequency. 

g.  Write  Isochronal  Frequency. 

h.  Sort  Removal  Intervals. 

1.  Cumulative  Distribution  of  Removal  Intervals 


Paragraph  6.11  contains  the  listing  of  the  source  programs  and  the  corresponding  Job 
control  cards. 


4.7.1  TASK  V PREPROCESSOR 

4.7. 1. 1 Purpose.  The  purpose  of  the  Task  V Preprocessor  Is  to  generate  two  output 
files  for  further  processing,  using  the  sorted  data  bank  and  the  isochronal  aircraft 
definition  as  Input  data. 


REPORT 


ISOCHRONAL 

AIRCRAFT 

REPORT 


NON- 

ISOCHRONAL 

AIRCRAFT 

REPORT 


Figure  4-41.  Logic  Flow  — Removal  Action  Analysis 
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4. 7. 1. 2 Input  Data  and  Procedures.  There  are  two  types  of  Input  data:  tape  and  card 
deck.  Tape  data  consists  of  a data  bank  sorted  in  the  order  of  WUC,  HMC,  aircraft 
serial  number,  and  week  number.  The  tape  record  layout  is  shown  in  Figure  4-4.  The 
data  card  deck  has  the  following  format. 

Card  Column  Description 

a 3-5  Number  of  Isochronal  aircraft. 

b 3-10  Isochronal  aircraft  serial  number  (number  of  cards 

set  by  Card  a). 

A sample  input  data  deck  is  shown  in  Figure'  4-42. 

The  Removal  i requency  file  is  generated  by  accumulating  the  maintenance  actions 
(Type  3 record,  Columns  44  through  46)  for  each  WUC  for  the  two  aircraft  subsets. 

The  removal  action  intervals  are  measured  between  occurrances  of  removals  of  each 
WUC  in  terms  of  the  number  of  weeks  and  the  number  of  flight  hours. 

4.7. 1.3  Output  Description.  The  output  consists  of  two  tape  files,  both  20  characters 
to  a data  record  and  blocked  90  to  a tape  record.  The  format  of  the  Removal  Frequency 
file  is: 


Column 

Description 

1-5 

Work  Unit  Code  (WUC) 

6-10 

Isochronal  Frequency 

11-15 

Non-lsochronal  Frequency 

20 

Record  Mark 

A sample  output  is  shown  in  Figure  4-43. 
The  format  of  the  Removal  Intervals  file  is: 


Column 

Description 

1-5 

Work  Unit  Code  (WUC) 

10-15 

Observation  Data 

17 

Isochronal  Indicator; 

=1  Isochronal  Inspection 

=2  Non-isochronal  Inspection 
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Figure  4-42,  Sample  Input  — Task  V Preprocessor 
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Figure  4-44.  Sample  Output  — Removal  Intervals 

4.7.2  SORT  WUC  FREQUENCY 

4.7.2. 1 Purpose.  The  purpose  of  this  program  is  to  sort  the  output  file  Removal 
Frequency  for  further  processing. 

4.7.2. 2 Input  Data  and  Procedures.  Input  data  consists  of  the  tape  file  Removal  Fre- 
quency as  described  in  Paragraph  4. 7. 1.3. 

4. 7. 2. 3 Output  Description.  The  output  tape  file,  20  characters  to  a data  record 
blocked  90  to  a tape  record,  consists  of  Isochronal  and  Non-isochronal  WUC  repair 
action  frequency  data,  sorted  according  to  the  following  key  in  ascending  order. 


Column 


Description 


It  required  about  one  minute  on  the  IBM  370  to  sort  1620  records  for  the  150-aircraft 
F-106  fleet. 
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4.7.3  WRITE  WUC  FREQUENCY 

4. 7. 3.1  P>urpose.  This  program  generates  a 
report  file  listing  the  removal  action  by  ascending 
WUC. 

4.7.3. 2 Biput  Data  and  Procedures.  The  input 
data  consists  of  the  output  of  the  sort  described  in 
Paragraph  4.7. 2.3. 

4. 7. 3. 3 Output  Description.  The  output  consists 
of  two  report  files  (one  for  Isochronal  and  one  for 
Non-Tsochronal  data),  both  having  70  characters  to 
a data  record  blocked  40  to  a tape  record.  It  re- 
quired two  minutes  on  the  IBM  370  to  generate  and 
print  both  report  files  for  the  1620  F-106  WUCs. 

A sample  output  is  shown  in  Figure  4-45. 

4.7.4  SORT  NON-ISOCHRONAL  FREQUENCY 

4. 7. 4. 1 Purpose.  The  purpose  of  this  program  is 
to  sort  the  output  file  Removal  Frequency  for  further 
processing. 

4.7.4.  2 Input  Data  and  Procedures.  The  input  data 
consists  of  the  tape  file  Removal  Frequency  as  de- 
scribed in  Paragraph  4.7. 1.3. 

Figure  4-45.  Sample  Output  — 4.7.4. 3 Output  Description.  The  output  tape  file. 

Report  of  Removal  20  characters  to  a data  record  blocked  90  to  a tape 
Frequency  record,  consists  of  the  Isochronal  and  Non- 

Isochronal  WUC  repair  action  frequency  data, 
sorted  according  to  the  following  key  in  descending  order. 

Column  Description 

11-15  Non-lsochronal  Frequency 

It  required  about  one  minute  on  the  IBM  370  to  sort  1620  records  for  the  150-aircraft 
F-106  fleet. 

4.7.5  WRITE  NON-ISOCHRONAL  FREQUENCY 

4.7.5. 1 FHirpose.  This  program  generates  a report  file  listing  the  Non-lsochronal 
WUC  by  decreasing  removal  action  frequency. 
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4.7. 5.  2 Input  Data  and  Procedures.  The  Input  data  consists  of  the  output  of  the  sort 
described  in  Paragraph  4. 7.4. 3. 

4. 7. 5. 3  Output  Description.  The  output  consists  of  a report  file,  70  characters  to 
a data  record  blocked  40  to  a tape  record.  It  required  two  minutes  on  the  IBM  370  to 
generate  and  print  the  report  files  for  the  1620  F-106  WUCs.  The  output  is  very  similar 
to  that  shown  in  Figure  4-45. 

4.7.6  SORT  ISOCHRONAL  FREQUENCY 

4. 7. 6. 1 Purpose.  The  purpose  of  this  program  is  to  sort  the  output  file  Removal 
Frequency  for  further  processing. 

4. 7. 6. 2 Input  Data  and  Procedures,  hiput  data  consists  of  the  tape  file  Removal  Fre- 
quency as  described  in  Paragraph  4. 7. 1.3. 

4. 7.6.3  Output  Description.  The  output  tape  file,  20  characters  to  a data  record 
blocked  90  to  a tape  record,  consists  of  the  Isochronal  and  Non-Isochronal  WUC  repair 
action  frequency  data,  sorted  according  to  the  following  key  in  descending  order. 

Column  Description 

6-10  Isochronal  Frequency 

It  required  about  one  minute  on  the  IBM  370  to  sort  1620  records  for  the  150-aircraft 
F-106  fleet. 

4.7.7  WRITE  ISOCHRONAL  FREQUENCY 

4.7.7. 1 Fhirpose.  This  program  generates  a report  file,  listing  the  Isochronal  WUC 
by  decreasing  repair  action  frequency. 

4. 7. 7. 2 Input  Data  and  I*rocedures.  Input  data  consists  of  the  output  of  the  sort  de- 
scribed in  Paragraph  4. 7.6.3. 

4. 7. 7. 3 Output  Description.  The  output  consists  of  a report  file,  70  characters  to  a 
data  record  blocked  40  to  a tape  record.  It  requires  two  minutes  on  the  IBM  370  to 
generate  and  print  the  report  files  for  the  1620  F-106  WUCs.  The  output  is  very 
similar  to  that  shown  in  Figure  4-45. 

4.7.8  SORT  REMOVAL  INTERVALS 

4.7.8. 1 Purpose.  This  program  is  used  to  sort  output  file  Removal  Intervals  for 
further  processing. 


4-74 


4. 7.  8. 2 Input  Data  and  Procedures.  The  input  data  consists  of  the  tape  file  Removal 
Ditervals  as  described  in  Paragraph  4. 7.1. 3. 

4. 7. 8. 3 Output  Description.  The  output  tape  files,  20  characters  to  a data  record 
blocked  90  to  a tape  record,  consists  of  removal  intervals,  in  weeks  and  flight  hours, 
sorted  in  the  following  ascending  order. 


Key 

Column 

Description 

1 

17 

Isochronal  hidicator 

2 

19 

Data  Type 

3 

1-5 

Work  Unit  Code 

It  required  about  three  minutes  to  sort  the  121,721  records  on  the  IBM  370  for  the  fleet 
of  150  F-106  aircraft. 

4.7.9  CUMULATIVE  DISTRIBUTION  FOR  REMOVAL  INTERVALS 

4.7.9. 1 Purpose.  This  program  generates  cumulative  distribution  plots  for  removal 
Intervals  by  WUC  and  isochronal  subset  type.  The  number  of  observations,  maximum 
and  minimum  values,  and  the  mean  and  variance  of  the  observation  are  printed  on  the 
top  of  each  plot. 

4. 7. 9. 2 Input  Data  and  Procedures.  The  input  data  card  has  the  following  format. 

Column  Description 

1-5  Printout  Suppression  Cutoff  for  Non-Isochronal  Subset 

6-10  Printout  Suppression  Cutoff  for  Isochronal  Subset 

Figure  4-46  Is  a sample  data  card. 

4. 7. 9. 3 Output  Description.  Cumulative  distribution  plots  by  a printer  contain: 

a.  Work  Unit  Code  (WUC) 

b.  Output  Data  — One  of  two  types: 

Removal  Interval  Length  In  Weeks 
Removal  Interval  Length  In  Flight  Hours 

c.  Isochronal  or  Non-Isochronal  Subset 

d.  Number  of  Observations 

e.  Maximum  and  Minimum  Values 

f.  Mean  and  Variance 
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Figure  4-46.  Sample  Input  — Cutoff  for  Removal  Intervals 


The  plot  tape  consists  of  130-character  data  records  blocked  15  to  a tape  record.  It 
took  seven  minutes  on  the  IBM  370  to  process  121,721  records  for  the  F-106  fleet  and 
one  hour  on  the  printer  to  make  1050  plots.  A sample  output  from  a recent  F-106  run 
is  shown  in  Figure  4-47. 

4.8  AIRCRAFT  INSPECTION  HISTORIES 

4. 8. 1 PURPOSE.  The  purpose  of  this  task  is  to  produce  a plot  of  accumulated  flying 
hours  versus  calendar  time  in  weeks  for  inspections. 

4. 8. 2 INPUT  DATA  AND  PROCEDURES.  The  input  data  consists  of  plot  titles,  in- 
spection WUCs,  and  plot  symbols.  The  data  card  deck  has  the  following  format. 


Card 

Column 

Description 

1 

1-80 

Title  describing  the  horizontal  axis 

2 

1-80 

Title  describing  the  vertical  axis 

3 

1 

Number  of  Inspection  Work  Unit  Code  (WUC) 

3 

10-14 

First  Inspection  WUC 
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Figure  4-47.  Sample  Output  — Cumulative  Distribution  for  Removal  Action  Interval 


Card 

Column 

Description 

3 

20-24 

Second  Inspection  WUC 

3 

30-34 

Third  Inspection  WUC 

3 

40-44 

Fourth  Inspection  WUC 

3 

50-54 

Fifth  Inspection  WUC 

3 

60-64 

Sixth  Inspection  WUC 

3 

70 

Plot  symbol  for  first  WUC 

3 

71 

Plot  symbol  for  second  WUC 

3 

72 

Plot  symbol  for  third  WUC 

3 

73 

Plot  symbol  for  fourth  WUC 

3 

74 

Plot  symbol  for  fifth  WUC 

3 

75 

Plot  symbol  for  sixth  WUC 

The  current  program  handles  up  to  six  Inspection  WUCs.  If  fewer  than  six  Inspection 
WUCs  are  required,  the  unused  columns  should  be  left  blank.  A sample  Input  data  Is 
shown  In  Figure  4-48. 
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Figure  4-48.  Sample  Input  — Aircraft  Inspection  Histories 

4. 8. 3 OUTPUT  DESCRIPTION.  A sample  output  Is  shown  In  Figure  4-49.  The  air- 
craft serial  number  and  a list  of  the  plot  symbols  with  matching  Inspection  WUCs  are 
printed  on  the  top  of  each  plot.  An  asterisk  symbol  will  be  printed  If  more  than  one 
Inspection  WUC  occurs  at  the  same  week  and  flight  hour.  The  150-alrcraft  F-106  fleet 
took  three  minutes  on  the  IBM  370  to  produce  21,997  Inspection  history  plots. 

4.9  COMPUTER  OUTPUT  ANALYSIS 


4. 9. 1 OUTPUT  ANALYSIS  - FREQUENCY  ANALYSIS  - TASK  I.  The  purpose  of 
this  test  is  to  determine  what  kinds  of  malfunctions  occur  on  a WUC,  and  when  they 
are  discovered.  These  results  are  then  compared  with  the  definition  of  the  scheduled 
inspections  themselves.  The  results  provide  a basis  for  answering  such  questions  as: 

a.  Do  the  Inspections  discover  the  discrepancies  they  look  for  or  are  these  more  often 
discovered  In  some  other  phase  of  aircraft  operations  ? 

b.  Are  there  malfunctions  discovered  in  other  phases  for  which  changes  in  the  cur- 
rent Inspection  packages  might  be  proposed  ? 

The  maintenance  action  frequency  analyses  were  used  extensively  during  the  mainten- 
ance program  analysis  and  definition  process.  Task  I also  supplied  Input  data  to  the 
effectiveness  analyses. 
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Figure  4-49.  Sample  Output  — Aircraft  Inspection  Histories 


4.9.2  OUTPUT  ANALYSIS  - MANHOUR  AND  NOR  TIME  ANALYSES  - TASK  II.  The 
purpose  of  this  task  is  to  determine  the  variation  in  NORM  hours  and  manhours  charged 
to  each  type  of  scheduled  or  special  Inspection.  Any  NOR  time  charged  during  preflights 
and  basic  postflights  is  recorded  as  unscheduled  maintenance.  Manliours  expended  during 
the  look  phase  of  these  inspections  is  charged  as  support  general,  however,  so  these  in- 
spections are  included  when  calculating  the  look-phase  manhour  distributions. 

For  a given  type  of  scheduled  Inspection,  each  occurrence  of  that  inspection  on  an  air- 
craft provides  an  observation  of  the  NORM  hours  charged  during  the  look  and  repair 
phases  of  the  inspection  and  the  manhours  charged  during  the  look  phase. 

In  addition,  this  analysis  calculated  the  number  of  manhours  required  for  maintenance 
actions  on  specific  WUCs,  either  repair  actions  stemming  from  Inspections  or  unsched- 
uled maintenance  actions.  Also,  the  NORM  and  NORS  hours  charged  against  specific 
WUCs  are  calculated. 

The  NORM  hour  per  scheduled  inspection  distributions  are  used  in  conjunction  with  the 
Network  Analysis  Model  to  obtain  estimates  of  network  branch  span  times  for  use  in 
evaluating  the  new  scheduled  inspection  packages.  The  NORM  and  manhour  per  WUC 
maintenance  action  results  are  required  for  the  effectiveness  analyses  of  alternative 
maintenance  programs. 

From  the  NORM  and  manhour  per  maintenance  action  data,  the  corresponding  rates 
for  each  WUC  set  are  derived.  These  in  turn  are  input  to  the  effectiveness  model  so 
that  the  NORM  hours  and  maintenance  manhours  accumulated  for  unscheduled  mainten- 
ance during  the  intervals  between  inspections  can  be  calculated. 

4. 9. 3 OUTPUT  ANALYSIS  - INTERVAL  LENGTH  ANALYSIS  - TASK  111.  The  pur- 
pose of  this  analysis  is  to  determine  the  inspection  interval  lengths  actually  experienced 
during  the  current  maintenance  program  and  also  to  determine  interval  variability.  The 
WUC  maintenance  action  Interval  distributions  provided  a basis  for  determining  WUC 
failure  characteristics. 

4.9.4  OUTPUT  ANALYSIS  - EFFECT  OF  TIME  AFTER  INSPECTION  - TASK  IV. 

This  analysis  was  performed  to  determine  the  trends  of  various  data  bank  variables 
with  time  after  scheduled  inspections  and  the  effects  of  scheduled  inspections  on  these 
trends.  The  correlation  and  regression  analyses  provided  linear  empirical  functions 
for  the  various  parameters  versus  time  after  for  use  in  the  effectiveness  analyses. 

These  results  were  supplemented  by  the  trend  analysis  scatter  diagrams  so  that  the 
validity  of  the  linear  regression  analyses  could  be  assessed  and  appropriate  adjustments 
made  when  the  time  effect  was  clearly  nonlinear. 


4.9.5  OUTPUT  ANALYSIS  - REMOVAL  ACTION  FREQUENCIES  AND  INTERVAL 
LENGTH  DISTRIBUTIONS.  The  purpose  of  these  analyses  was  to  provide  a basis  for 
determining  the  requirements  for  time  changes  and  scheduled  removals  for  the  various 
WUCs.  The  suitability  of  the  current  time  change  specifications  was  assessed  using 
this  data  in  the  maintenance  program  analysis  process.  These  results,  along  with  the 
results  from  Task  III,  were  the  basis  for  determining  how  well  the  current  time  change 
specifications  agreed  with  the  failure  characteristics  of  the  WUC. 

4. 9. 6 OUTPUT  ANALYSIS  - AIRCRAFT  INSPECTION  HISTORIES.  The  Inspection 
history  analysis  provided  a plot  of  inspection  events  versus  weeks  and  accumulated 
flying  hours  for  each  aircraft  In  the  data  bank.  These  provide  a record  of  scheduled 
inspection  events  and  Intervals  as  they  actually  occurred  for  each  aircraft.  This 
analysis  supplemented  the  other  tasks  in  determining  actual  inspection  flow  times  and 
intervals.  This  was  necessary  because  recording  anomalies  and  errors  In  the  data 
system  resulted  In  ai^arent  gaps  during  the  inspections  and  spurious  short  intervals 
that  could  be  corrected  manually.  Improved  logic  for  Tasks  II  and  III  was  developed 
as  a result  of  processing  the  results  of  this  task. 
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EFFECTIVENESS  AND  COST  PROGRAMS 

5. 1 GENERAL  DESCRIPTION 

For  the  Phase  III  study,  three  sets  of  programs  were  developed: 

a.  Effectiveness  Model 

b.  Network  Analysis  Model  (NAM) 

c.  Manhour  and  Not  Operational  Ready  — Maint^ance  (NORM)  Data  (for  WUC  sets) 

Detailed  discussions,  sample  input,  sample  output,  and  IBM  370  running  statistics  for 
these  programs  are  in  Paragraphs  5.2,  5.3,  and  5.4,  respectively.  Listings  of  the 
programs,  together  with  the  control  cards,  are  contained  in  Paragraphs  6. 13,  6. 14, 
and  6. 15,  respectively. 

5.2  EFFECTIVENESS  MODEL 

5. 2. 1 PURPOSE.  The  purpose  of  the  effectiveness  model  is  to  predict  the  impact  on 
aircraft  availability  and  mission  reliability  of  maintenance  program  variations  in 
scheduled  inspection  package  content  and  interval  lengths.  The  requirement  to  meet 
the  flying  hour  program  is  treated  as  a constraint.  This  is  done  by  inputting  aircraft 
utilization  to  the  effectiveness  model  along  with  the  description  of  the  alternative  main- 
tenance program.  The  model  then  calculates  the  effectiveness  as  a function  of  inter- 
val length  over  the  maintenance  program  period,  which  is  the  time  interval  between 
occurrences  of  the  major  inspection  of  the  maintenance  program. 

The  basic  approach  of  the  effectiveness  model  is  to  calculate  the  values  of  certain 
measures  that  describe  the  impact  of  the  maintenance  program  by  a process  of  sum- 
mation starting  at  the  work  unit  code  (WUC)  set  level.  For  this  reason,  the  distribu- 
tions of  the  basic  variables  involved  in  this  process  can  be  described  merely  in  terms 
of  their  mean  and  standard  deviations,  since  application  of  the  "central  limit"  theorem 
implies  that  the  sum  variables  calculated  by  the  model  will  be  approximately  normally 
distributed  independently  of  how  the  summands  are  distributed.  Use  of  this  fact  In 
developing  the  model  has  vastly  simplified  its  structure  and  minimized  the  need  for 
manipulating  probability  distributions  for  the  variables. 

A general  flow  chart  of  the  effectiveness  model  is  shown  in  Figure  5-1.  Calculations 
made  by  the  model  fall  naturally  into  four  major  groupings.  The  first  consists  of  those 
at  the  Inspection  Task/WUC  set  level;  results  of  these  calculations  are  combined  in  the 
second  step  to  produce  aircraft-level  values.  The  third  step  consists  of  those  calculations 
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pertaining  to  two  consecutive  inspection  packages  and  the  intervening  interval,  AI. 

At  this  level,  total  not  operational  ready  — supply  (NORS),  availability,  dependability, 
manhours,  and  effectiveness  are  evaluated  parametrically  as  functions  of  inspection 
package  type  and  interval  length,  AI.  The  final  step  consists  of  combining  the  results 
obtained  in  the  third  step  to  produce  total  manhours,  NOR  hours,  availability,  and 
effectiveness  for  the  maintenance  program  period. 

5.2.2  INPUT  DATA  AND  PROCEDURES.  In  Figure  5-1,  input  values  are  represented 
by  the  blocks  with  dashed  outlines.  Unscheduled  maintenance  is  described  by  data  in- 
put in  Blocks  1,  2,  and  3.  This  includes  the  number  of  manhours  per  unscheduled 
maintenance  action  for  each  WUC  set,  the  number  of  unscheduled  maintenance  actions 
per  unit  time  for  a WUC  set  versus  time  after  the  inspection  package,  and  the  number 
of  NORM  hours  per  unscheduled  maintenance  action  for  each  WUC  set. 

In  Block  4,  the  manhour  distributions  for  preflight  and  basic  postflight  inspections  are 
input.  Total  manhours  for  these  inspections  during  AI  are  calculated  using  this  data 
and  the  frequencies  for  these  inspections  as  determined  from  the  aircraft  utilization 
specified  in  Block  5. 

Special  inspections  are  described  in  Blocks  6 and  7 in  terms  of  the  manhours  and 
NORM  hours  per  inspection  and  inspection  intervals.  NORS  hours  per  week  for 
each  WUC  set  are  input  in  Block  8. 

Operational  data  on  which  a measure  of  dependability  can  be  based  is  input  in  Blocks  9 
and  10.  This  data  includes  the  number  of  aborts  per  sortie  following  the  different 
types  of  inspection  packages  at  the  WUC  set  level  and  the  number  of  AIEs  (accidents, 
incidents,  and  emergency  unsatisfactory  material  reports,  EUMRs)  per  sortie  at  the 
aircraft  level. 

Additional  data  describing  the  maintenance  program,  such  as  the  inspection  package 
sequence  and  constraints  on  the  variability  of  AI,  is  input  in  Block  11.  The  distribu- 
tions of  manhours  and  NORM  hours  per  inspection  package,  as  calculated  by  NAM, 
are  input  in  Blocks  25  and  26. 

The  effectiveness  analysis  procedure  consists  of  the  four  major  calculation  steps 
mentioned  earlier.  These  are  described  in  detail  in  the  following  paragraphs. 

5.2,2, 1 Inspection  Task  and  WUC  Set  Calculations.  At  the  inspection  task  and  WUC 
set  level,  distributions  for  the  numbers  of  manhours  and  NORM  hours  during  AI  for 
each  WUC  set  are  calculated  in  Blocks  12  and  14  in  Figure  5-1.  This  is  accomplished 
by  computing  the  expected  number  of  unscheduled  maintenance  actions  during  AI  for 
each  WUC  set  following  the  different  types  of  inspection  packages  in  Block  13  and 
combining  them  with  the  manhours  and  NORM  hours  rates. 

To  calculate  preflight  and  basic  postflight  inspection  manhours,  distribution  of  the 
number  of  sorties  during  AI  is  calculated  from  the  utilization  data  in  Block  5.  This 
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results  in  an  estimate  for  the  distribution  of  the  number  of  basic  postflight  inspections 
during  AI  and,  using  a derived  ratio,  r,  for  the  number  of  preflights  per  postflight,  an 
estimate  for  the  distribution  of  the  number  of  preflights  in  AI  in  Block  15.  Combining 
these  results  with  the  input  inspection  manhours,  distribution  of  the  number  of  preflight 
and  basic  postflight  manhours  is  calculated  in  Block  19. 

The  NORS  hours  during  AI,  by  WUC  set,  are  calculated  in  Block  16  using  the  rates 
input  in  Block  8. 

5. 2.2.2  Aircraft-Level  Calculations.  Unscheduled  maintenance  manhours  and  NORM 
hours  during  AI  for  the  various  WUC  sets  are  aggregated  to  obtain  the  distributions 
for  these  parameters  at  the  aircraft  level  in  terms  of  their  mean  and  standard  deviations. 

For  special  inspections,  the  distribution  for  the  number  of  special  inspections  during 
AI  is  obtained  from  the  interval  distribution  for  each  type  of  inspection.  Manhours  and 
NORM  hours  for  each  type  of  special  inspection  during  AI  are  then  calculated  in  Block 
20  from  the  input  manhours  and  NORM  hours  per  inspection. 

In  Block  22,  the  aborts/sortie  rates  following  different  types  of  inspections  are  calcu- 
lated for  the  total  aircraft  by  summing  the  rates  for  the  various  WUC  sets.  The  air- 
craft abort  rate  is  combined  with  the  AIEs/sortie  rate  in  Block  23  to  obtain  a mission 
"failures"  per  sortie  rate  following  the  different  types  of  inspections. 

5. 2. 2.  3 Inspection  Packages  and  Intervening  Interval,  AI.  Parametric  results  for 
the  several  variables  for  two  consecutive  inspection  packages  and  the  intervening 
interval  are  obtained  as  functions  of  AI. 

The  following  calculations  are  included  in  this  step:  the  distribution  of  the  total  man- 
hours during  AI  following  a given  type  of  inspection  package  is  calculated  in  Block  24 
of  Figure  5-1  by  determining  the  distributicMi  for  the  total  of  unscheduled  maintenance 
manhours  in  AI,  preflight  and  basic  postflight  manhours  in  AI,  special  inspection 
manhours  in  AI,  and  manhours  in  the  following  scheduled  inspection. 

Distribution  for  the  total  NOR  hours  during  AI  and  the  subsequent  scheduled  inspection 
is  calculated  in  a similar  way  in  Block  27  by  determining  the  distribution  for  the  total 
of  the  unscheduled  NORM  hours  in  AI,  the  special  inspection  NORM  hours  in  AI,  the 
total  NORS  hours  in  AI,  and  the  NORM  hours  in  the  subsequent  scheduled  Inspection. 

From  the  utilization  data  input  in  Block  5,  distribution  of  the  length  of  AI  in  calendar 
time  when  AI  is  expressed  in  terms  of  one  of  the  other  three  time  bases  - flying  hours, 
sorties,  and  landings  — is  calculated.  This  parameter  is  required  in  order  to  calculate 
the  distribution  of  availability  in  Block  28.  Availability  is  the  fraction  of  the  time  the 
aircraft  is  operationally  ready,  that  is: 

A 1 S NOR 

Ay  = 1 - 
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where  L CT  is  accumulated  calendar  time.  This  measure  is  calculated  as  a function 
of  AI  in  Block  28. 

From  the  mission  "failure"  rate  (F/S/A)  calculated  in  Block  23,  the  dependability 
parameter  is  calculated  in  Block  30.  This  is  the  probability  that  a mission  "failure," 
that  is,  an  abort  or  AIE,  will  not  occur  during  the  sortie: 

D = exp  (-  F/S/A). 

Effectiveness  as  a function  of  AI  for  two  ccnsecutlve  inspection  packages  and  the  inter- 
vening interval  is  evaluated  at  Block  29.  This  consists  of  d^eimining  the  probability 
distribution  of  the  product  of  availability  and  dependability. 

5. 2.2. 4 Distribution  of  Total  Manhours.  In  the  fourth  and  final  step  of  the  effective- 
ness analysis,  distribution  of  the  total  manhours  across  the  maintenance  program  is 
determined  as  a function  of  AI  in  Block  31.  The  NOR  hours  versus  AI  distributions 
for  the  consecutive  packages  are  the  basis  for  determining  the  NOR  hours  for  the 
maintenance  program  as  a function  of  AI  in  Block  32. 

Distributions  for  total  calendar  time  for  the  maintenance  program  period  are  calculated 
and  used  to  calculate  distributions  for  the  manhours  per  unit  time  in  Block  36,  NOR 
hours  per  unit  time  In  Block  33,  and  manhours  per  fli^t  hour  in  Block  37. 

Dependability  during  the  maintenance  program  is  calculated  as  a function  of  AI  in  Block 
35,  and  the  distribution  of  effectiveness  as  a function  of  AI  is  calculated  in  Block  34. 

5.2.3  DETAILED  DESCRIPTION  OF  EFFECTIVENESS  MODEL.  A detailed  flow  chart 
of  the  effectiveness  model  is  shown  in  Figure  5-2.  In  the  following  discussion,  the 
equations  for  the  various  steps  in  the  analysis  will  be  derived.  Definitions  of  the 
parameters  and  variables  in  the  model  are  given  first. 

The  parameters  that  define  the  maintenance  program  and  major  inspections  are  input 
in  Blocks  1 and  2 of  Figure  5-2.  These  are: 

DELI  The  basic  inspection  interval  length,  AI. 

KI  An  integer  specifying  the  time  base  for  Al,  KI  = 1, 2,  3, 4 for  AI  in 

weeks,  flight  hours,  sorties,  and  landings,  respectively. 

NSCT  The  number  of  different  types  of  scheduled  inspection  packages. 

NFOLfI)  The  number  of  types  of  scheduled  inspection  packages  that  can 

occur  at  the  end  of  the  interval  AI(DELI)  following  an  inspection 
package  of  Type  I. 

NSCH(I,  J)  The  number  of  intervals  that  begin  with  a Type  I inspection  package 
and  end  with  a Type  J. 
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READ  MP  DEHNITION: 

NI  ( 10) 

AIj,  KI  (KI  = 1. 2,3,4  FORAI  IN 

WK,  FII,  SOR,  LDG)  (i  1,2,...,  NI) 
NSCT  NO.  SCHED.  INSP.  TYPES 
NFOL(I)=NO.  SCHED.  INSP.  TYPES 
THAT  FOLLOW  "n  PE  I 
NSCII(I,J)  NO.  SCHED  INSP.  OF 
TYPE  J FOLLOWING  TYPE  I 
NSPT  NO.  SPEC.  INSP.  TYPES  (-60) 
Aisp(I),  IGS(I),  (KIS(I)  1,2 
FOR  AIsp(I)  IN  WK,  FII) 

^AIspO) 

r NO.  PF/NO.  BPO 


READ  INSPECTION  NORM  AND  MH  DATA: 
MR /IN  (I,J).ffMII/IN(I-J) 

NORM/IN  (I,  J),  (I>  J ) 

MII/SP(I),  ®Mii/sp(J) 

NORM/SP(l),  <TiMoRM/SP(l) 

MH/PF.  aM„/pF 
MH/B1>0,  OmH/BPO 


3 


READ  WUC  SET  DATA; 

KSET  = NO.  OF  SETS  (S60) 
n;;;;;7/TM(I,K,TM):  A^^alUK),  Rumad.X) 
i™/uma  (K), 

NORM/uma  (K), 

^abma^^^^  (IjNf’TM): 

NORSAVK  (K) 


^ READ  UTILIZATION  DATA 

FII/WK,  OpH/WK 
SOR/WK,  asoR/WK 
LDG/WK,  o lDG/WK 
'^AIE/SOR 


Figure  5-2,  Detailed  Effectiveness  Model  (Sheet  1) 
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Figure  5-2.  Detailed  Effectiveness  Model  (Sheet  2) 
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<M>R>  > <Ni)|0  WK»K» 


Figure  5-2.  Detailed  Effectiveness  Model  (Sheet  3) 


1 

i 


m = i^MP  ■ " ^MP  XIC  NSCIKI.  J)  NOHM/IN(l,J).  (l  + NORS/WKj 
I J ^ 


Nors/wk’ 

leg 


Figure  5-2.  Detailed  Effectiveness  Model  (Sheet  4) 
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EMHT(I,  J)  Tho  mean  manhours  for  inspection  package  Type  J when  it  fol- 

lows inspection  package  T>pe  I in  Block  2, 

AN(I,  J),  BN(I,J)  The  coefficients  of  the  linear  regression  function  in  Block  2 for 
the  NORM  hours  in  inspection  package  J versus  time  after  the 
preceding  inspection  package  1.  That  is,  NORM/lN(I,  J)  = 
AN(I,J)  + J. 

SMHI(I,  J)  The  standaixl  deviation  of  tho  manhours  per  inspection  package 

J following  inspection  package  I. 

SNI(I,  J)  Tho  standaixl  deviation  of  tho  NORM  hours  in  inspection  package 

J following  inspection  package  I. 

NI  The  number  of  values  of  AI(DELI)  to  bo  used  in  the  parametric 

evaluation. 

Each  pair  of  values  I and  J identifies  a different  type  of  inspection  interval.  The  total 
number  (NINT)  of  inspection  intervals  is  then  given  by: 

NSCT  NFOL(I) 

NINT--  J]  2 NSCI1(I,J), 

I-l  J=1 


and  the  length  of  the  maintenance  program  period  not  counting  inspection  flow  times  is: 
NINT.  AI. 

The  linear  regression  function  for  NORM  hours  per  inspection  pacluige  is  input  for 
inspection  packages  retained  from  tho  current  program.  For  new  inspection  packages, 
the  network  analysis  model  (NAM)  pixivides  the  needed  data. 

Special  in.spcctions  arc  describal  by  the  following  parameters  included  in  Blocks  1 and 
2 of  Figure  5-2. 

NSPT 

DISP,  SISP 

KIS 

EMUS,  SMllS 
ENS,  SNS 

r)-io 


Number  of  different  types  of  special  inspections. 

Mean  and  standaixl  deviations  of  tho  interval  length  between 
inspections,  Alc,'p. 

An  integer  .specifying  the  time  base  in  which  DISP  is  measured. 
KIS  = 1 or  2 for  time  in  weeks  or  flight  hours  rospoolivcly 
(Block  1). 

'I  hc  mean  and  standard  deviation,  Mll/SP(l)  and  CT  /c^p(l). 
in  Block  2 of  manhours  in  Ith  spwial  inspection. 

The  mean  and  standard  devi;ition,  NOUM,/SP(l)  and  CT  j,^.Qp]^j/j.p(l), 
of  the  NORM  hours  per  special  in.s|)ection. 


1 

i 


The  preflight  and  basic  postflight  inspections  are  defined  by  the  following  parameters 
input  in  Blocks  1 and  2. 


R 


The  ratio  of  the  number  of  preflight  inspections  to  basic  post- 
flight inspections. 


EMHP,  SMHP  The  mean  and  standard  deviation,  MH/PF  and  in  Block 

2 of  the  manhours  per  preflight  inspection. 

EMHB,  SMHB  The  mean  and  standard  deviation,  MH/BPO  and  (^mh/BPO* 

Block  2 of  the  manhours  per  basic  postflight  inspection. 


Unscheduled  maintenance  data  can  be  specified  for  up  to  60  sets  of  WUCs.  The  number 
of  sets  to  be  used  for  a specific  run  is  given  by  the  value  of  KSET  in  Block  3.  For  each 
set,  the  following  items  are  required. 


EMHU,  SMHU  The  mean  and  standard  deviation,  MH/uma  and  a MH/uma* 
manhours  per  unscheduled  maintenance  action  in  Block  3. 


ENU,  SNU 
ANU,  BNU 

UMAS 

DK 

ANAB,  BNAB 


ENWK 


The  mean  and  standard  deviation  of  NORM  per  unscheduled 
maintenance  action,  NORM/uma  ^NORM/uma’  Block  3. 

The  coefficients  of  the  linear  regression  function  for  the  number 
of  unscheduled  maintenance  actions,  per  unit  time  versus 

time  after  the  inspection  in  Block  3:  Hjl[^=ANU(I,  K)  + BNU(I,  K)* 
(t)after  \ » the  Kth  work  imit  code  set  and  Ith  inspection  type. 

The  minimum  value  for 

Set  equal  to  1.0  when  (t)  after  I is  to  be  measured  from  the  in- 
spection at  the  beginning  of  the  interval,  and  set  equal  to  3.0 
when  (t) after  I is  measured  from  the  inspection  at  the  start 
of  the  preceding  interval. 

The  coefficients  of  the  linear  r^ression  function  for  the  number 
of  abort  maintenance  actions  per  sortie  versus  time  after  in- 
spection package  I for  the  Kth  work  unit  code  set  in  Block  3: 

Nabort  = ANAB(I,K)  + BNAB(I,K).(t)^jjgj.  j. 

The  mean  number  of  NORS  hours  per  week  charged  to  the  set. 


This  input  data  is  obtained  from  the  corresponding  data  generated  by  the  statistical 
analyses  for  all  the  WUCs  included  in  the  set.  This  is  accomplished  by  a simple  sum- 
mation process  except  for  manhours  and  NORM  hours  per  maintenance  action.  These 
are  obtained  from: 

N N 

EMHU(K)  = 53  nj(MH/uma)i/  S "M* 
i=l  i=l 


where 


nj  is  the  number  of  unscheduled  maintenance  actions  per  unit  time  on  WUC. 


(MH/uma)i  is  the  mean  number  of  manhours  per  unscheduled  maintenance 
action  on  WUC  i 

N is  the  number  of  WUCs  in  set  K. 


and 


N , n 

ENU(K)  = 2 n.  (NORM/uma)i/  n. 

i=l  ' i=l  ' 

where 


(NORM/uma)j  is  the  mean  number  of  NORM  hours  per  unscheduled  mainten- 
ance action  on  WUC  i. 


The  standard  deviations  for  manhours  and  NORM  per  unscheduled  maintenance  action 
are  given  by: 

N 

SMHS(K)  = 

i=l 
and 

N 

SNS(K)  = 

i=l 


"i  [O'NORM/uma’i  " /g  “i 


/ ^ 

“1  ((Mh7S5S)i-  EMHU(K))^]  / £ 


i=l 


where 


^^MH/uma\  ^^NORM/uma\ 


are  the  standard  deviations  for  WUC^ . 


The  values  of  nj  for  the  current  maintenance  program  are  the  numbers  of  unscheduled 
maintenance  actions  encountered  in  the  data  bank.  The  unscheduled  manhour  and  NORM 
data  for  each  WUC  are  obtained  from  the  statistical  analysis  of  MH  and  NORM  hours  per 
maintenance  action. 


Utilization  is  specified  by  the  following  parameters  in  Block  4: 


EFHW,  SFHW  The  mean  and  standard  deviation  of  flight  hours  per  week,  FH/WK 
and  a. 


' FH/WK" 


ESOW,  SSOW 


The  mean  and  standard  deviation  of  sorties  per  week,  SOR/WK 
^SOR/WK  • 
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ELDW,  SLDW  The  mean  and  standard  deviation  of  landings  per  week,  LDG/WK 
^“^^LDG/WK* 

AIES  The  number  of  accidents,  incidents,  and  EUMRs  per  sortie, 

Naie/sor- 

The  appropriate  values  for  the  current  program  can  be  obtained  from  the  analysis  of 
the  effect  of  time  after  an  inspection.  Each  of  these  utilization  variables  is  correlated 
with  time  after  a periodic  inspection.  The  values  obtained  from  the  regression  lines 
at  a time  approximately  half-way  between  periodics  can  be  taken  as  mean  values  in- 
dependent of  time.  The  corresponding  standard  deviation  is  the  standard  deviation  of 
the  regression  obtained  from  the  regression  analysis. 

At  point  A in  Figure  5-2  (Sheet  2),  the  distribution  PvVK/^  for  Al  in  weeks  is  derived 
for  the  cases  in  which  the  time  base  for  AI  is  flight  hours,  sorties,  or  landings.  For 
AI  input  in  flying  hours,  for  example: 

*^WK/A  ~ ^ C} 


The  distribution  of  flight  hours  per  week  is  taken  to  be  given  by  an  Erlang  distribution: 
hence,  for  Block  14  in  Figure  5-2: 


^w(C)  - 


(XAI/C)*^~^ 
. (k-1) 


where 


and 


k =^-  FH/Wk] 


are  obtained  in  Block  13. 


Here  [a]  indicates  the  greatest  integer  less  than  a.  Values  for  p are  actually  calculated 
for  k and  Ic^l.  The  final  result  is  found  by  interpolating  between  these  results.  This 
same  procedure  is  used  for  all  Erlang  distribution  calculations  In  the  model. 


The  same  distribution  is  used  when  AI  is  in  sorties  or  landings,  with  X and  k being 
calculated  in  Blocks  17a  or  17b. 


To  determine  the  number  of  basic  postflights  and  preflights,  the  number  of  sorties  in 
AI  must  be  determined.  For  AI  in  flying  hours  or  landings,  P\vk/a  obtained  as 

above  and  the  distribution  for  the  number  of  sorties  inAI  is  calculated  in  Block  15. 
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Taking  both  fll^t  hours  per  week  and  sorties  per  week  to  have  Erlang  distribution, 
one  obtains 


PsoR/^(s)  = Pr  CNo.  sorties  c AI  ^ s) 


■ AIX2 

T 1 

^ (k2+j-l)l' 

AIX2+  sXj 

j=o 

jl  (kg-l)! 

= 1 - 


k^  = [Xl  • SOR/WkJ 
^2  = 

kj  - [Xj  • FH/WkJ 

If  AI  is  in  weeks  to  begin  with,  then  the  calculation  is  simply  that  of  Blocks  5 and  6. 

The  mean  and  standard  deviations  of  the  distribution  for  the  number  of  basic  postflights 
and  preflights  are  then  calculated  in  Blocks  7 and  8.  The  mean  and  standard  deviations 
of  the  total  number  of  weeks  in  the  maintenance  program  period  are  then  calculated  in 
Block  10. 

Distributions  for  the  number  of  preflight  and  basic  postflight  manhours  in  AI  are  cal- 
culated in  Block  11.  The  variance  in  this  case  is  that  of  the  sum  of  a variable  number 
of  terms  and  is  obtained  as  follows. 

For  some  variable  Z defined  to  be: 

Z = X + X + . . . + X 
12  n 

Where  xjand  n both  are  stochastic  variables  with  Xj  identically  distributed,  then  Z has 
the  probability  distribution: 


N=1 

*n 

where  p^n)  is  the  probability  distribution  for  n and  p is  the  nth-fold  convolution  of 
p(x),  with  E(x)  = X and  Var(x)  - 


Then 


Z = E(Z)  = n-x  , 
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and 


00 

Var(Z)=  / (u-Z)^  p^(u)  du 

00 

~ j (u-Z)  ^ Pj^(n)  p “(u)  du 

•'o  n 

00 

= 53  f (u-Z)^  P*“(u)du 

n Jq 


= ^ Pj^(n)  E(u  - Z)^  = ^ p^(n)  E(u  - nx  +nx - Z) 


- . - -2 


where: 


Since: 


= ^ Pj^(n)  E(u-u  + a)^ 


a = nx  - Z,  and  u = nx 


_ 2 - 2 - 2 
(u-u  + a)  =(u-u)  +2a(u-u)+a 


we  have: 


Hence; 


E(u-u+a)^  = E(u  -u)^  + 2a  E(u-u) 
= Var(u)  + a^ 


Var(Z)  = 2|^  p^(n)  [var(53  x,)  + (nii-Z)^] 


= Y.  Pn(”)  [' 


2 2I 

na  +(nx-nx)  J 


This  reduces  to: 


_ 2 2 _2 
Var(Z)  = ncr  +cr  x 
n 
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Applying  this  result  in  Block  11,  the  equations  are  as  shown  there  for  the  variance  of 
prefli^t  and  basic  postfli^t  manhours  in  A I.  This  result  is  also  used  in  Block  12 
a^en  the  mean  and  variance  of  flight  hours  in  A I are  computed. 


At  Point  B in  Figure  5-2  (Sheet  2),  the  distributions  of  special  inspection  manhours 
and  NORM  hours  in  A I are  derived. 

The  first  step  at  Block  19  is  to  obtain  the  distribution  PAlgw  special  inspection 

interval  Algw  “ weeks  if  the  interval  is  specified  in  flying  hours  instead. 

Using  Erlang  distributions  for  flight  hours  per  week  and  the  special  inspection  interval 
in  fljdng  hours,  the  distribution  for  the  interval  in  weeks  is  given  by  the  equation  in 
Block  19b: 

“sp  r ■^SP^ 

where  X gp,  kgp,  and  k^.^  are  given  by  Block  19a: 


•^SP“^P* 


x^^-fhTwk/Ofh/wk 


The  next  step  is  to  determine  the  distribution  for  the  number  of  special  inspections  of 
Type  I in  AI,  the  inspection  interval,  in  Block  22  of  Figure  5-2.  This  distribution  is 
deri',-ed  as  follows. 

Pj^pc(n)  = Pr  {No.  inspections  in  AI=n3 

= Pr  [No.  inspections  inAKn+l]  - Pr  [No.  inspections  inAKn] 

The  two  probability  distributions  on  the  ri^t  are  derived  by  determining  the  probability 
that  the  total  time  for  n or  n+1  inspections  exceeds  Ah  that  is: 


Pr  [No.  inspections  inAKn]  = ^ Pr  ^ AIg^I)>C  • Pr  [aI  = C3 

C [1=1 

n 

= 5]  1-Pr)5]  Alg^D^C  Pr[AI  = C} 
C 1=1 
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The  first  distribution  on  the  right  is  the  n-fold  convolution  of  the  distribution  for 
AIgw(I)  which,  as  above,  can  be  assumed  normal.  The  second  distribution  on  the 
right  above  is  obtained  from  • Hence: 

Pr  {No.  inspections  in  AKn}  = ^ -’?(C;  nAIgw  OAIgw^l  ^WK/A 

Consequently,  the  distribution  for  the  number  of  Type  I special  inspections  in  A I is: 

PnspC<">  ' r - ?I(C;(n+l)^,  Ml  H 

0 

* PWK/A^^^ 

The  means  and  variances  for  manhours  and  NORM  hours  for  special  inspections  of 
Type  I in  A I are  calculated  in  Blocks  23  and  24. 

After  these  calculations  are  completed  for  each  type  of  special  inspection,  the  distribu- 
tions for  the  total  manhours  and  NORM  hours  in  all  special  inspections  are  calculated 
in  Blocks  21  and  25.  This  completes  the  evaluation  of  the  special  inspections. 

At  Point  C in  Figure  5-2  (Sheet  3),  the  NORS  hours -per -week  rates  for  the  WUC  sets 
are  summed  to  obtain  an  aircraft-level  rate. 

The  next  step  is  to  calculate  unscheduled  maintenance  manhours  and  NORM  hours  in 
AI.  Starting  at  Block  30,  the  expected  number  of  unscheduled  maintenance  actions  in 
AI  for  WUC  set  K is  calculated  from  the  unscheduled  maintenance  action  frequency 
^uma/TM^^'^'  TM).  The  expected  number  and  variance  of  manhours  and  NORM  hours 
in  Al  are  given  by  equations  similar  to  those  used  for  preflight  and  basic  postflight 
manhours.  That  is.  Block  34  gives: 

MH  (I,  K,  AI)  = MH/uma(K)  • N (I,  K,  AI) 
uma  uma 

For  the  variance,  the  equation  is  somewhat  simplified,  since  the  mean  and  variance 
of  the  number  of  unscheduled  maintenance  actions  are  equal.  Hence: 

In  Block  37,  similar  equations  for  unscheduled  NORM  hours  are  used. 

In  Blocks  31  and  33,  the  distributions  for  total  unscheduled  manhours  and  NORM  hours 
in  AI  are  calculated  by  summing  over  the  WUC  sets. 


The  aborts-per-sortie  rate  at  the  aircraft  level  is  calculated  in  Block  35  as  a function 
of  time  (TM)  after  inspection  package  Type  I by  summing  the  WUC  set  rates.  Then 
the  average  rate  in  AI  is  calculated  in  Block  38. 

In  Block  39,  an  aircraft  "failures"  per  sortie  rate  is  calculated  by  combining  the  abort 
and  AIE  rates.  From  this  rate,  the  dependability  D(I)  following  inspection  package 
Type  I is  calculated  as  the  probability  that  a "failure"  does  not  occur  in  the  sortie: 

D(I)  = eJ5)  {-  FAIL/SORa)} 

In  Block  42,  the  distribution  of  total  manhours  in  an  Inspection  interval  for  consecutive 
inspection  package  Types  I and  J is  calculated  by  adding  the  means  and  variances  of 
manhours  for  unscheduled  maintenance,  special  inspections,  preflight  and  postflight 
inspections,  and  inspection  package  manhours. 

The  distribution  of  total  NORM  hours  in  an  I,  J interval  is  calculated  similarly  in 
Block  40.  The  derivation  of  the  distribution  of  total  NOR  hours  in  AI  is  somewhat 
more  complicated  in  that  NORS  depends  on  the  total  calendar  time  for  the  Interval. 

So,  in  the  equation  for  NOR/a  (I,  J)  in  Block  36,  the  total  of  weeks  per  AI  and  elapsed 
time  for  the  inspection  package  is  multiplied  by  the  NORS/WK  rate  for  the  aircraft. 

The  distribution  for  the  total  calendar  time  in  the  interval,  calculated  in  Block  32,  is 
similar  in  that  the  NORS  hours  accumulated  during  the  inspection  provide  an  addi- 
tional term  in  the  equations  for  CT  and  cr?._. 

CT 

In  Blocks  28  and  29,  the  distribution  for  availability  is  calculated  in  a manner  similar 
to  that  used  in  Block  19  for  the  special  inspections.  Thus: 

(XN(l-a))j  (kc+!-l)!' 

E,  is  easily  obtained  from  this  result,  since: 

E = Av-D(I) 

and  D(I)  is  not  a stochastic  variable.  Therefore,  in  Block  26: 

PE(e,I,J)  = Pr{ESe}=  Pr  {Ay-  D(I)Se} 

= Pr{Ay^e/D(I)}  = PA^  (5^.1.  j) 

At  Point  D in  Figure  5-2  (Sheet  4),  the  calculations  described  above  are  completed  for 
all  I,  J values  and  results  for  the  maintenance  program  period  are  obtained. 


Ac 


The  distribution  for  effectiveness, 
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In  Block  43,  the  distribution  for  the  total  manhours  in  M.  P.  is  calculated  by  summing 
the  means  and  variances  of  the  manhours  in  A I over  all  I and  J. 


The  derivation  of  the  distributions  for  mai^ours  per  year  and  flight  hour  and  for  NOR/ 
HR  in  the  maintenance  program  period  is  complicated  by  the  need  to  add  in  the  elapsed 
time  for  NORM  and  NORS  to  obtain  the  total  calendar  time.  If  these  totals  are  repre- 
sented ty  CT/MP  in  Blocks  46,  47,  and  48,  then  the  distributions  are  obtained  as 
follows.  In  Block  47: 


Pmh/yr^*"^^  = Pr  [MH/YR  Smh)  = Pr 


= Pr  {MH/MP  - (mh)( CT/MP)  gO} 


i 


The  mean  and  variance  of  the  e:q)ression  in  the  brackets  are 
m = MH/MP  - (mh)  CT/MP 

^ ^ ~ ^ MH/MP  ^ CT/MP 

and  the  result  is  given  by  the  cumulative  normal: 

Pmh/YR^^^^  ~ ^ (o;m,ff) 

The  distributions  for  MH/FH  and  NOR/HR  in  Blocks  46  and  48  are  obtained  similarly. 

hi  Blocks  49  and  50,  dependability  and  effectiveness  of  M.P.  as  functions  of  A1  are 
calculated  as  time  averages  over  the  maintenance  program  period.  As  the  last  step  in 
the  program,  the  maintenance  program  parameters  are  output  in  Block  51. 

A sample  input  data  deck  listing  for  the  effectiveness  model  run  is  shown  in  Figiure  5-3. 

fW 

SAMPLE  PUN  - input  data  BASCO  ON  ftCSULTS  rOS  II  NQAfISO  AlPCPPfT  SA^^PLC 


A.aaooo 

2.00000 

3.02008 

I .oaooo 

3.03880 

1.88808 

e.TaQaa 

1,02000 

8.00080 

2.78000 

0. 89000 

a 2 

3 0 

8 

2S.QQ00Q 

1 1 

30,08000 

2 

33.80800 

80.00800 

83.'M880 

38.88808 

i 

•9.IQ0QQ 

88.T8000 

0,08088 

8.00080 
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Figure  5-3.  Sample  Data  — Effectiveness  Model 
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5.2.4  OUTPUT  DESCRIPTION.  As  a result  of  the  evaluation  process,  the  impact  of 
the  maintenance  program  alternative  is  described  by  basically  two  measures:  effect- 
iveness and  direct  organizational  manhours  as  functions  of  the  length  of  the  interval, 
AI,  between  consecutive  inspection  packages.  Typically,  these  functions  are  as  shown 
in  Figure  5-4. 


Figure  5-4.  Typical  Effectiveness  Model  Outputs 

The  solid-line  curves  are  mean  values  of  the  functions;  statistical  variation  in  the 
function  is  indicated  by  dashed  lines.  The  interval  of  variation  of  AI  is  constrained 
by  data  variability  and  by  maintainability  characteristics  of  the  aircraft.  These 
functions  make  it  possible  to  select  a AI  interval  that  most  probably  maximizes 
effectiveness  and  minimizes  cost  within  the  constraints  imposed. 

A sample  output  is  shown  in  Figure  5-5  for  a run  requiring  six  minutes  on  the  IBM 
370. 
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Figure  5-5.  Sample  Output  — Effectiveness  Model  (Sheet  1) 
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Figure  5-5.  Sample  Output  - Effectiveness  Model  (Sheet  3) 
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Figure  5-5,  Sample  Output  — Effectiveness  Model  (Sheet  4) 
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5. 3 NETWORK  ANALYSIS  MODEL 


5.  3. 1 PURPOSE.  NORM  hours  and  maintenance  manhours  expended  in  scheduled 
Inspections  are  calculated  by  a supporting  submodel,  the  network  analysis  model 
(NAM).  This  is  accomplished  by  developing  a network  description  of  the  series  and 
parallel  organization  of  the  various  inspection  tasks  included  in  the  inspection  package. 
The  model  then  calculates  the  total  manhours  involved  and  the  distributions  of  flow  time 
across  the  network. 


5. 3. 2 INPUT  DATA  AND  PROCEDURES.  The  flow  chart  in  Figure  5-6  describes 
the  network  analysis  process.  Three  types  of  input  data  are  read  from  cards.  The 
first  consists  of  the  empirical  look-phase  manhours  and  inspection  package  NORM 
hours  in  Step  1 of  the  block  diagram.  This  data  is  input  for  existing  inspection  pack- 
ages only.  In  Step  2,  the  branch  data  is  read  in.  This  data  includes  the  probability 
distributions  for  branch  manhours  and  the  span  time  to  manhour  ratios,  FHR.  The 
third  set  of  input  data  in  Step  3 defines  the  network  structure. 

The  card  deck  is  composed  of  nine  card  sets  with  the  following  formats. 


Set  1 One  title  card  (80  characters  printed  as  a heading) 

Set  2 One  card  with  three  integers; 

Columns  1 and  2 — The  number  of  network  branches 
Columns  3 and  4 — The  number  of  points  in  the  empirical  NORM 
distribution 

Columns  5 and  6 — The  number  of  points  in  the  empirical  manhour 
distribution 


Set  3 As  many  cards  as  required  to  specify  the  NORM  and  probability  values 
for  all  points  in  the  empirical  NORM  distribution,  10  columns  per  value. 
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Figure  5-6.  Network  Analysis  Model 


Set  4 As  many  cards  as  required  to  specify  the  manhours  and  probability 

values  for  all  points  in  the  empirical  manhour  distribution,  10  columns 
per  value. 

Set  5 One  card  for  each  40  branches  or  lines,  with  a 0 for  each  look  branch 
and  a 2 for  each  repair  branch,  2 columns  per  value. 

Set  6 One  card  for  each  8 branches  or  lines,  cmtaining  the  ratio  of  span  time 
to  manhours  for  each  branch,  fields  of  10  columns. 

Set  7 One  card  for  each  40  branches  or  lines,  with  the  number  of  points  used 
to  define  branch  manhour  distribution,  in  2-column  fields. 

Set  8 As  many  cards  as  required  to  specify  the  manhours  and  probability  values 
for  all  points  in  the  branch  manhour  distributions,  10  columns  per  value. 

Set  9 One  card  for  each  st^  in  the  network  reduction  process: 

Columns  1 and  2 - The  number  of  the  first  branch. 

Columns  3 and  4 - The  number  of  the  second  branch. 

Column  6 - A zero  for  parallel  branches;  a 1 for  series  branches. 

If  an  existing  inspection  package  is  being  evaluated  to  scale  inspection  task  manhours 
and  man  times,  a "Yes"  exit  is  taken  at  Step  5.  If  previously  adjusted  data  is  being 
used  to  predict  flowtime  and  manhours  for  a new  inspection  package,  a "No"  exit  is 
taken  at  Step  5 and  Inspection  package  manhours  are  accumulated  at  Step  6,  followed 
by  application  of  NAM  to  reduce  the  network  at  Step  7 to  calculate  the  package  flow  time. 

The  reduction  of  sets  of  branches  to  equivalent  branches  involves  the  application  of  two 
different  mathematical  techniques.  For  two  branches  in  series,  the  probability  distri- 
bution for  the  total  span  time  is  the  distribution  for  the  sum  of  the  span  times.  This 
distribution  is  obtained  as  the  convolution  of  the  individual  distributions.  For  branches 
in  parallel,  the  span  time  is  the  distribution  for  the  maximum  over  the  branches. 

Inspection  task  manhours  and  span  times  are  scaled  in  Steps  9 through  15  by  calculating 
Inspection  package  manhours  in  Step  9,  reducing  the  network  by  using  NAM  to  calculate 
the  flow  time  in  Step  10,  and  comparing  calculated  manhours  with  empirical  manhours 
in  Step  11.  The  ratio,  f^,  of  empirical  look  manhours  to  calculated  look  manhours  is 
adjusted  in  Step  12.  Branch  manhours  are  adjusted  in  Step  13.  When  package  manhour 
equality  is  achieved  in  Step  11,  calculated  package  NORM  hours  are  compared  with 
empirically  derived  NORM  hours  in  Step  14  and  the  spantime-to-manhour  ratio,  FHR, 
is  calculated  in  Step  15. 

When  equality  between  empirically  derived  inspection  package  flow  time  and  calculated 
flow  time  is  achieved,  the  analysis  of  the  inspection  package  is  complete.  At  this  point, 
NAM  outputs  the  final  values  of  the  ratios  fj^  and  FHR  so  that  the  adjusted  values  of 
task  manhours  and  span  times  are  available  for  evaluation  of  a new  inspection  package. 

A listing  of  a sample  data  deck  is  shown  in  Figure  5-7. 
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5. 3. 3 OUTPUT  DESCRIPTION.  Output  includes  the  calculated  Inspection  NORM  and 
manhour  distributions,  the  mean  and  standard  deviations  of  these  distributions,  and 
the  corresponding  empirical  distributions.  Primary  output  consists  of  revised  branch 
manhour  distributions  and  revised  span-time-to-manhour  ratios  for  all  branches. 


A sample  output  is  shown  in  Figure  5-8  for  a run  requiring  about  one  minute  on  the 
IBM  370. 
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Figure  5-8,  Sample  Output  - N^ork  Analysis  Model 
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Sample  Output  - Network  Amlysis  Model,  Contd 


5. 4 MANHOUR  AND  NORM  DATA 


The  objective  of  this  task  is  to  generate  for  each  work  unit  code  (WUC)  set,  the  mean 
and  variance  of  manhours  per  unscheduled  maintenance  action  and  NORM  per  unsched- 
uled maintenance  action.  In  addition,  the  programs  compute  the  mean  value  of  span 
time  for  a repair  action  on  each  WUC  set.  The  logic  flow  is  shown  in  Figure  5-9,  and 
the  individual  programs  are  listed  in  Paragraph  6. 10. 

5.4.1  SUM  UNSCHEDULED  MAINTENANCE  ACTIONS 

5. 4. 1. 1 Purpose.  The  purpose  of  this  task  is  to  compute  the  number  of  unscheduled 
maintenance  actions,  the  number  of  repair  actions  in  hourly  postflight  inspections, 
and  the  number  of  repair  actions  in  periodic  Inspections  on  each  WUC  by  how-mal- 
function. code  <HMC). 

5. 4. 1. 2 Input  Data  and  Procedures.  The  input  consists  of  the  sorted  data  bank  tape 
and  a deck  of  cards  defining  the  isochronal  aircraft  group,  the  when-discovered  codes 
(WDC),  and  the  hourly  postflight  and  periodic  inspections. 


The  card  data  deck  has  the  following  format. 


Card  Column 


Description 


a 

b 


c 

d 

e 

f 

g 


3-5  Number  of  Isochronal  Aircraft 

3-10  Serial  Number  of  Isochronal  Aircraft 

13-15  Starting  Week  Number  of  Isochronal  Inspection 

6 When-Discovered  Codes  (WDC) 

1-3  Number  of  WDC  for  Unscheduled  hispections 

1-3  Position  of  Each  WDC  for  Unscheduled  Inspections 
1-3  Number  of  Support  General  Inspections 

1-3  Position  of  WDC  CorreQ)onding  to  Siqjport  General 
Inspectlcm 

6-10  Scq)port  General  Inspection 


A sample  iiqnit  dech,  that  used  for  the  F-106  Scheduled  Maintenance  Stuc(y,  is  shown 
in  Figure  5-10. 
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Figure  5-10.  Sample  Input -Sum  Unscheduled  Maintenance  Actions,  Contd 


The  program  accumulates  the  maintenance  actions  from  Type  4 data  bank  records 
(Columns  26  through  28)  for  both  aircraft  subsets  and  each  WUC  and  HMC  combination, 
and  then  writes  the  total  of  unscheduled  maintenance  actions  and  hourly  postflight  and 
periodic  inspections  on  an  output  magnetic  tape  file. 

5. 4. 1.  3 Output  Description.  The  output  magnetic  tape  file  record  layout.  Figure  5-11, 
has  50  characters  to  a data  record,  blocked  60  to  a tape  record.  The  aircraft  subset  is  1 
for  isochronal  and  2 for  non-lsochronal  aircraft.  The  three  data  fields  contain  the  fol- 
lowing, for  the  corresponding  WUC  and  HMC. 

Field  Description 

1 The  number  of  unscheduled  maintenance  actions  on  each  WUC,  by  how- 

malfunction  code  (HMC)..  This  number  is  denoted  by  (WUC, HMC). 

2 The  number  of  repair  actions  in  hourly  postflight  Inspections  on  each 
WUC,  by  HMC:  (N^ep  (WUC,HMC))jjpo 

3 The  number  of  repair  actions  in  periodic  inspections  on  each  WUC,  by 
HMC:  (Nj.^  (WUC,  HMC))pE 

A sample  output  is  shown  in  Figure  5-12.  A recent  IBM  370  run  for  a fleet  of  150  air- 
craft and  2201  WUCs  required  10  minutes  of  computer  time  and  generated  25,920  records. 
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Figure  5-12,  Sample  Output  - Sum  Unscheduled  Maintenance  Actions 


5.4.2  UNSCHEDULED  MANHOUR  AND  NORM  HOUR 


i 

* 

5.4.2. 1 Purpose.  The  purpose  of  this  program  is  to  generate  two  output  files.  One 
file  contains  unscheduled  manhour-per-maintenance-action  data,  and  the  other  contains 
unscheduled  NORM  hour  per  maintenance  action  data  (Figures  5-9  and  5-13).  Input  to 
this  program  consists  of  sorted  data  bank,  isochronal  aircraft  definition,  a selected 
list  of  WUCs,  and  inspection  criteria  data. 


5. '1.3  5.4. (> 


Figure  5-13.  Logic  Flow  - Mean  and  Variance  for  Unscheduled 
Manhour  and  NORM  Hour 


5. 4. 2. 2 Input  Data  and  Procedures.  There  are  two  types  of  input  data:  tape  and  card 
deck.  Tape  data  consists  of  data  bank  sorted  in  the  order  of  WUC,  HMC,  aircraft 
serial  number,  and  week  number.  For  the  tape  record  layout,  see  Figure  4-4  . The 
data  card  deck  has  the  following  formats. 


Column 


Description 


Card  No.  1: 

I- 5 
6-10 

II- 15 
16-20 
21-25 
26-30 
31-35 
36-40 
41-45 
46-47 


48-49 


WUC  for  Hourly  Post  Flight  Inspection 

WUC  for  MA-1  Scheduled  Calibration 

WUC  for  Periodic  Inspection 
WUC  for  IRAN  Depot  Visit 
WUC  for  Preflight  Inspection 
WUC  for  Basic  Postflight  Inspection 
WUC  for  Special  Hourly  Postflight 

Minimum  number  of  weeks  between  inspections  for  the  four  WUCs 
in  Columns  1 through  20 

Minimum  number  of  weeks  between  inspections  for  Periodic 
Inspection  and  IRAN  Depot  Visit 
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Column 


Description 


Card  No.  2: 

3-5  Number  of  Isochronal  Aircraft  (Current  program  is  dimensioned 

for  a maximum  of  36  isochronal  aircraft,  which  may  be  increased 
by  minor  program  modification. ) 

The  following  cards  describe  the  isochronal  aircraft  fleet,  one  card  per  isochronal 
aircraft,  and  the  serial  numbers  are  sorted  in  ascending  order. 

Column  Description 

3-10  Aircraft  Serial  Number 

13-15  Starting  Week  Number  for  Isochronal  Inspection 

Sample  input  data  deck  listing  is  given  in  Figure  4-18. 

The  unscheduled  manhour  and  NORM  hour  program  (Figure  4-17)  produces  two  output 
files.  File  2B  and  2C,  containing  the  following  information. 

File  Data  Type  Description 

2B  3 NORM  Hours  - Unscheduled  Maintenance  Actions 

2C  1 Manhours  - Unscheduled  Maintenance  Actions 

a.  Procedures  to  Generate  Manhours  — Unscheduled  Maintenance  Action  (for  File  2C, 
Data  Type  1).  The  manhour  distributions  are  calculated  separately  for  repair 
actions  and  unscheduled  maintenance  actions  by  accumulating  the  number  of  man- 
hours charged  against  a specific  WUC  and  a specific  HMC  for  successive  weeks 
until  a week  is  encountered  with  a nonzero  number  of  maintenance  actions.  The 
number  of  repair  actions  or  unscheduled  actions  against  the  same  WUC  is  accu- 
mulated at  the  same  time.  This  data  is  obtained  from  Record  Type  4,  The  ratio 
of  these  totals  provides  one  observation  of  manhours-per-maintenance  action  for 
this  WUC  malfunction.  Each  occurrence  of  a maintenance  action  on  an  aircraft 

in  the  bank  for  the  specific  WUC  malfunction  combination  provides  another 
observation. 

b.  Procedures  to  Generate  NORM  Hours  — Unscheduled  Maintenance  Actions  (for 
File  2B,  Data  Types  3).  The  distribution  for  unscheduled  NORM  hours  is  obtained 
in  the  same  fashion,  except  that  only  unscheduled  maintenance  actions  are  included. 
Again,  NORM  hours  and  maintenance  action  totals  are  accumulated  from  week  to 
week  until  a nonzero  number  of  maintenance  action  fields  is  encountered.  The  ratio 
of  the  two  totals  then  provides  one  observation  of  unscheduled  NORM  hours  per 
maintenance  action  for  the  specific  WUC.  Since  the  type  of  malfunction  is  not 
recorded  in  AFM  65-110  (through  which  NORM  hours  are  recorded),  it  is  not  pos- 
sible to  calculate  this  distribution  for  a specific  type  of  malfunction.  The  data  for 
this  calculation  is  obtained  from  Record  Type  3. 
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5. 4.2. 3  Output  Description.  The  output  consists  of  two  tape  files  (2B  and  2C)  with 
20-character  data  records  blocked  90  to  a tape  record,  with  the  following  formats. 


Column  Description 

1-5  Work  Unit  Code  (WUC) 

6-8  How-Malfimction  Code  (HMC) 

10-15  Observation  Data 

17  Isochronal  Indicator 

= 1 Isochronal  Inspection 
= 2 Non-Isochronal  Inspection 

19  Data  Type: 

For  File  2B  = 3 Unscheduled  NORM  Hours 
For  File  2C  = 1 Unscheduled  Manhour 

20  Record  Mark 


On  a recent  IBM  370  run  for  an  F-106  fleet  of  150  aircraft  and  2201  WUCs,  total 
computer  time  was  about  13  minutes.  Records  totaling  214,  651  and  243,  801  were 
generated  for  Files  2B  and  2C,  respectively.  A sample  output  is  shown  in  Figure  5-14. 

5.4.3  SORT  UNSCHEDULED  NORM  HOUR 

5.4. 3. 1 Purpose.  The  purpose  of  this  task  is  to  sort  output  File  2B  for  further 
processing. 

5.4. 3. 2 Input  Data  and  Procedures.  The  input  consists  of  tape  File  2B,  as  described 
in  Paragraph  5. 4. 2.  3. 

5.4. 3.  3 Output  Description.  An  output  tape,  20  characters  per  record  with  a block- 
ing factor  of  90,  consisting  of  unscheduled  NORM  hour  records  is  sorted  according  to 
the  following  keys  in  ascending  order. 


Key 

Column 

Desc  ription 

1 

17 

Isochronal  Indicator 

2 

19 

Data  Type 

3 

1-5 

Work  Unit  Code 

It  took  about  three  minutes  on  the  IBM  370  to  sort  214, 651  records  for  the  150-air- 
craft F-106  fleet.  A sample  output  is  shown  in  Figure  5-15. 

5.4.4  MEAN  AND  VARIANCE  OF  UNSCHEDULED  NORM  HOUR 

5.4.4. 1 Purpose.  This  program  generates  an  output  file  containing  mean  and  vari- 
ance unscheduled  NORM  hour  data  by  WUC,  isochronal  subset  type. 
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Figure  5-14.  Sample  Output  — Unscheduled  Manhour  and  NORM  Hour 
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Figure  5-15,  Sample  Output  — Sort  Unscheduled  NORM  Hour 


r 


5.4.4. 2 Input  Data  and  Procedures.  No  input  data  is  needed  for  this  program.  For 
a given  WUC,  data  of  unscheduled  NORM  hour  will  be  accumulated.  Values  of  mean 
and  variance  are  then  computed  and  are  written  on  the  output  file. 

5.4.4.  3 Output  Description.  The  output  file  has  the  following  record  format. 

Column  Description 

I Isochronal  Inspection  Type 

= 1 Isochronal 
= 2 Non-Isochronal 

II  Set  to  3,  for  Unscheduled  Norm  Hour 

13-17  Work  Unit  Code  (WUC) 

23-30  Mean  for  Unscheduled  NORM  Hour 

32-39  Variance  of  Unscheduled  NORM  Hour 

50  Record  Mark 

It  took  five  minutes  on  the  IBM  370  to  process  2872  records  for  the  F-106  fleet.  A 
sample  output  and  output  format  are  shown  in  Figures  5-16  and  5-11,  respectively. 

5.4.5  SORT  UNSCHEDULED  MANHOUR 

5.4.  5. 1 Purpose.  The  purpose  of  this  task  is  to  sort  output  File  2C  for  further 
processing. 

5.4. 5.2  Input  Data  and  Procedures.  The  input  consists  of  tape  File  2C,  as  described 
in  Paragraph  5. 4. 2.  3. 

5. 4. 5.  3 Output  Description.  An  output  tape  file,  consisting  of  unscheduled  manhours 
chaiiged  against  a specific  WUC  and  specific  HMC,  is  sorted  according  to  the  following 
keys  in  ascending  order. 


Key  Column 


2 19 


3 1-5 

4 6-8 


Description 

Isochroral  Indicator 

= 1 Isochronal  Subset 
= 2 Non-Isochronal  Subset 
Data  Type 

= 1 Unscheduled  Manhours 
Work  Unit  Code  (WUC) 
How-Malfunction  Code  (HMC) 


The  output  tape  consists  of  20-character  data  records,  blocked  90  to  a tape  record. 
It  took  four  minutes  to  sort  243,  801  records  for  a fleet  of  150  F-106  aircraft.  A 
sample  output  is  shown  in  Figure  5-17. 


I 
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Figure  5-16.  Sample  Output  — Mean  and  Variance  of  Unscheduled  NORM  Hour 
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Figure  5-17.  Sample  Output  - Sort  UnschedulecJ  Manhour 


5.4.6  MEAN  AND  VARIANCE  OF  UNSCHEDULED  MANHOUR 

5.4. 6. 1 Purpose.  This  program  generates  an  output  file  containing  mean  and  vari- 
ance of  unscheduled  manhour  data  by  HMC,  WUC,  and  isochronal  subset  type. 

5.4.  6.2  Input  Data  and  Procedures.  No  input  data  is  needed  for  this  program.  For 
a given  WUC  and  HMC,  data  of  unscheduled  manhours  will  be  accumulated.  Values  of 
mean  and  variance  are  then  computed  and  are  written  on  an  output  file. 

5.4. 6.  3 Output  Description.  The  output  consists  of  values  of  mean  and  variance  of 
unscheduled  manhour,  WUC,  and  HMC.  The  output  file  has  the  following  record  format. 

Desc  ription 

Isochronal  Inspection  Type 
= 1 Isochronal 
= 2 Non-Isochronal 
Set  to  2,  for  Unscheduled  Manhour 
Work  Unit  Code  (WUC) 

How-Malfunction  Code  (HMC) 

Mean  for  Unscheduled  Manhour 
Variance  for  Unscheduled  Manhour 
Record  Mark 

The  tape  file  consists  of  50-character  data  records,  blocked  60  to  a tape  record.  To 
generate  27, 121  records  for  a fleet  of  150  F-106  aircraft  required  six  minutes  on  the 
IBM  370.  A sample  output  from  a recent  F-106  run  and  the  output  record  format  are 
shown  in  Figures  5-18  and  5-11,  respectively. 

5.4.7  MERGE  AND  ADD  WUC  GROUP  IDENTIFICATION 

I 5. 4.  7. 1 Purpose.  The  purpose  of  this  COBOL  program  is  to  merge  the  output  files 

! of  Manhour  and  NORM,  Mean  and  Variance  of  Unscheduled  NORM  Hour,  and  Mean  and 

Variance  of  Unscheduled  Manhour  data  into  one  file  and  to  classify  each  record  into  a 
\ particular  WUC  group. 

? 

5. 4.  7. 2 Input  Data  and  Procedures.  The  input  consists  of  three  data  tape  files  and  a 
deck  of  cards  defining  the  WUC  groups.  The  three  input  data  tape  files  are  described 
in  Paragraphs  5.4.1,  5.4.4,  and  5.4.6  and  the  record  layouts  are  given  in  Figure  5-11. 

\ A full  description  of  collecting  WUC  data  into  groups  is  given  in  Paragraph  4. 2. 2. 

j Essentially,  data  is  collected  at  the  three-digit  level  for  a defined  set  of  WUCs  and  at 

! the  two-digit  level  for  the  remaining  data. 
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The  data  deck  has  the  following  format. 


Card 

Column 

Description 

a 

1-2 

Number  of  WUCs  in  WUC  Set  No. 

b 

1-3 

WUCs  in  Set  No.  1 

c 

1-2 

Number  of  WUCs  in  WUC  Set  No. 

d 

1-5 

WUCs  in  Set  No.  2 

A sample  ii^ut  data  deck,  that  used  for  the  F-106  Scheduled  Maintenance  Study,  is 
shown  in  Figure  5-19. 

The  program  reads  WUC  group  data  and  assigns  a group  identifier  to  each  WUC  set. 

The  first  input  file  record  is  read,  the  appropriate  group  identifier  and  corresponding 
group  WUC  is  added  to  the  record,  and  the  record  is  written  on  an  output  file.  This  is 
continued  for  each  input  record,  then  for  each  record  on  the  second  and  third  input  files. 
After  the  last  input  record,  the  output  tape  record  is  padded  with  nines  to  end  the  routine. 


5. 4.  7. 3 Output  Description.  The  output  consists  of  a magnetic  tape  file,  50  characters 
to  a data  recc.d,  blocked  60  to  a tape  record.  The  record  layout  is  shown  in  Figure  5-11. 
The  significance  of  each  variable  is  determined  by  reference  to  the  RECORD  ID  in  Column 
11;  this  was  assigned  during  creation  of  the  three  input  data  files.  A sample  of  output  data 
is  shown  in  Figure  5-20.  On  a recent  IBM  370  run  for  a fleet  of  150  aircraft  and  2201 
WUCs,  total  computer  time  was  two  minutes.  A total  of  55,  853  records  were  generated. 
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Figure  5-20.  Sample  Output  - Merge  and  Add  WUC  Group  Identification 


5.4.8  SORT  MANHOUR  AND  NORM  DATA 


5. 4.  8. 1 Purpose.  The  purpose  of  this  task  is  to  sort  the  output  file  from  Merge  and 
Add  WUC  Group  Identification  for  further  processing. 

5. 4.  8. 2 Input  Data  and  Procedures.  The  input  crmsists  of  the  tape  file  from  the 
Mei^e  and  Add  WUC  Group  Identification  described  in  Paragraph  5.4.  7.  3. 

5, 4. 8.  3 Output  Desc  ription.  The  output  file,  50  characters  to  the  data  record, 
blocked  60  to  a tape  record,  is  sorted  according  to  the  following  keys. 


Key 

Column 

Description 

1 

1 

Aircraft  Subset  (Ascending) 

2 

2-3 

Group  Identification  (Ascending) 

3 

13-17 

WUC  (Ascending) 

4 

19-21 

HMC  (Descending) 

5 

11 

Record  Identification  (Ascending) 

It  required  about  two  minutes  on  the  IBM  370  to  sort  55,  860  records  for  the  150- 
aircraft  F-106  fleet. 

5.4.9  MEANS  OF  WUC  SET 

5. 4. 9. 1 Purpose.  The  purpose  of  this  task  is  to  compute  the  mean  values  of  various 
data  from  the  data  bank,  by  WUC  group. 

5.4. 9. 2 Input  Data  and  Procedures.  The  input  data  consists  of  the  sorted  output  of  the 
data  at  the  five-digit  WUC  level  previously  described.  The  program  generates  two  out- 
put files:  data  at  the  five-digit  WUC  level  and  data  at  the  WUC  group  level. 

5.4.9.  3 Output  Description.  The  output  consists  of  two  magnetic  tape  files,  both  50 
characters  to  a data  record,  blocked  60  to  a tape  record.  The  format  of  each  data 
record  is  shown  in  Figure  5-11. 

At  the  five-digit  WUC  level,  the  following  variables  are  computed  and  written  on  File -2. 

C=  [MH/ma(WUC,HMC)-Nyj^j^  (WUC,HMC)] 

HMC 

S Ny^a(WUC,HMC) 

HMC 

indicates  a summation  over  all  HMCs  applicable  to  a particular  WUC. 


N2  = 

z 

HMC 


A sample  output  is  shown  in  Figure  5-21.  At  the  WUC  group  level,  the  following 
variables  are  computed  and  written  on  File  -3. 


Mean  manhours  per  unscheduled  maintenance  action: 

MH/uma  = V Yl  [MH/ma(WUC,  HMC)  • (WUC,  HMC)] 

MM  unid. 

1 WTTr  Hivrr 


Ni=  £ Y,  Numa(WUC,HMC) 

WUC  HMC 

Mean  NORM  per  unscheduled  maintet^nce  action: 

NORM/uma  = ^ Y 1^2  ‘ NORM/ma(WUC) 


WUC 


Mean  manhours  per  periodic  inspection  repair  action: 

Y Y [MH/ma(WUC.HMC)-Nj.gp(WUC,HMC)  ] 


(MH/rep) 


WUC 


HMC 


PE 


L E fNrepCWUC.HMC)  1 

WUC  HMC  ^ 


Mean  manhours  per  hourly  postflight  inspection  repair  action: 

Y Y [MH/ma  (WUC,  HMC)  • N^gp  (WUC,  HMC) J 
irTT/n  ¥fn/r/n  L J 


(MH/rep) 


WUC 


HMC 


HPO 


E E Kep<'TOC.HMC)  1 


WUC  HMC 


In  these  equations,  the  symbol  indicates  a summation  over  all  WUCs  in  the  set. 

WUC 

A sample  output  Is  shown  In  Figure  5-22. 


On  a recent  IBM  370  run  for  an  F-106  fleet  of  150  aircraft  and  2201  WUCs,  total  com- 
puter time  was  two  minutes.  A total  of  2886  records  were  generated  on  File  -2  and 
108  records  were  generated  on  File  -3. 


5.4.10  VARIANCE  OF  WUC  SET 

5. 4. 10. 1 Purpose.  This  COBOL  program  computes  the  variance  of  various  data  from 
the  data  bank  and  prints  the  final  mean  and  variance  results  in  convenient  tabular  form. 
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I/F  IU2*  21.»«.12  72/23J  8LR  CNT  ( IC  LEMGtH  IOC  CONIROL  2C5C  JOOClO')  OiC^JPO  PACE 


• • 


o«~.ococoee  cc.coAoooccc.cocc  ocooco 
c«r.c  coooccc  c.ococ.ococ;oc.ooc.oceooo 
c ocioccciooocc.coocor.t'.cc.ooe.c.r-.c  err, 
or.c  r eor.cocr,Cie.or  e.c.C/Ooe.cre.ocr.er.c. 
or»r.oor.oor>erArror  oricrrior  r^r  ooroor  o 
c oc  ooc  oec<>cCpOO<  «,^or  ooooccc  wC.oo 

'#^jCjmrtroC/trte.««o«*cr^^r^9‘c  <Njce.'^rvrto>#r^««r^ 

c>oc>A3c<ooonoc-'Oe.r>ocooooooc.  o«.>cwoco 
t E^.iortA-^or '^^-or.oooc  rArkooooA-.orkr  r*r»o 
CH_i0000300i::  COO  OOOOOC  lOOOOOOOOOOO 
er|r»oor»oor^^^••»er,orlrir.or*r^ooo.•*»rtori^or» 

^ roeoooc  .“io^  000000  ooocwooooooc-oo 
frooeooor  <>o»DC'r.or  4_or»oooor  oooooo 


3S^iSS8S3&5^SS8i5?S.t'.8S3%38SSf8§ 


‘OC.C-  vOC  WC  OOOOCOOOOOOO 


C .-'  OOOOi-  - 

jc  DO«.*C»^r  r»-«- •o-<oco«M«-»**coo,,*o,.«<..«^«r 
oocv<»oo-oc -fceoowot-^oooo'^ooc  & ‘>w— 
v,ooeocvooo<*oooaooc  oc  ooecc  ooOooc 
C00009000CC  OOOOOC<«JO 900 Z OOOOCOO 
Co90e.00OC0..«9000CC^C  90O00OOC0O0 

wO<'JC  #0<NOU>Cfl^'r 

VOOOOO-OC'O  •«O9<JO000C.O0U000<'>0%J  900 
OC»OOOSPOWOOOOOUOOOOOOOOOOO«>OOOV.» 
OOOOOOOO  OOwOOOCioC  0>J»  oc  OvJOOOOOOO 

or  OOOOOMOO  900C  ooco  OCOOOOOCOOO 

O.vXPOOr'^Sv  VWwwOOe>^^a>OCww<«/wOOO«, 
WC^VOOC^I^CC  «>OOOQOOOOoOOOOOOWOOOO 

4M  'Cl  au9<*>i -r  <«)«)  'W  wo  <M  r 'w  00  v<M -r 'll  -r  «M  .r  HI 

9000«H«H«rt,ii4«HrH<>irgfSiNomoinO'r-^<-'t'r«l>oo000 


(^^^9  99 

c lAWWf^r^C•«fk^(^.0^HOlA^g««gr»^‘Kll^9OO999999 

e r.ooOc.c  occecceocc  r cr.r  ooc  999999 
e.eoooooooc>ccoocce  ooe.0000999999 
r.c  rr,Occr,or  oe.e.eriooc,cx‘.ccor.999999 
c rrr,oor.oer.ccoc  oc.r  or  .r.  0000999999 
cr  r.r.c.or  oof-cr  oor.or.r  or  000099  9999 
ocpT  ooc oooooe  oooooor  000009990  9 9 

999999 
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999999 
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*L* 0000OP0O999999 

9OOOP000999999 
999999 
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00OCM>0O00a0(s>0OO0OO«.lO(.>000999999 
CrWoOCOOOOO^^OOOOCC  .^000000999999 
00090oeoco0c000000o000009 99999 
OC-w OOOOw <1 0 OOP OOOOOOo P 0009 9 99 99 
OOOOOOOWOO'OOOOOW  00000000999999 

999999 

WO0l9'0aDOM9<ilWO0l'r'«ie0O(^<r'«lWV<^9999999 
0«^«««*^*.*«MrHr^rgrHi*>rmr>mr  9 999999999999 
(^<^<M<^<^f^<^MiH(xojr^r^oj(Mr^rgoj(M(xojojr^r^999999 


O9'HI0rH99^«<^900’<'9^e9^00^9WP»99990^ 

w«HrHo^O*9*r99<N«49rH9«49909fy««0*^**«^'Coi*^ 

ocoooooo 00000000000 00 ooooooooo 

V^IOPOOOOOOOOOOOOOOOOOOOOOOOOOOO 
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•J.OP  90OP0O0  9 900000  J09  P^  PC  0 ^00  PO 
of^ppaopopooopoopcopor-'ppocpoppo 
00  PPoPO  POO  POOOo  POO  PPC. 70900 POOP 
on  P090  POOOPPOO'POOO  JPO'>POOO.'>  POP 
OOO  Poo  POOoC' POOOOO'POOOO  JOO  P9000 
PnoPPOPOOOw  000099  P0000‘P9C*0  P90  P 

^-H9  >09»99n^*1999'M9^^  09 9'Oor»999'V«4«^ 
0-L9  — O—  oC--P0090--COC--<'lOiP 

c-jc  poooop  pooooo^rpr.  P99ocooo‘P90 

o P0000909C0900  PC 0000900099  0990 
'.i<-2-0000  POOO'.VPOPOC  POO  POOOOOOO  POO 
O ^ P90000  09  OPOOCOr  on  PC  P poo-po  poo 
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OP  POOOOPwG  ”■  PCO-PCOOP-POOPOorC  POO 
9 POOPOO  P9  P^  P009000P  P00990  PoOOC 


•^9<M999rHm99eo<M4 


999999 
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OC  >POOPOCn^OC  POOOOOPO.P  P00999999 
Oo  PO  PClOOOO«^  PPOOO  «;  00000009 9 9999 
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OO-POOOOOOC  P'p0000>^000cp00999999 
00-^«>*POOOOPP  .lOOPOOOOO  P000999999 

999999 
.999999 
>^000-^999999 

.00000999999 

. O0’P0OO0lP0P(^00O0999999 

POQOOPOP^^ggg 00^000099999 9 
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OOOPPOOOO" * 

OPOv 

rpoOO' 


opo— o- 
>00200*: 
OOOOPC 


POO  : 


>009999999 
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OoOpOOOOOOeOOOOOOCOOOO  <>10000900 
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1 0^r9  A9  # r<n-^'^9®<**oiw<*^r 

iA9  9 lA  9 9 <r  ^ 9 «H4^4nr  9 
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Figure  5-22.  Sample  Output  — Mean  of  WUC  Set,  File- 


¥ 


-an 


5.4. 10.2  Input  Data  and  Procedures.  The  input  consists  of  three  files:  the  sorted 
output  data  at  the  five-digit  WUC  level  and  the  two  files  from  the  Mean  of  WUC  Set 
program.  The  program  computes  the  variance  of  NORM  and  manhours  per  unscheduled 
maint^ance  action,  leads  in  the  previously  computed  mean  values,  and  then  prints  out 
six  data  results  for  each  WUC  group  of  each  aircraft  subset. 

5.4. 10.  3 Output  Description.  The  output  consists  of  a file,  100  characters  to  a data 
record,  blocked  20  to  a tape  record.  The  variances  are  first  computed  for  the  WUC 
group  using  all  three  input  files  as  follows. 

Variance  of  manhours  per  unscheduled  maintenance  action: 


^2 


MH/uma  Nj 


=—  y. 


WUC 


N2*A^  + 


H rNu^(WUC,HMC). 
HMC  ‘- 


2 

^ MH/ma 


(WUC,  HMC) + B^ 


] 


where: 


A = -p-  - MH/uma 
^2 

B = MH/ma  (WUC,  HMC)  - — 

N2 


Variance  of  NORM  per  unscheduled  maintenance  action: 


.2  = J_  y N 

NORM/uma  Nj  2 

WUC 


■ [NORM/ma(WUC)  - NORM/uma]^ 


For  each  aircraft  subset  and  WUC  group,  the  output  file  contains: 


a.  WUC  group  descriptor. 

b.  Aircraft  Subset. 

c.  Mean  Manhours/Unscheduled  Maintenance  Action. 

d.  Variance  of  Manhours/Unscheduled  Maintenance  Action. 

e.  Mean  NORM/Unscheduled  Maintenance  Action. 

f.  Variance  of  NORM/ Unscheduled  Maintenance  Action. 


’I 


I 


I 


1 


i 


I 
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g.  Mean  Manhours/Periodlc  Inspection  Repair  Action. 

h.  Mean  Manhours/ Hourly  Postflight  Inspection  Repair  Action. 

A sample  output  is  shown  in  Figure  5-23.  It  required  two  minutes  to  process  the 
input  files  for  150  F-106  aircraft;  114  lines  of  output  were  generated. 


RESULTS 

OF  PROCESSING 

haintenance 

MANHOUR  ANO 

NORM  OATA 

PAGE  1 

cSKEp 

nB^A^uha 

PE 

(MH?6i{^»HPO 

IIJ 

ISO 

8*1 

46.2 

5.7 

164.1 

• 9 

.4 

LU 

ISO 

2.0 

3.1 

*c 

*1 

2.4 

3.3 

U 

ISO 

2*3 

24.5 

*1 

4*7 

2.2 

1.5 

128 

iso 

1*5 

1.3 

*0 

*0 

5.2 

12 

ISO 

4«3 

17.8 

*9 

p.9 

1.8 

2.6 

pc 

ISO 

5.2 

43.8 

*9 

11.7 

4.0 

.5 

(SO 

7.9 

32.5 

.0 

4.1 

• 6 

13 

ISO 

3.0 

11.2 

l.C 

29.9 

2.1 

2.5 

14 

ISO 

4.tt 

121.9 

2.C 

42.2 

3.9 

3.1 

23K 

23M 

ISO 

3.4 

7.7 

.7 

11*4 

1.  3 

.0 

ISO 

3.1 

9.3 

*9 

34*0 

3.2 

• 0 

2iN 

ISO 

5.4 

14.0 

2*4 

19.0 

.0 

1.6 

239 

23S 

ISO 

4.3 

12.0 

1*8 

18.  1 

1.4 

8*4 

1 Su 

4.9 

33.2 

.7 

9.8 

l.U 

2.4 

23 

ISO 

7.C 

82.4 

2*4 

82.6 

4.4 

9.1 

41F 

ISO 

3.0 

3.6 

1*5 

12.7 

• 0 

4.0 

ISO 

3.4 

8.5 

1.4 

29.0 

2.2 

5.5 

42E 

ISO 

3.2 

3.9 

*9 

7.1 

1.5 

• P 

42  f 

ISO 

5.4 

41.9 

1*0 

9.7 

.5 

3.9 

42G 

ISO 

.9 

1.0 

.0 

1.0 

•r 

42 

ISO 

3.7 

13.4 

14.6 

2.0 

3.P 

44 

ISO 

1.9 

2.4 

*0 

.0 

2.1 

2.0 

43E 

ISO 

4.7 

38.2 

1.4 

29.2 

3.8 

2.0 

1:>Q 

2.1 

2.3 

• 5 

7.8 

1.8 

1.4 

45 

ISO 

2.9 

18.2 

.9 

40.3 

1.8 

1.4 

46A 

ISO 

8*4 

105.1 

1.0 

23.2 

3.  1 

.5 

44C 

ISO 

9.4 

41*3 

U4 

13*4 

4.9 

5.9 

46G 

47.4 

1.7 

19*0 

2.0 

1.0 

44H 

5.^ 

94.9 

.2 

2.7 

2.7 

46J 

7.2 

• 0 

4*6 

4.7 

^8 

44 

Iso 

5.4 

32.3 

.5 

5.5 

4.4 

.0 

47 

ISO 

4*3 

15.4 

17.4 

2.7 

49A 

ISO 

4.4 

30.4 

14.8 

5.9 

1.9 

49 

ISO 

1«5 

1.3 

.C 

.1. 

3.7 

.0 

51 

ISO 

J«5 

37.0 

M.7 

1.4 

4.1 

Si 

iSO 

2.4 

22.3 

.i 

4.2 

1.9 

1*4 

55 

ISO 

4.1 

29.2 

.0 

7.5 

43 

ISO 

2*9 

24.8 

.0 

4.9 

.0 

1.3 

45 

ISO 

2.5 

4*3 

.9 

13*9 

.» 

.o 

71 

ISO 

2.4 

12*5 

.7 

17.1 

1.2 

1.4 

75 

ISO 

2.9 

21.7 

•i 

8.4 

3.4 

5.7 

93 

ISO 

3.2 

U.8 

.c 

. 0 

4.4 

2.4 

97 

ISO 

4.8 

44.5 

♦ 6 

1*9 

2.1 

2.4 

74CJ0 

ISO 

1.5 

2.4 

•5 

3.0 

.0 

.0 

74A 

ISO 

2.3 

23.1 

i.fl 

25.4 

2.7 

l.R 

748 

ISO 

1*6 

.2 

4.1 

1.1 

74C 

ISO 

1.2 

1*4 

.3 

4.0 

.7 

.7 

740 

1 so 

2.6 

41.1 

Ub 

23. 

1.3 

1.6 

741- 

ISO 

1.8 

7.3 

• b 

5.1 

^•1 

1.5 

74H 

ISO 

2.9 

32.1 

.5 

4.4 

2.3 

1.9 

74A 

(SO 

2.3 

9.5 

.3 

17.1 

1.8 

1.9 

741 

ISO 

1.9 

3.9 

.2 

1.7 

• 8 

74P 

ISO 

2.7 

54.1 

US 

58.9 

1*5 

1.5 

74g 

ISO 

3.3 

lUS 

.7 

5.3 

5.4 

3.9 

iij 

NCN-JSO 

4.4 

41.4 

123.3 

2.6 

4.9 

IIK 

NCH-ISO 

2.9 

3C.1 

.b 

8.7 

1.7 

1.4 

11 

NCN-(SO 

l:i 

35*0 

.1 

7.3 

2.4 

2.P 

12i» 

NtiS-lSO 

4.4 

.1 

1.5 

2.1 

1.6 

NCN-ISO 

2.5 

13.3 

.1 

5.1 

1.6 

1.7 

t3C 

NOW- ISO 

4.6 

41.9 

36.4 

2.7 

1.3 

13J 

NCN-ISO 

J.2 

21*2 

.1 

2.1 

1.6 

Figure  5-23.  Sample  Output  - Variance  of  WUC 
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SECTION  6 


COMPUTER  SOURCE  DECK  LISTINGS 


6. 1 66-1  FILE  GENERATION  PROGRAMS 

6. 1. 1 66-1  SCREEN 


//T9e9TP"jOB  I.Mme2.TYraUN>M0L0 

//C9B9TC  kxEC  P9o3SLiTlME>02>*CCT>OSS)2atOT 

//CHG.IUlA  OU  OISP>C  •P*SSl>UNlTXT«F2tl.0CFCRl>0M>*B.9«9S9s2> 

//  L«t)C.L>C  (NL1> 

//  VUL>S£R>*F1 

//CH6.IU22  OU  OSN>*P.9a93<tOS>SP*CE>fCTLtt022ta9t]l 

//CHO. INPUT  DU  «<SP*Ct>CCTL<(l>lll 

UOUOO  Cu^uInE  compile  c.  «*n«. 

UlU«a  UATL'MPITIL.I.  3 JAN  12. 

UIU3U  HLMaHKS. 

01U6U  PnOuPam  SCPcENS  bb-1  OAT*  TAPE. 

U2uau  ENvIkONmEiiT  division. 

U2uia  COnPIGUkATIuN  section. 

U2U2U  SOunCE-cOMPuTER.  lUH-TGU. 

U2U3U  OujECT-lOnPuTER.  IdM-SGU. 

U2tUU  INPUT'OuTPUl  section. 

U211U  FIll-COnTkUl. 

U212U  SELbCI  iNFILE  ASSIGN  TO  UT-S-TUlS 

u2i3u  Pc.Sc.HvE  I Alternate  are*. 

02Iku  SELbCr  uUTFIlE  ASSIGN  TO  UT-S-T022 

U21SU  HbSbRVE  I alternate  AREA. 

U216U  select  3C>FLE  ASSIGN  TO  OA>S-OTol 

U2I7U  peslRve  I Alternate  are*. 

lOUOO  data  DIVISION. 

lOulO  file  SElTION. 

lOIUO  FO  infill 

I0I20  hECuRuIkO  mode  IS  F 

10130  BLOCK  Contains  jo  records 

10100  hECuRu  L JlcTAINS  90  CHARACTERS 

10130  LABlL  HeCORUS  are  omitted 
lOlbO  UATa  keLOrOS  are  inoata. 

10170  01  INDaTm  sTUC. 

Iul7b  02  UATaH. 

lOlBO  OJ  UATaI  PICIIIML  XX. 

10190  OJ  rlPL  PICIURL  XC9). 

10200  03  UATA2  PICTURE  XCGl. 

10210  02  ser-nu  picture  xcei. 

10220  02  UATa3  picture  XClGl. 


lOlBO  OJ  UATaI  PICIURL  X 

10190  OJ  rlPL  PICIURL  XI 

10200  03  UATA2  picture  XI 

10210  02  SER-NU  picture  XI 

10220  02  UATa3  picture  XI 

10220  02  OATL-M. 

10230  03  DAY  PICTURE  99. 

10290  03  hONIH  PICTURE  99. 

10^30  03  TEAk  picture  9. 

10230  02  data?. 

10230  UJ  RUC  PICTURE  XCSl. 

10270  OJ  ACTION  PICTURE  X. 

10200  03  hd  picture  X. 

10290  03  mOm-RaL  picture  XC3]. 

lOJOO  OJ  UATA9  PICTURE  XC27]. 

10310  03  REC-IU  PICTURE  X. 

10J20  03  1HM  PICTURE  X. 

10330  03  oatas  picture  X. 

10390  02  filler  picture  XXXX. 

10J30  02  OATAb  PICTURE  X. 

II 100  FU  OUTFILL 
11120  RECuHUInO  mode  is  F 

11130  BLOlK  contains  30  RECORDS 

11190  HECvPU  CONTAINS  90 

1 1 130  LABlL  Records  are  omitted 
lllbO  data  records  are  outdata. 

IIITO  01  OUTuAIA  SYNC. 


characters 


CTt3  1 
c 

TIS 

022-OUT 

1990  COS 
C909T0 
C9S9T0 
C909T0 
C909T0 
C909T0 
C909TO 
090970 
C9A970 
C90970 
C90970 
C90970 
C90970 
090970 
C90970 
C90970 
C90970 
C 90970 
C90970 
090970 
090970 
C99970 
090970 
C90970 
090970 
C99970 
090970 
090970 
C9«970 
090970 
090970 
C90970 
C90970 
C90970 
C90970 
C90970 
C 90970 
C90970 
C90970 
C90970 
C90970 
C 90970 
C 90970 
090970 
C90970 
C9O970 
C90970 
C90970 
C90970 
C90970 
C90970 
C90970 
C90970 
C90970 
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11178 

02 

OATAF-OUT, 

11180 

03 

OATAl-OUT 

PICTURE  XX, 

11190 

03 

TYPfc-OUl 

PICTURE  XI*]. 

II^OO 

03 

DATA2-0UT 

PICTURE  XCOl. 

ii;iio 

02 

SCR-NO-OUT 

PICTURE  XI8]. 

14220 

02 

DATA3-0UT 

PICTURE  XC16]. 

11228 

02 

OATE-OUTg 

1I2S0 

03 

OAY-OUT 

PICTURE  99, 

112*0 

03 

month-out 

PICTURE  99. 

11250 

03 

ycak-out 

PICTURE  9. 

11258 

02 

DATA7-0UT8 

11260 

03 

toUC-OUT 

PICTURE  XCS]. 

11270 

03 

ACTION-^^UT 

PICTURE  X, 

11280 

03 

ho-out 

PICTURE  X, 

1I29U 

03 

how-pal-Out 

PICTURE  XXX. 

lllOO 

03 

OATAA-OOT 

PICTURE  XC27]. 

lino 

03 

HCC-10-UUT 

PICTURE  X, 

11120 

03 

thh.out 

PICTURE  X. 

11  ISO 

03 

OATAS-OOT 

PICTURE  X. 

111*0 

02 

JOAy 

PICTURE  9999. 

11150 

02 

0ATA6-0UT 

PICTURE  X. 

IlbOO 

FO 

SC-FLb 

1I5I0 

RECORUll^G  MODE 

IS  F 

11520 

BLOCK  CONTAINS 

20  RECORDS 

1I5S0 

KECORO  CONTAINS 

80  characters 

115*0 

LABbL  OECORUS  *HC  5TAN0AR0 

11550 

0*7*  HLL0H05  ARE  OATA-IN. 

llbOO 

01 

OAT*-l'l  SYNC. 

llblO 

02  SCHlEN-OAT* 

PICTURE  XC80]. 

11620 

02  filler  redefines  scheen-oat*. 

11630 

03  OATA-1 

PICTURE  Xt*]. 

116*0 

03  FILLER 

PICTURE  XC76]. 

11650 

02  filler  redefines  screen-oat*. 

11660 

01  OATA-2 

PICTURE  X. 

11670 

01  Filler 

PICTURE  Xt79]. 

lIoAO 

02  filler  redefines  SCREEN-OAtA. 

11690 

01  OATA-3 

PICTURE  99. 

II700 

01  filler 

PICTURE  XC7*]. 

II710 

02  filler  redefines  screen-oat*. 

11720 

01  DATA-* 

PICTURE  XtSJ. 

11710 

01  filler 

PICTURE  Xt72J. 

117*0 

02  filler  redefines  screen-data. 

11750 

01  OATA-S 

PICTURE  XC33. 

11760 

03  FILLER 

PICTURE  Xt771, 

lOUOO 

MOHKlNG-STOKlGE  SCCtlON. 

lOUIU 

01 

NINt  5YNC. 

C9S970 

C9S970 

C9S970 

C96970 

C98970 

C96970 

C96970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 


10020 

U2 

filler 

PICTURE  XX 

VALUE  I99|. 

C90970 

30030 

02 

filler 

picture  xt*] 

VALUE  199991. 

C98970 

300*0 

02 

fillfr 

PICTURE  XC8] 

VALUE  1999999991, 

C90970 

30050 

02 

filler 

picture  xte) 

VALUE  1999999991. 

C98970 

30060 

02 

filler 

picture  XtlSl 

VALUE 

C98970 

10070 

! 999999999999999999 1 . 

C98970 

30080 

02 

filler 

PICTURE  99 

VALUE  99. 

C98970 

30090 

02 

FILLER 

PICTURE  99 

VALUE  99. 

C98970 

30100 

02 

filler 

PICTURE  9 

VALUE  9, 

C90970 

10110 

02 

filler 

PICTURE  Xt$] 

VALUE  1999991. 

C90970 

30120 

02 

filler 

PICTURE  X 

VALUE  191. 

C90970 

30130 

02 

filler 

PICTURE  X 

VALUE  I9l. 

C98970 

301*0 

02 

filler 

PICTURE  XXX 

VALUE  19991, 

C90970 

30150 

02 

filler 

PICTURE  Xt2T] 

VALUE 

C98970 

30160 

1 999V99999999999999999999999I . 

C 90970 

10170 

02 

filler 

PlCTUHC  X 

VALUE  191. 

C90970 

iniAO 

02 

filler 

picTi^ne  X 

VALUE  19* « 

C98970 

1MI90 

M2 

fillfr 

pirrMHi  X 

VALUF  I9l. 

C*A*7n 

iHiinM 

UP 

f 1 1 1 r II 

flp  tfrfiill 

VAIIIF  9V«9, 

t-npitll 

ill. 10 

M< 

F II  Lin 

1 

VALUt  19', 

L4897II 

10150 

U1 

|AhLfc-MKC  STNC* 

C98970 

10160 

U2  HUK-MAL-RCJ 

PICTURE  XXX 

OCCURS  8 TIMES  DEPENDING 

C98970 

10170 

ON  no-reu-hnc. 

C98970 

30*00 

01 

DATS- in- YEAR  SYNC. 

C98970 

10*10 

02 

filler 

PICTURE  999 

VALUE  0. 

C98970 

30*20 

02 

filler 

PICTURE  999 

VALUE  31. 

C 98970 

10*30 

02 

filler 

PICTURE  999 

value  59, 

C98970 

10**0 

02 

filler 

PICTURE  999 

value  90. 

C90970 

10*50 

02 

filler 

PICTURE  999 

value  120, 

C90970 

10*60 

02 

filler 

PICTURE  999 

value  151. 

C9S970 

10*70 

02 

filler 

PICTURE  999 

VALUE  101. 

C90970 

30*80 

02 

filler 

PICTURE  999 

VALUE  212. 

C9S970 

30*90 

02 

filler 

PICTURE  999 

VALUE  2*3, 

C98970 

30500 

02 

FILLER 

PICTURE  999 

value  273. 

C90970 

30510 

02 

filler 

PICTURL  999 

VALUE  30*. 

C90970 

10520 

02 

filler 

PICTURE.  999 

VALUE  33*. 

C90970 

10530 

01 

■NO-DAYS- 

IN-TCARi 

1 REDEFINES  OAYS'IN-YCAR  SYNC. 

C90970 

105*0 

02 

KDAtS  OCCURS  12  TINES 

C96970 

10550 

PICTURE  999. 

• 

C90970 

30600 

01 

UAT5-1N-YEARS  SYNC. 

C98970 

30610 

02 

filler 

PICTURE  9C«3 

VALUC  0* 

C98970 

6-2 

I 

( 


02  TILlEH 
02  FILlEH 

02  fillek 
02  FILlEK 

02  fillik 
02  fillek 
02  fillek 


PICTURE  9CII1 
PICTURE  9t<ll 
PICTURE  OC<ll 
PICTURE  9CII1 
PICTURE  9CII1 
PICTURE  9C<ll 
PICTURE  9Cl|] 


VALUE  S«5. 
VALUE  T5o. 
VALUE  lavs. 
VAt-UE  l«6l. 
VALUE  ia26. 
VALUE  2141. 
VALUE  255«. 


01  U*Y-IN-TEAR>TABLE  RbOLFINES  OArS>lN«TEARS  STNC. 
02  uay-ylah  OCCURS  0 times 

PICTURE  9C<ll. 

01  SER-NO>A  PICTURE  XC 0 1 STNC. 

01  TAPlE-S-N,  redefines  sek-no-a  sync. 


02  LISTS-S-N,  OCCURS  8 TIMES. 

PICTURE  X, 

01  LIT-2LH0  PICTURE  XXX  STNC  VALUE '18001. 

01  KOUNT  PICTURE  S944  COMPUTATIONAL  VALUE  ZERO  STNC. 

01  kNT  picture  S944  computational  value  zero  STNC. 

01  lOM>S>N  STNC  PICTUKE  XC 0 1. 

01  HlGH>b>N  SYNC  PICTURE  XCOl. 

01  LEAp.YEAR>68  PICTURE  4 STNC  VALUE  A. 

01  LEAp.TEAR.T2  PICTURE  4 STNC  VALUE  0. 

01  A.C-TYPt  STNC  PICTURE  XI A 1. 

01  RECORUS'REAO  PICTURE  4C61  STNC  VALUE  ZEOo. 

01  RECURUS.PASS  PICTURE  4C61  STNC  VALUE  ZERO. 

01  KEC.IUENT  STNC  PICTURE  X. 

01  NO.KEd-A.C  SYNC  PICTURE  44. 

01  NO.hEJ'HHC  SYNC  PICTURE  49. 

01  NO.rEJ'ACTION  STNC  PICTURE  49. 

01  REJ.S'N  SYNC. 

02  R.S.N  OCCURS  2S  TIMES  OEPENOINO  ON  N(MieJ>A.C» 

PICTURE  XCOl. 

01  TAPlE'ALTION.REJ  sync. 

U2  AbT10N.REJ  OCCURS  0 TIMES  OEPENOINO  ON  NO.REJ.ACT ION. 
PICTURE  X. 

PKUCLUUrE  DIVISION. 

OPtN.FIuES. 

OPEN  INPUT  infile.  SC.FLE. 

OPEN  OUIPUT  OUTFILE. 

PERFOH.'  SCPEEN.UATA.IN  THRU  ENO-S.O>t. 

NEAUI. 

HtAU  INFIlE 

at  LNO  00  TO  BLOCK.CHECX. 

ADD  1 10  KECORDS.REAO. 

IF  TlPt  NOT  EOUAL  TO  A-C-TTPE  00  TO  REAOl. 

IF  KCL-IO  NOT  EwIUAL  TO  REC.IOEnT  00  TO  REAOl. 

IF  mO»-MAl  less  than  Lir.ZERO  00  TO  REAOl. 

IF  oAT  not  GPEAIEK  than  zero  00  To  REAOl. 

IF  sEK.i.O  EUUAL  to  space  00  TO  REAOl. 

SPECIAL. SCPLEN. 

MOVE  ZEkO  to  KOUNT. 

CMECM, 

AOn  1 TO  KOUNT. 

1^  hOk-mal  is  EdUAL  TO  HOM.MAL.REJ  C KOUNT]  00  TO  REAOl. 

IF  kOUNI  is  less  than  N0.RCJ.HMC  00  to  chccki. 
move  ZEuO  to  KOUNT. 

CMECK2. 

ADD  I To  KOUNT. 

IF  action  equal  to  ACTIONHIEJ  CKOUNTl  00  TO  RCAOl. 

IF  kOUNI  is  less  than  NO.RCJ.ACTION  00  TO  CNECKf. 
CMECK.S-N.F0R.8-0IGITS. 

MOVE  SEm-NO  to  SCH.NO.A. 

IF  lISTS-S-N  COl  NOT  EOUAL  SPACE  00  TO  CNECK-S-N. 

MOVE  7 10  KOuNT. 

MOVE  8 ro  KNT. 

LOOPI. 

MOVE  LIsTS-S-N  IKOUNTJ  TO  L1STS.S.N  CKNTl. 

IF  kOUNI  EOuAL  to  J 00  TO  CNO-LOOPl. 

SUPTRACT  1 FROM  KOUNT. 

SUPTRACT  I FROM  KNT. 

GO  TO  LuOPl. 

ENO.LOOP1. 

MOVE  ZChO  TO  LISTS-S-N  CKOUNTl. 

CHECK-S-N. 

IF  SEK-NO.A  IS  LESS  THAN  LOM-S-N  00  TO  RCAOl. 

IF  SEK-t.O-A  IS  greater  THAN  HIOH-S-N  00  TO  RCAOl. 

TEST-S-N. 

MOVE  ZEhO  to  KOUNT. 

L00P2. 

Aun  1 TJ  KOUNT. 

IF  sfK-i.O.A  IS  EOUAL  TO  R-S-N  CKOUNTl  00  TO  RCAOl. 

IF  kOUNI  is  LESS  than  NO-RCJ-A-C  00  TO  LOOPZ. 

cal-oatl. 

COMPUTE  KOUNT  > TEAR  - A. 

IF  kOUNI  is  less  than  1 THEN  AOO  10  TO  KOm  T. 

MOVE  MONTH  TO  KNT. 

COMPUTE  JOAT  > OAT  < KOAtS  CRNTJ  < OAT-TBAR  tKO|^}. 

IF  kOUIiI  EOuAL  LEAP-YEAR-OO  00  TO  leap.tear. 

IF  kOUNI  equal  LEAP-YCAR-72  00  TO  LEAP-TEAR. 


C404T0 
C404T0 
C404TO 
COR 470 
C40470 
C40470 
C40470 
COO 470 
C40470 
C40470 
C4a470 
C40470 
C40470 
C40470 
C40470 
C40470 
C40470 
C40470 
C40470 
C4O470 
C40470 
C40470 
C40470 
C40470 
C40470 
C4O470 
C40470 
C40470 
C40470 
C40470 
C40470 
C 40470 
C40470 
C40470 
C40470 
COO 470 
C40470 
C40470 
C4O470 
C40470 
C48478 
C40470 
C40470 
C48478 
C90470 
C40470 
C40470 
C40970 
C48478 
C48478 
C 40470 
C40970 
C40470 
C48478 
COO 978 
C40470 
C9e470 
C40470 
C40470 
COO 970 
C40470 
C40470 
C40470 
C40470 
C40470 
C40470 
C40470 
C40470 
C40470 
C40470 
C40470 
C48470 
C40470 
C40470 
COO  470 
C 40470 
C40470 
C40470 
C40470 
C4O470 
C40470 
C40470 
C40470 
C40470 
C40470 
C40478 
C40470 
C40470 
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b0870  GO  10  kHiTE-OUTPUT. 

bOVOO  LEAP-YEAR. 

S0910  IF  MONTH  IS  GREATER  THAN  2 THEN  AOO  t TO  UOAT. 

SlUOO  MRITE-OuTPUt. 

SIUIO  MOVE  UAlAa  TO  OATAS-OUT, 

blOkO  MOVE  SEH-NO-A  TO  SER-NO-OUT. 

blUSO  MOVt  OATAs  TO  OATAS-OUT. 

blUGO  MOVt  oate-in  to  DATE-OUT. 

bIU90  MOvt  UAlAr  to  OATA7-0UT, 

bI162  NOVt  UATAg  to  OATAG-OUT, 

bI170  mRITE  OuTOATA. 

bliao  ADD  1 To  RECOROb-PASS, 

bI190  GO  to  RtAOl. 

bZVOO  BLOCK-ChECK, 

S2UI0  COMPUTE  FOUNT  > RECOAOS-PASS  - tCRECOROS-PASS  / SO)  • SO). 

S2U2U  IF  kOUII  tOUAL  ACHO  GO  TO  CLOSE-FILLS. 

b2U«U  LOOPS. 

S2US0  kRIlT  OUTuATA  FmOM  NINE. 

b2UaO  AOO  1 TO  FOUNT. 

S2U70  IF  kOU'II  is  LEbb  THAN  SO  GO  TO  LOOPS. 

b2100  CLObL-FILtb. 

S2I10  CLObE  1..F1LE  MiTH  LOCK.  SC-FLE  MITH  LOCK. 

S2120  CLObT  OuTFILE  KITH  LOCK. 

S21«0  DISPLAY  1 NUHBEH  OF  RECORDS  READ  i RECOPOS-PCAD 

b21S0  UPON  CONSOLE. 

b2I60  DISPLAY  t NUHBEH  OF  RECORDS  PASSED  i RECOKOS-P*SS 

S2170  UPON  CONSOLE. 

b2iao  display  : eoj  C9897  : upon  console. 

b2190  CORACK. 

sauoo  scheen-uata-in. 

bSOlO  REAU  bC-FLE  AT  tSJ  GO  TO  ENO-S-O-I. 

b3U20  MOVt  OAIA-I  TO  A-C-TYPE. 

bsuso  REAU  SC-FlE  AT  LNO  GO  TO  ENO-S-O-I. 

bSUGO  move  UAIA-2  to  HEC-IOENT. 

53U70  REAU  bC-FLE  AT  END  GO  TO  ENO-S-O-I. 

b3U80  move  UAIA-3  to  UO-PEJ-A-C. 

53U90  MOVE  2EhO  TO  KOUNT. 

bSlOU  S-0-1-1. 

53110  AOD  1 TO  KOUNT. 

53120  REAU  SC-FeE  AT  END  GO  TO  ENO-S-0-1. 

53130  MOVE  OAlA-k  TO  R-b-N  CKOUNTl. 

53190  IF  KOUNT  IS  LESS  THAN  NO-REU-A-C  GO  TO  S-0-t«l. 

53150  REAU  bC-FLE  AT  ENU  GO  TO  ENO-S-0-1. 

S316U  move  0A|A-9  to  LOM-S-N. 

53170  REAo  SC-FLE  AT  LNO  GO  TO  ENO-S-O-I. 

53180  MOVE  UATA.K  to  HIgH-S-N. 

53190  REAU  SC-FLE  AT  LNO  GO  TO  ENO-S-0-1. 

53200  move  UA|A-S  to  NO-RE J-HMC. 

53210  MOVE  2tNO  TO  KOUNT. 

53220  S-0-1-2. 

53230  AOO  1 TO  KOUNT. 

5329U  REAU  SC-FLE  AT  ENO  GO  TO  ENO-S-O-I. 

53250  MOVL  OAlA-S  TO  HCH-MAL-REU  CKOUNTl, 

53260  IF  KOUNT  IS  LESS  THAN  NO-REU-HMC  CO  TO  S-0-t>2. 

53300  REAU  SC-FlE  AT  END  CO  TO  ENO-S-O-I, 

53310  MOVL  UAtA.3  TO  NO-REU-ACTION, 

53320  MOVL  2ErO  TO  KOUNT, 

53330  S-O-I-3. 

53390  AOO  1 TO  KOUNT. 

53350  REAU  SC-FlE  AT  ENO  GO  TO  ENO-S-O-I. 

53360  MOVE  0A|A.2  TO  ACTION-REJ  CKOUNTl. 

53370  IF  KOUNT  IS  LESS  THAN  NO-REO-ACTION  GO  TO  S-O-I-S. 

53900  ENU-S-O-I.  EXIT. 

/•  PLACE  COBOL  SOURCE  BEFORE  THIS  CARO 

//CHG.TFGIN  DO  ••SPACElCCYL.Cl.l 11 


TFG  OTOl 
F106 
J 
13 

S7U00239 

57U00239 

57000290 

57001523 

57002507 

57002513 

57002516 

57002519 

57002523 

57002529 

58000795 

59000061 

59000150 

57000001 

59999999 

89 

799 

800 


11  0202080 
A-C  TYPE 
RECORD  IOENT 
NO  RLJ  A/C 


NO  RLJ  HHC 


C98970 
C98970 
C98970 
C98970 
C98970 
C989T0 
C98970 
C98970 
C98970 
C 98970 
C98970 
C98970 
C98970 
C98970 
C98976 
C9B9T0 
C9B970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C9S970 
C98970 
C98970 
C98970 
C9B970 
C98970 
C98970 
C98970 
C98970 
C98970 
098970 
C98970 
C90970 
C90970 
C 98970 
C90970 
C90970 
C90970 
C98970 
C98970 
C98970 
C909T0 
C 98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98978 
098970 
C989T0 
C98970 

1998  CDS 
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SOS 

S12 

Ol  NO  RtJ  ACTION 

H 


J 

T 

U 

*ENO 

/•  PLACE  TFG  DATA  BEFORE  THIS  CARO 

//TPR.TUiJ  00  OISP>COLOiKEEPliVOL>SER>*F>*UNlT>T«Ft>LAaELXiNL] 

//TPR.TU22  00  OISPKOLOiPASSI 

//TPR.TPRIN  00  ••SPACL>lTRK(Clil]] 

T/P  OToi  loiooaozoso 

T/P  T022  10200902090 

/• 


DtC-PASS 


6.1.2  66-1  SORT 


//C9S97S  EXEC  P9»22Ni«>010.T1HE>0J<ACCT>OJSS22107 

//CHG.SORTIN  00  OSN>AP.9a9S«OS>01SP>COLO>oeLETE]t 

//  CCH>CLRECL>U090>aLKS12E>2700]>LABEL>C«NSL>RETPO>000] 

//CHG.SOHTOUT  00  01 SP>C • KEEP ]>UN1 T>t TAFl > 1 >OEFER ]>OSN>AA .9S95«05>  CTlt  1 

//  V0L>SER>t*FI,A*FI,BAFl,C*Fl.0AFl.EAFl,F*Fl»6*Fl.H*Fl.  CTl»  2 

//  I*FliJAFI.KAFI.L*Fl.H*Fl.N*Fi,0*Fl.PAFl»0*Fl.R*Fl.S*Fl J»CT12  S 

//  OCB>ClRECL>U090)BLKS1ZE>2700] 

//CHG.SYSIN  00  *>OCB>ULKS12E>0080>SPACE>CTRK>C1>1]] 

SORT  FlELUS>C01S.00a.CHiA,0S6>00«>CH)A>096>005>CH.A«05S>00S>CH>A>  C 
OSl • 002) CH>AiuS6>029>CH>A>02S>029*CH> A ItSIZE >£0050000 
MUOS  ElS>CClS)OUS>SOHTLlB)N]iElS>CE16)Ot9)SORTLIB)N] 

/• 

//C9897P  EXEC  C96u3N#T1HE>01#ACCT>035322107 

//CHG.TUIZ  00  OlSP>C>KEEP]>UNlT>(TAFl)l«OCFCRl»OSN>AA.989S905)  CT1«  1 

//  VOL>SER>tAPl#AAFliB*Fl.C*Fl#OAFl.E*PI*F*Fl»«*Fl)HAFl»  CT12  t 

//  1*FI)J+FIiK*FI#L*F1)RAF1.N*F1.<HF1.P*F1*0*F1»R*F1.SAP1 J Tit  3 

//CHG.TPRIN  00  •)SPACE>CTRK>C1«1]] 

T/P  TU12  10200902090 

/•  PLACE  T/P  CONTROL  CAROS  BEFORE  THIS  CARO 


6.1.3  66-1  MERGE 


01) : c,  wANo  ;.prtt>02)Ttprun>holo 
P9b/3N, riPE>10>ACCT>03S923007 

00  OISPXC  .KEEP]. UN1T>C  TAFS)1>0EFER]>0SN>ae. 9895905)  CT22  1 

VOOSERX  ♦FS)A+F5)8+F5)C+F5)0+FS)E*F5)F*F5)G*F5)H*F5)  CT22  2 

1 + P3)JtF5)K«Fb)L+FS)M+FS)N*FS)0*F5)P+F5)0*Fi))R*F5)S*F5  3)CT22  3 

OCB>CLRECL>0090fHLKSlZE>2700].LABEL>t )NbL)RETPO>OOI 3 
CO  01S)P>t)KEEP3)0NlT>tT*F6)l)0EFE«l)0SN>*F, 9895905)  CT23  1 

V0L>SER>t«F6)A*F6)8*F6)C+F6)0*F6)E*F6)F*F6)GAF6)H*F6)  CT23  2 

|AFD)JAF6)KtFb)L>F6)MAF6)N*F6)0*F6)PAF6)0*Fb)RAF6)SAF63)CT23  3 

DCU>CLRECL>0q90)PLKSUE>2700  3)LA8EL>C.NSL>RETPO>0013 

O15P>t)KtEP])ONlT>tT*F7)l.OEFEH3)ObN>*G.989590S)  CT29  1 

V0L>SER>t+F/)A*F7)B*F7)C*F7)O*F7)E*F7)F*F7)G*F7)H*F7)  CT29  2 

1*F/)J*F7)K+F7)L*F7)M*F7)N*F7,0*F7)P*F7)0*F7,R9F7)S*F73)CT29  3 

CCU>tLRECL>0090)fiLKStZE>27003)LABEL>C .NSL)RETPO>0013 
00  01bP>t )KtEP3)0NlT>tT*F8)l)0EFER3.0SN>*H. 9895905)  CT25  I 

V0L>SER>t*F8)A*F8)8*F8)C*FR)0*F8)E*F8fF*F8)G*F8)H*F8)  CT25  2 

lAF<i)JAFR)K*Fa)LAF8)HAF8)NAF8)09F8)PAF8)aAFBtRAFB)SAF8  3>CT25  3 

OC8>CLRECL>0090)BLKS1ZE>2700I)LABEL>C •NSLtRETPO>001 3 

01bP>C  )KtEPl)UNIT>C  TAF2>l)OEFEH3)ObN>4'B, 9895905)  CTIS  1 

V0L>SER>tAF2)A)F2)B*F2)C*F2)0*FZ)E*F2.F*F2)0*F2)H*F2)  CTIS  2 

l)F2)J4F2)KAF2)LAF2)M)F2)N*F2.0AF2>P*F2te')F2,R*F2>SAE2  3iCTlS  3 

OCU>CLRECL>0090)nLKSCZE>27003>LABEL>t  >NbL)RETPO>001 3 
DO  OISP>C )KEEPI)UN1T>CT4F3)1>OEFER3>OSN>)C)98959oS>  CT19  1 

V0L>SER>t4Fj,A4F3)B*F3,C4F3)04F3)E*F3)F*F3)6*FS)H4FS)  CT19  2 

l4FJ)J4F3)K4F3)L4F3)M*F3)N4F3)0*F3)P*F3f04FS,R4FS»SAF33)CTl»  3 

OCU>CLRECL>U090)8LKSlZC>27003>LABEL>C>NbLtRETPO>00l3 
00  01bP>C)KEEP3)UNlT>CT4F9>1.0EFCK3tOSN>40)9895905>  CTlB  1 

V0L>SER>t4F9)A4F9)B*F9,C4F9t0*F9)C*F9fF»F9)04F9.M*F9)  CTlB  2 

14F9)J4F9)K4F9)LAF9)H4F9>N4F9>0«F9tPAF9>04F9>RAF9)S«F93>CTlB  3 

OC8>CLRECL>U090>BLKSlZE>27001>LABEL>ttNSLtRCTPO>001 J 
00  01SP>C )KEEPl)UNlT>CT4Fl>l>0CFCRItDSN>4A, 9895920)  CT12  1 

V0L>SER>C«F1)A4F1)84F1,C4F1)04F1)C9F1)F*F1>B4F1>H«F1)  CT12  2 

14F1)J4F1)K4F1)L)F1)M4F1)N9F1)0*F1)P*F1>09F1)R4F1)S«F1 J)CT12  3 

DCB>(LRECL>0090)BLKSUE>2700  3 
DO  •)OCB>HLKS1ZE>0080)SPACE>CTRK)C1)111 
MERGE  FlEL0S>COl5)008)CH)A)08«)009)CH)A)0«G)O05)CH)At05S)00S>CH>A)  C 
051)002)CH)A)05«)029)CH)A)02S)023)CH)A1 

/• 


//C9897M  JOB 
//t9B97  EXEC 
//CHG.SORTINOl 
// 

// 

// 

//CHG.SORTINOZ 
// 

// 

// 

//CHG.SORTINOS  00 
// 

// 

// 

//CHG)S0RTIN09 
// 

// 

// 

//CHG)SORTIN05  00 
// 

// 

// 

//CHG.S0HT1N06 
// 

// 

// 

//CHG.SORTINOT 
// 

// 

// 

//CHG.SORTOOT 
// 

// 

// 

//CHG)STS1N 


6-5 


6. 1.  4 66-1  ELIMINATE  DUPLICATE  RECORDS 


//C9697E  JOB 
//C9B97Z  EXEC 
//LHC. TUI 2 
// 

// 

//CHO.TU22 

// 

// 

//CHG. INPUT 
OOUOO 


01.;  G.  WANG,  :,p«ty>09>ttprun>no<.d 
P9bbSE.TIME>20tACCT>O3S32S0OT 

DU  OISPX  •PASS],UN1t>CAAF1.2>0£FER}>DSN>aa.9A95««0>  CT12/I3I 
WOL>SEP>C*Fl.A*Fl,B*Fl,CAF1.0*Fl.t*FI.F*FI»6*Fl.MAFl.  CT12  2 
1*F1.J«F1,X*F1.Laf1.M*FI.NaFI,0*F1,PAF1.0*F1,RAF1.SAFI 1 T12  3 
DL  OISPX  tPASS]iUNlT>CAAFS.2>OEFCR]tDSN>AE.9695««0>  CT22/23  1 
V0L>SER>C*FStA'»F3.e*CS.C«FS>0«FS.E«F5.F«F5>«AFS>H»F5>  CT22  2 
Ulb'JAFStXAFbtLAFS.MAFS.NAFS.O'AFS.PAFS.aAFS.RAFS.SAFSJ  T22  3 


a.  WANS. 


uiuso 

OIUAO 

01U70 

02U00 

02UI0 

U2U20 

02U30 

U2100 

U2110 

U2120 

02130 

02140 

02130 

lOUOU 

louio 

10U20 
10U30 
10U40 
lOUSO 
10U60 
10U70 
10U80 
lOlOU 
10110 
10120 
10130 
10140 
10130 
10160 
30000 
30U10 
30  020 
30030 

30040 

30041 
30030 
30060 
30000 
30010 
50020 
50030 
50040 
50050 
50060 
30070 


OU  ••SPACEXCYL.Cltl )) 

CUMOINE  COMPILE 
OATL-WRITTEN.  27  DEC  71. 

REMARKS,  program  SIFTS  66-1  FILE  TO  ELIMINATE  DUPLICATE 

aojaclni  records, 
environment  division. 

CONE IGUHAT ION  SECTION. 

SOUHCE-LOMPuTER.  IUM-360. 

OUJECT-COMPuTER.  IBM-360. 

INPUI-OoTPUT  SECTION. 

FILL-CONTMOl. 

select  infile  assign  to  UT-S-TU12 

reserve  1 alternate  area, 
select  OUTFILE  ASSIGN  TO  UT-S-TU22 

Reserve  i alternate  area. 

DATA  division, 
file  section. 

FU  infill 

RECORUlt.G  MODE  IS  F 
BLOCK  contains  30  RECORDS 
RECOFO  CONTAINS  90 

lapel  records  are  omitted 

DATA  RECORDS  ARE  INREC. 

01  INReC  picture  XC90]  SYNC. 

FD  OUTPILE 

RECoRUli.G  MODE  IS  F 

BLOCK  contains  30  RECORDS 
RECOnU  CONTAINS  90 

label  records  are  omitted 
DATA  records  are  OUTREC. 

01  OUTREC  PIClURE  XC90J  SYNC. 

working-storage  seciion. 

01  NUMbEh-uUPS  picture  9t07J  STNC. 

TEMPREC  PICTURE  XC 90 J STNC, 


characters 


characters 


01 

01 


NINES 


SYNC 


PICTURE  XlGtl  value 
:9999999999999G9999999999999»9999GG9999VR»9GG9V9VV9VG999VG9»V 
;99999999999999999999: . 

PICTURE  9C7J  VALUE  ZERO, 

PICTURE  5999  VALUE  ZERO, 


01  RECORDS-PASS  STNC 

01  KNT  computational  SYNC 
PROCEDURE  DIVISION. 

BEGIN. 

OPEN  INPUT  iNFILE. 

OPEN  OUTPUT  OUTFILE. 

MOVE  ZERO  TO  NUMBER-DUPS, 

READ  infile 

AT  end  go  to  close-files, 
MOVE  INrEC  to  TEMPREC, 


1440  cos 
C96970 
C98970 
C969T0 
C98970 
C98970 
C98970 
C9B970 
C9B970 
C969T0 
C 98970 
C98970 
C96970 
C98970 
C98970 
C98970 
C9B970 
C98970 
C9B970 
C98970 
C98970 
C98970 
C98970 
C9B970 
C98970 
C98970 
C9B970 
C98970 
C98970 
C98970 
C9B970 
898970 
C98970 
C9B970 
C96970 
C9B970 
C98970 
C96970 
C98970 
C96970 
C98970 
C96970 
C96970 
C98970 
C98970 
C98970 
C98970 


SOUBO  READ  IMFILE  C96970 
50U90  AT  END  GO  TO  CLOSE-FILES,  C9B970 
30100  COMPARE,  C98970 
30110  IF  INREC  > TEMPREC  GO  TO  COUNT-OUPS,  C969T0 
50120  write  OuTREC  from  TEMPREC.  898970 
30125  ADO  I TO  HECOROS-PASS.  C969T0 
30130  MOVE  INREC  TO  TEMPREC.  C969T0 
50140  READ  infile  C9S9T0 
30150  AT  end  go  to  write-last,  898970 
30160  GO  TO  compare.  C969T0 
50170  COuNT-PUPs.  C9B970 
50175  IF  INREC  IS  equal  TO  NINES  GO  TO  BLOCK-CHECK,  C98970 
30180  ADO  I TO  NUMBEH-OUPS.  C9B970 
30190  READ  INFIlE  C98970 
50200  AT  END  GO  TO  WRITE-LAST,  C98970 
30210  GO  TO  compare.  C969T0 
30220  WHITE-LAST.  C98970 
50230  WRITE  OUTrEC  FROM  TEMPREC,  C96970 
30235  ADD  I TO  RECORDS-PASS,  C96970 
50240  close-files.  C969T0 
30250  CLOSE  INFILE  WITH  LOCK.  C96970 
30260  CLOSE  OUTFILE  WITH  LOCK.  C9B9T0 
50270  DISPLAY  :n0.  DUPS  : NUMBER-DUPS  upon  CONSOLE,  C96970 
50280  DISPLAY  tEOJ  9897  « UPON  CONSOLE,  C96970 
50290  GOBACK,  C98970 
30400  BLOCK-CHECK.  C96970 
50410  commute  KNT  > RECORDS-PASS  - RECORDS-PASS  / St  • SO.  C96970 
50420  IF  kNT  is  Equal  to  zero  go  to  close-files.  C96970 
50430  nine -fill.  C989T0 


50H40  WRITE  OuTREC  FROM  NINES. 

50450  AOO  I TO  KNT. 

S0460  IF  kNT  is  less  THAN  30  60  TO  NINE-FILL. 

50470  60  TO  Close-files. 

/•  PLACE  COBOL  SOURCE  BEFORE  THIS  CARO 

//CH6.TFQIN  OU  * iSPACEX  CYLiC  1 • 1 1) 

/•  PLACE  tfo  Data  before  this  card 

//TPRiTUli  OU  0ISP>C0L0iKEEP]iV0L>SER>4F1.UNIT>TAFI 

//TPR.TU22  00  OISP>COLO>KEEP]iVOL>SEft>4FB«UNIT>TAFB 

//TPR.TPRIN  00  *iSPACE>CTRKrCl.tl]  - 

T/P  TU22  1 0100002000 

/*  PLACE  T/P  CONTROL  CAROS  BEFORE  THIS  CARO 


CM9T0 

CfBOTO 

CMOTO 

CM9Te 

1«40  COS 

T12 

TM 


6. 1.  5 66-1  COPY  ACCEPTABLE  AIRCRAFT 


//ioeo7F  JOB  01. : g.  wanb.  :iPRTy>02«tvprun>holo 

//C0807G  EXEC  PObb5L«IIME>IOiACCT>035323007 


//CHG. 

TUl4  CU  OISP>C.KEEP}.UNIT>CT4F3«1.0CFCR1.DSN>AC.9B954AO> 

CTt4  1 

// 

VOL>SER>C'>FJiAtF3iB*F3«C*F3>OAF3>E«F3>FAF3>6AF3>HAF3> 

CT14  2 

// 

I*F j.j*F3 

.K*F3iL*F3.H*F3.N«F3.04F3.P«F3.07F3>R7F3.S7F3} 

Tt4  3 

//CHG. 

TU22  CU  □ISP>C  .PASS]. UNIT>CTAFS>l>OEFER]>OSN>AE. 9895440. 

CT22  I 

// 

VUL>5ER>C'»Fb.A'»F5.B*FS>CAFS.04F5>C'»FStFAFS>8AFS.H4FB. 

CT22  2 

// 

.K*F5iL»FS.M4FSfN4FS.0«FS>P7F5>07FS>R7FS>S7FS) 

T22  3 

//LHG. 

INPUT  OU  •iSPACEICCYL.Cl.ll] 

1440  CDS 

UOUOO 

COMulliE 

compile 

0.  WAN*. 

C9B970 

UlUuO 

OATt*WRiTTEN.  b 

JXN  72. 

C9B970 

0IU50 

REMARKS. 

C9B970 

OIU60 

6b-l  COPY 

acceptable  aircraft. 

€98970 

02U00 

environment  01VlSlOi4. 

€90970 

02UI0 

CONFlOUR^TluN  SLCTION. 

C9B970 

02U20 

source-computer. 

IRH.360. 

C9B970 

02U3U 

OBjECT-tOMPuTtR. 

lHH-360. 

C9B970 

02I0U 

INPUT-Ou'^PUr  SECTION. 

C9B970 

02II0 

FILE-CONTHOL. 

€98970 

U2I20 

select  infile 

ASSIGN  TO  UT-S-TU14 

C9B970 

02130 

reserve  1 

alternate  area. 

C98970 

U21U0 

select  OUTFILE  assibn  to 

UT-S-TU2* 

C9B970 

02I5U 

RESERVE  1 

alternate  area. 

€98970 

02150 

SELECT  ACCEPT 

-file  assign  to 

OA-S-OTOl 

C9B970 

02170 

RESERVE  1 

alternate  area. 

€98970 

10000 

data  OIvISluN. 

C9B970 

10010 

FILE  SECT  ION. 

C9B970 

10100 

fo  infill 

C98970 

10120 

UECOPOING  mode  is  f 

C9B970 

10170 

GLOeR  contains  30  records 

C9B970 

1014U 

HtCoRU  CONTAINS  90  CHARACTERS 

C9B970 

10150 

LABtL  RtCOROS 

ahe  omitted 

C9B970 

10160 

data  records 

ARE  INDATA. 

€98970 

10170 

01  INOATA  SYNC. 

C9B970 

10178 

02  QATAR* 

C9B970 

loino 

03  DATAI 

picture  kk. 

C9B970 

10190 

03  TIPL 

picture  XC4]. 

C98970 

10200 

U3  DAta2 

picture  xt*). 

C9B970 

10210 

02  Sk:R-NO 

PICTURE  xcai. 

C9B970 

10220 

02  OATA^ 

PICTURE  XtlBJ. 

C9B970 

10228 

02  OATt-IN. 

C 98970 

10230 

03  DAY 

PICTURE  99. 

C9B970 

10240 

03  month 

PICTURE  99. 

C9B970 

10250 

03  teak 

PICTURE  9. 

C9B970 

10258 

02  data?. 

C9B970 

10260 

03  WUC 

PICTURE  XtSl. 

C9B970 

10270 

03  ACTION 

PICTURE  X. 

C9B970 

10280 

03  WO 

PICTURE  X. 

C98970 

10290 

03  HOW-MAL 

PICTURE  XC3). 

C9B970 

10300 

03  OATA4 

PICTURE  Xt27J. 

C98970 

10310 

03  REC-IO 

PICTURE  X. 

C9B970 

10320 

03  THM 

PICTURE  X. 

C9B970 

10330 

03  OATA5 

PICTURE  X. 

C9B970 

10340 

02  FILLER 

PICTURE  XXXX. 

C9B970 

10350 

02  0ATA6 

PICTURE  X. 

C9B970 

11100 

FU  OUTFILE 

' 

C9B970 

11120 

RECORDING  MODE  IS  f 

C9B970 

11130 

BLOCK  CONTAINS  30  RECORDS 

C 96970 

11140 

HECUHU  CONTAINS  90  CHARACTCRS 

C9B970 

11150 

LARtL  RECORDS 

AHE  omitted 

C9B970 

11160 

DATA  RECORDS  i 

ARE  OUTOATA. 

C9B970 

11170 

01  OUTUATA  SYNC* 

C98970 

11178 

02  OATAfl-OUT. 

C9B970 

11180 

03  OATAl-OuT 

PICTURE  XX. 

C9B970 

III90 

03  TYPfOUf 

PICTIWE  XI4J. 

C9B970 

11200 

03  OATA2-OUT 

PICTURE  Xtsl. 

C 96970 

J 


! 


i 


J 

1 


I 

il 


11210 

02 

SER*NO*UUT 

picture 

XCBl. 

C989T0 

11220 

02 

0ATA3-0UT 

picture 

KC18}. 

C989T0 

11226 

02 

OATfOUlc 

C989T0 

112^0 

03 

OAY-OUT 

PtCTi.lRE 

99. 

C989T0 

112H0 

03 

month-out 

PtCTiWE 

99. 

C98970 

1I2&0 

03 

yeak-oui 

PICTURE 

9. 

C98970 

Il2&e 

02 

0ATA7-0uT, 

C989T0 

11260 

03 

Kuc-our 

picture 

XT  5 2. 

C98970 

1127U 

03 

ACTlON-uUT 

PICTURE 

K. 

C989T0 

11260 

03 

WO- OUT 

PICTURE 

X. 

C989T0 

11290 

03 

HOW-Mal-OuT 

PICTURE 

XXX. 

C989T0 

11300 

03 

0ATA4-0UT 

PICTURE 

XC2T]. 

C98970 

11310 

03 

REC-:u-OUT 

PICTURE 

X. 

C98970 

11320 

03 

TH9-OUT 

PICTURE 

X. 

C989T0 

1133U 

03 

0ATA5-0UT 

PICTURE 

X. 

C989T0 

11340 

02 

joay 

PICTURE 

9999. 

C989T0 

11360 

02 

OATAo-OoT 

PICTURE 

X. 

C989T0 

11400 

fO 

ACCtPl-KlLE 

C989T0 

11410 

REC0RU1N6  mode 

IS  f 

C989T0 

11420 

SLOCK  contains 

20  RECORDS 

C989T0 

11430 

RECORD  CONTAINS 

60 

CHARACTERS 

C9SQT0 

11440 

LAPLL  HtCOROS  AKE  STANDARD 

C989T0 

11460 

DATA  RECORDS  ARE  ACCEPT-REC* 

C989T0 

11460 

01 

accept-hec  sync 

« 

C989T0 

11470 

02  ACCEPT-DATA 

PICTURE 

XCBOl. 

C989T0 

11460 

02  filler  redefines  accept-data. 

C989T0 

11490 

JD  DATA-1 

PICTURE 

999. 

C989T0 

llbOO 

ID  FILLER 

PICTURE 

XtTTI. 

C989T0 

11510 

02  filler  redefines  accept-data. 

C989T0 

11520 

UD  OATA-2 

PICTURE 

XC83. 

C989T0 

11530 

OD  filler 

PICTURE 

XCT2  3. 

C989T0 

30000 

workinc-storace  section. 

C989T0 

30010 

01 

NINl  sync. 

C989T0 

30020 

02 

FILLER 

PICTURE 

XX 

VALUE 

1991. 

C989T0 

30030 

02 

fillch 

PICTURE 

XC«] 

VALUE 

199991. 

C989T0 

30U40 

02 

filler 

PICTURE 

XC8] 

VALUE 

1999999991 

• 

C989T0 

30050 

02 

filler 

PICTURE 

XC8] 

VALUE 

1999999991 

• 

C989T0 

30U60 

02 

fillcR 

PICTURE 

XC18I 

VALUE 

C989T0 

30070 

: 9999999999999899991 , 

C98970 

30060 

02 

filler 

PICTURE 

99 

VALUE  98 « 

C989T0 

30U90 

02 

filler 

PICTURE 

99 

VALUE 

99* 

C989T0 

30100 

02 

FILLCR 

PICTURE 

9 

VALUE 

9. 

C989T0 

30110 

02 

filler 

PICTURE 

XC5] 

VALUE 

19,9991. 

C989T0 

30120 

02 

filler 

PICTURE 

X 

VALUE 

»9». 

C989T0 

30130 

02 

filler 

PICTURE 

X 

value 

19!. 

C989T0 

30140 

02 

FILLER 

PICTIWE 

XXX 

VALUE 

!999t. 

C989T0 

30150 

02 

filler 

PICTURE 

XC27] 

VALUE 

C989T0 

30160 

: 999999999999999999999999999! . 

C989T0 

30170 

02 

fillcR 

PICTURE 

X 

VALUE 

19!. 

C989T0 

30160 

02 

fillf.r 

PICTURE 

X 

VALUE 

191. 

C989T0 

30190 

02 

filler 

PICTURE 

X 

VALUE 

:9i. 

C989T0 

30200 

02 

FILLER 

PICTURE 

9999 

VALUE 

9999, 

C989T0 

30210 

02 

FILLER 

PICTURE 

X 

VALUE 

19!, 

C989T0 

30900 

01 

FOUNT 

PICTURE 

S999  COMPUTATIONAL  VALUE  ZERO 

STNC. 

C9e9T0 

30910 

01 

knt 

PICTURE 

S999  COMPUTATIONAL  VALUE  ZERO 

STNC, 

C98970 

30940 

01 

LEAP  -year-68 

PICTURE 

9 Sync  value 

9. 

C98970 

30950 

01 

LEAP-TEAR-T2 

PICTURE 

9 SYNC  VALUE 

8. 

C98970 

30970 

01 

recurus-read 

PICTURE 

9C6]  Sync  value 

ZE«0. 

C98970 

30960 

01 

RECOPUS-PASS 

PICTURE 

9C  6 1 SYNC  VALUE 

ZERO, 

C989T0 

40000 

01 

TABlE-ACCEPT-A- 

C SYNC, 

C989T0 

40U10 

02  accept-a-c 

OCCURS  2S0  TIMES  DEPENOIN,  ON  NO-ACCEPT-A-C 

C989T0 

40U20 

PICTURE 

X[83. 

C989T0 

40U30 

01 

no-accemt-a-c  stnc 

PICTURE 

899. 

C989T0 

40U40 

01 

iemp-accepy-a-c 

SYNC 

PICTURE 

XC83. 

C9e970 

40U60 

01 

INC  SYNC  computational 

PICTURE 

S999  value  <t. 

C989T0 

fHuCEOUHE  DIVISION,  C1KOT0 

OPtN-FiL’iSi.  cseiTn 

OPEN  INPUT  INFiLE.  ACCEPT-FILE.  C9B9TO 

OPEN  OUlPUT  OUTFILE.  098970 

PERFOKM  REAO-ACCEPT-OATA  thru  ENO-R-A-0.  C969T0 

REAOI.  C989T0 

KEAU  INFIlE  C989T0 

at  end  60  TO  block-check.  C989T0 

ADD  I TO  RECORDS-READ.  C989T0 

TESTl.  098970 

IF  SEK-NO  IS  LESS  THAN  TEMP-ACCEPT-A-C  SO  TO  RCADl.  C989T0 

IF  SEM-NO  IS  equal  TO  TEMP-ACCEPT-A-C  80  TO  cal -date,  C98970 

ADD  1 TU  INC.  C989T0 

IF  INC  IS  CHEATER  THAN  HO-ACCEPT-A-C  80  TO  BLOCK-CHECK,  C98970 

MOVE  ACtEPT-A-C  tINCJ  TO  TEMP-ACCEPT-A-C.  C98970 

60  ID  TEST  I.  C989T0 

CAL-DATt.  C98970 

MRITE  OUTDATA  from  indata,  C989T0 

ADD  1 TO  RECORDS-PASS,  C9B970 

GO  TO  RtADl.  C989T0 

BLOCK-CHFCK.  C989T0 
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•>2U10  COMPUTE  KOUNT  > RECOPDS-PASS  • t C RCCOROS^ASS  / Ml  • 9«1.  CM9TO 
!>2U20  IF  KOUNT  EQUAL  EERO  00  TO  CLOSE-FILESt  CM9T0 
b2U<tO  LOOPJ.  COSOTO 
52050  WRITE  OUTOATA  FROM  NINCt  COOOTO 
52060  ADD  1 TU  KOUNT.  COS9TO 
52070  IF  KOUNT  IS  LESS  THAN  30  00  TO  L00P3.  CMOTO 
52100  CLOSE-FILES.  CM9T0 
52110  CLOSE  INFILE  WITH  LOCK.  ACCEPT-FtLE  WITH  LOCK.  COOOTO 
52120  CLOSE  OUTFILE  WITH  LOCK.  COOOTO 
52140  DISPLAY  I NUMBER  OF  RECORDS  READ  I RECOROS-READ.  CMOTO 
S2150  UPON  CONSOLE.  COBOTO 
52160  DISPLAY  I NUMBER  OF  RECORDS  PASSED  1 RECOROS-PASS  COBOTO 
S2170  UPON  CONSOLE.  COBOTO 
52160  DISPLAY  ! EOJ  C9B07  1 UPON  CONSOLE.  COBOTO 
52190  GOBACK.  COBOTO 
70U00  READ-ACLEPT-DATA.  COBOTO 
70010  READ  ACLEPT-FILE  AT  END  60  TO  END-R-A-0.  COBOTO 
70U20  MOVE  DAlA-l  TO  NO-ACCEPT-A-C . COBOTO 
70U30  MOVE  2EK0  TO  KNT,  COBOTO 
70U40  RAD-1.  COBOTO 
70U50  ADD  I TO  KNT.  COBOTO 
70U60  READ  ACCEPT-FILE  AT  END  BO  TO  END-R-A-D.  COBOTO 
70070  MOVE  DATA-2  TO  ACCEPT-A-C  CKNTl.  COBOTO 
70U80  IF  KVT  IS  LESS  THAN  NO-ACCEPT-A-C  BO  TO  RAD-1.  COBOTO 
70090  MOVE  ACCEPT-A-C  Cl)  TO  TEMP-ACCEPT-A-C.  COBOTO 
70100  ENO-R-A-Dr  EXIT.  - COBOTO 
/*  PLACE  COBOL  SOURCE  BEFORE  THIS  CARO 

//CHG.TFSIN  DO  ••SPACE>CCTL.C1.1)]  lOOB  COS 


TFb  OTOl  11  0202000 

15U 

57U00231 

57000232 

57U00235 

57U0U236 

57U00237 

57U00243 

57U0U244 

57U02455 

57002456 

57O02458 

57002459 

5700246) 

570024/0 
570024/3 
570024/6 
570024 /7 
57002462 
57O024B3 
57002465 
57O024U6 
57002490 
57002491 
57002493 
57002494 
57002496 
57002503 
57002504 
57002505 
57002508 
57002509 
57002515 
57002517 
57002520 
57002524 
57002527 
57002528 
57002532 
57002533 
57002537 
57002538 
57U02540 
57002543 
57002545 
57002546 
58000760 
58000766 
56000767 
560007/2 
58000773 
580007/6 
580007/7 
560007 /8 
58000760 
58000761 
58000763 
58000765 
58000766 
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50UOO7b8 
56000792 
5BU00797 
56000900 
56000901 
56000905 
56000904 
59000002 
59000005 
59000004 
59000005 
5900000b 
59000007 
59000000 
59000010 
59000012 
59000015 
59000016 
59000016 
59000019 
59000024 
59000025 
5900002b 
59000027 
59000026 
59000050 
59000051 
59000055 
59000055 
59000045 
59000044 
59000046 
59000046 
59000051 
59000052 
59000055 
59U00054 
59000056 
59000057 
59O00056 
59U00059 
59u000b0 
59000065 
59000064 
59000065 
59000067 
59000069 
59000072 
59000074 
59000076 
59000076 
59000060 
59000062 
59000064 
59000065 
59000066 
59000090 
59000 0V2 
59000094 
590000V5 
59000096 
59000099 
59000105 
59000104 
59U00105 
59000100 
59000109 
59000110 
59U00115 
59000116 
59000119 
59000126 
59000127 
59000120 
59000150 
59000152 
59000155 
59000157 
59000156 
59000140 
59000141 
59000145 
59000144 
59000145 
59000146 
59000147 
59000149 


i 

4 
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6.  2 65-110  FILE  GENERATION  PROGRAMS 

6.2.1  65-110  SCREEN 


//CM97e  ^ 
//C««97H  ttkLC 

//CH«,rU22 

// 

//CH6* INPUT 
oouoo 
oiuno 
UlUbU 
UlU^O 
02UOO 
02U10 
U2U20 
U2u3U 
U210U 
U211U 
U212U 
U21iU 

021<i0 

U21bU 
U21tU 
U2170 
lOUUO 
lOUlO 
lOlUU 
10110 
1012U 
10I3U 
lUlHO 
lOlbU 
1016U 


01*  1 « t•PPTV>02•TVPfHJN>H0t0 

• T 1 MC>0 1 • ACC  T>02S22  SOOT 

DO  UUPK  tPASSltUNlTH  l*UCrCN3«O^>H»9#VS%i0* 

VOL>SCR>C^F&]*0Ctt>C0CN>2«TPTCHHT*CP0PT>S«^J»LAttCL>(* 
Ou  ««^ACtMCTL«CI*t3} 

COMdlNe  COMPILC  ••  PAN#* 

OAffPKlTTiU*  2V  OeC  71* 

ALMaHKS* 

bCHtcN  ub-110  UATA  TAPC* 

CNv1K0Nm(nT  division* 

CONf  UUhAIIuN  StCTlUfl* 

SOuHCC-COmPuTCP*  IbM-iAO* 

OUjLCT-CONPuTtR*  lb««*5b0* 
irb«uT*OuTPUl  SeCTlOU* 

FIcl^CONTmOi.* 

SCLlCI  INFILC  ASStiN  TO  UT*b*TU2T 

PtSLMvC  1 AkTliPNAte  AACA* 

SCLlCI  OUTFILC  ASStON  TO  Da*S*OY02 

PlSlHvC  1 AlTCANATC  AACA* 

SCLLCr  INOAfA  ASStON  TO  Da-S^O^OI 

RlSc-MvC  1 AlTCANATC  AACA* 
data  DlVlblON* 
fill  SCcTIOh. 

FU  infill 


CT2t 


I 


NeCuAul<«0  MOO€  IS  F 
bLOcK  CuNTAInS  so  alcoaos 

NCCUAU  CONTAINS  AU 
CAScL  KlCOAUS  AHC  OMITTSO 
UATa  NtCOHOS  AAt  INASC* 


ChAAACTCAS 


UbO  cos 

Cf0070 

Cf0«70 

C#0f70 

C90070 

C00970 

C00070 

COA#70 

C#0970 

C9S070 

C00070 

c#ao7o 

C##970 

C9#970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 


lOtTO 

01 

INOtC  Srf'C, 

€90970 

1016U 

02 

TlPt 

PlCTvJHi 

XCol. 

€90970 

I0I9U 

U2  DATmI. 

€90970 

101<l« 

03 

Fiueo 

PtCTUMt 

MC291. 

€90970 

1019% 

03 

**c 

PICTURE 

1. 

€90970 

I019ti 

03 

FlUEM 

RICTURt 

Xt9). 

€90970 

10190 

03 

■oc 

RICTUHC 

XISJ. 

€90970 

1 

10^09 

02 

SCP-NO 

PicruHi 

1(0). 

€90970 

lo^io 

02 

0ATA3 

PICTURE 

MI. 

€90970 

10^12 

02 

FlLtiM 

PICTURE 

11X1. 

€90970 

1U21* 

02 

OATaA 

RICTURE 

X. 

€90970 

1 

10220 

02 

TCAH 

PICTURE 

99. 

€90970 

4 

1022S 

10^29 

10^27 

IU22« 

102^0 

102A1 

10232 

10233 
1U2  3A 
102  3S' 


02 

U2 


U2  OAT 
02 


TtAnC  AtOCFlNeS  TCAM  PICTUAC  KX* 

FiLLCM  ACOCFINCS  TSAA* 

03  FlLLCP  PICTUK(  X* 

03  TLAMI  PICTUHC  9* 

PlCIUHC  999* 


U2 


U2 


CATC  RCOCFlNeS  OAT 
FILwCM  MCOeFlNCS  OAT* 
03  FlCLCH 
03  0AT2 

FILlCm  HCOLFK^S  OAT* 


PICTUAC  XXX* 

PICTUNC  a* 
PICTUHC  99* 


C96970 

€90970 

€96970 

€90970 

€90970 

€90970 

€90970 

€90970 

€90970 

€90970 


1023b 

»i  filler 

ricturc  MX. 

€90970 

1U237 

Qi  OXTl 

RICTURE  R. 

€90970 

102A0 

U2 

CATA» 

RICTURE  XX. 

€90970 

10300 

FU 

outftlc 

€90970 

10310 

RECUPUIN*  MODE 

IS  F 

€90970 

10320 

BLOCA  CURTAINS 

bo  RECORDS 

€90970 

10330 

RECO'>U  lONTXINS 

«0  CNMKTfRS 

€90970 

103110 

LARLL  RtCOROS  are  stanoaro 

€90970 

10350 

DATA  NECONnS  ARE  OUTREC. 

€90970 

10350 

01 

OUTmLC  bTNC* 

• 

€96970 

10370 

02 

TTPt-OUl 

PIC  tune  XI  m. 

€90970 

10300 

02 

OATAl-OUT 

PICTURE  XC^«}^ 

€90970 

10390 

02 

SCR-OUT 

PICTURE  XC*I. 

€90970 

10«00 

02 

oata*-out 

PICTURE  MX. 

€90970 

10«10 

02 

JDAT-OUr 

PICTURE  00*0. 

€90970 

10A20 

02 

DATAA-OuT 

PICTURE  M. 

€90970 

10A30 

02 

TCAH-OUI 

PICTURE  00. 

€90970 

10««0 

•2 

0AT-'>UT 

PICTURE  900. 

€96970 

10«50 

02 

oatas-out 

PICTURE  XX. 

€96970 

UUOO 

ru 

INPATA 

€90970 

iiuio 

HICC^^UInO  MOOC 

IS  F 

€96970 

UU20 

ALOiV  CONTAINS 

20  RECORDS 

€96970 

UU30 

HCCUAU  CONTAINS 

00  characters 

€90970 

uo«o 

lapll  pccoaos  ANC  stanoaro 

€96970 

UU50 

DATA  HiCOPOS  ARC  OATA«|N* 

€90970 

11100 

01 

DATA-IN  STNC. 

€90970 

11110 

02  SCHLEN-OATA 

-IN  PICTURE  XIROJ. 

€90970 

11120 

02  filler 

REDEFINES  SCRCENM>ATA-tN. 

€96970 

11130 

92  OATA-I 

PICTURE  II *J. 

€90970 

lllAO 

03  filler 

PICTURE  XC70I. 

r9A970 
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U_!UL..  -J  . "P 


11150 

02 

filler 

REDEFINES 

screen-data-in. 

11160 

33  OATA-2 

PICTURE 

99. 

11170 

03  FILLER 

PICTURE 

XCTOI. 

11180 

02 

FILLER 

REDEFINES 

screen-data-in. 

11190 

03  TAIL-NO 

PICIURE 

XCOl. 

11200 

03  FILLER 

PICTURE 

2(72). 

30U00  «0HK1N6>ST0MA6E  SECTION. 

30200  01  YEAH-UAYS  SYNC. 

30210  02  filler  picture  9999  VALUC  0. 

30220  02  FILIEH  PICTUPE  9999  VALUE  365. 

30230  02  FILLER  PICTURE  9999  VALUE  T30. 

30290  02  filler  PICTURE  9999  VALUE  1095. 

30250  02  filler  picture  9999 

30260  02  FILIER  PICTURE  9999 

30270  02  filler  PICTURE  9999 

30280  02  filler  PICTURE  9999 

30300  01  TABLE-TLAR-OAYSf  REDEFINES  YEAR-OAVS  SYNC. 

30310  02  NDAy.  occurs  0 TIMES. 

30320  PICTURE  9999. 

30400  01  RECORdS'REAO  picture  9(61 

30410  01  KOUTT  PICTURE  S999 

30420  01  JOAY  PICTURE  9(41  VALUE  ZERO 

30430  01  RECOROS-PASS  PICTURE  9(61  VALUE  ZERO 

30500  01  a-c.type  sync  picture  X(4l. 

30510  01  LOV.S-N  SYNC  PICTURE  XCOl. 

30520  01  hioh-s-n  sync  Picture  xcoi. 


VALUE  1961. 
VALUE  1026. 
VALUE  2191. 
VALUE  2556. 


VALUE  ZERO  STNC.  . 

VALUE  ZERO  COMPUTATIONAL  SVNC. 


SYNC. 

SYNC. 


30b40 

01 

NO«A«C 

PICTURE  «C. 

30b90 

01 

NIN'.  bYNC* 

30b00 

02 

riLLFH 

PICTURE 

X(4l 

VALUE 

X9999X* 

30610 

02 

flLLtH 

PICTURE 

XC34] 

VALUE 

30620 

$99999999999999999999999999999099991 • 

30630 

02 

FllLCK 

PICTURE 

xcei 

VALUE 

:9999CC991 

30o40 

02 

FlUEK 

PICTURE 

Kg 

VALUE 

199:. 

306b0 

02 

FILlEM 

PICTURE 

9999 

value 

9999. 

30o60 

02 

flLlEK 

PICTURE 

X 

VALUE 

191. 

30670 

02 

rULEH 

PICTURE 

99 

VALUE 

99. 

306B0 

02 

FILLEK 

PICTURE 

999 

VALUE 

999. 

30o90 

02 

FlUEK 

picture 

XX 

VALUE 

1991. 

3C7bO 

01 

TAP'.e-PkvNHS-N 

SYNC. 

30760  02  RLJ-S-N  OCCURS  25  TIMES  0CPENOIN6  ON  NO«A>C» 

30/70  PICTURE  KtOJ. 

3IU00  01  MC-rUC-rEC  SYNC. 

31U10  05  MC-1  PICTURE  X. 

3IU20  05  PERIOOIC-INSP  PICTURE  X(S1. 

3IU30  05  filler  picture  XC91. 

3IU40  05  MC-2  PICTURE  X. 

3IU50  05  HHLT-P-F-INSP  PICTURE  XC51. 

31060  05  filler  picture  XC691. 

50000  PROCEOI.hE  division. 

50010  0PtN-F?LE5. 

50020  OPEN  INPUT  INFILE.  INOATA, 

50O30  OPEN  OUIPUT  OUTFILE. 

50035  PEFFORM  SCREEN-UATA  THRU  ENO-S-0. 

50040  REAUl. 

50050  REAU  INFILE 

50060  A I END  00  TO  BLOCK-CHECK. 

50070  ADD  I TO  REC0RU5-KEAn. 

50080  IF  TIPC  IS  NOT  tOUAL  TO  A-C-TYPE  00  TO  READl. 

50090  IF  UAY  IS  EUUAL  TO  ZERO  CO  TO  REAOl. 

50100  IF  SER-NO  IS  EQUAL  TO  SPACE  GO  TO  REAOl. 

50110  IF  SEN-NO  IS  LESS  THAN  LOV-S-N  GO  TO  REAOl. 

50120  IF  SER-NO  IS  GRLATEH  THAN  HIGH-S-N  CO  TO  KEAOl. 

50200  SCREEN-s-N. 

50210  M07L  2LR0  TO  KOUNT. 

50220  REPEAT-TEST. 

50230  ADU  I To  KOUNT. 

50240  IF  SER-nO  equal  TO  REJ-S-N  (KOuNTl  CO  TO  READl. 

50250  IF  KOUNT  IS  LESS  THAN  NO-A-C  CO  TO  REPEAT-TEST. 

50300  CALCULATE-J-OAY. 

50302  IF  yEARl  is  less  THAN  1101  ADO  60  YEARl  ClVlNC  YEAR, 

50305  IF  yeahc  is  not  Greater  than  icoi  co  to  reaoi. 

50310  COMPUTE  KOUNT  > YEAR  - 69. 

50322  IF  OAYC  IS  LESS  THAN  I 101  MOVE  OAYt  TO  DAT. 

50324  IF  UAYC  IS  LESS  THAN  1 1001  MOVE  OAYC  TO  OAV. 

50330  COMPUTE  JOAY  > OAY  < NDAY  ( KOUNT 1. 

50340  IF  «UC  IS  EQUAL  TO  SPACE  THEN  PERFORM  INSERT-MUC. 

50400  VRITEI. 

50410  MOVE  TIPC  TO  TYPE-OUT. 

50420  HCVL  OATAl  TO  OATAl-OuT. 

50430  MOVE  SER-NO  TO  SER-OUT. 

50440  MOVL  UAIA3  TO  OATA3-OUT. 

50450  MCVL  JOAY  TO  JOAY-OUT. 

50460  MOVL  UATA4  TO  OATA4-OUT. 


C909T0 
090970 
C989T0 
C90970 
C90970 
090970 
090970 
C96970 
C96970 
C96970 
C90970 
C90970 
090970 
C90970 
090970 
C90970 
C90970 
C9S970 
090970 
C9S970 
C9S970 
C90970 
090970 
090970 
090970 
090970 
090970 
090970 
C90970 
C909T0 
090970 
090970 
090 970 
C90970 
090970 
C90970 
C90970 
C90970 
C90970 
C909T0 
C90970 
C90970 
C90970 
C90970 
C90970 
C90970 
C90970 
C90970 
C90970 
C90970 
C90970 
C90970 
C90970 
090970 
C90470 
C90970 
C90970 
C90970 
C90970 
C90970 
C90970 
C90970 
C90970 
C90970 
C40970 
C90970 
C90970 
C90970 
C90970 
C90970 
090970 
C90970 
C90970 
C90970 
C90970 
C90970 
C90970 
090970 
C90970 
C90970 
C90970 
C90970 
C90970 
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50*70  MOVL  YE*R  TO  YEAR-OUT, 

50*80  HOVE  U*Y  TO  OAY-OOT. 

50*90  MOVE  UArA5  TO  DATA5-0UT, 

50500  WRITE  OUTREC. 

50510  ADO  1 TO  RECORDS-PASS, 

50515  It  HECOkOS-PASS  IS  GREATER  THAN  iOO  00  TO  BLOCK-CHECK. 

50520  or  TO  HeADI. 

50600  BLOCK-CHECK, 

50610  COMPUTE  KOUNT  > RECOROS-PASS  - CCRCCOROS-PASS  / SOI  • SOI, 

50620  It  KOUItl  EQUAL  2ER0  60  TO  CLOSE-FILES, 

506*0  LOOPl, 

50650  write  OUTREC  FROM  NINE, 

50660  ADD  1 TO  KOUNT. 

50670  ir  KOUNI  IS  LESS  THAN  sO  THEN  00  TO  LOOPl. 

50B00  CLOSE-FILES. 

50810  CLOSE  INFILE  WITH  LOCKi  INQATA  WITH  LOCK. 

50B20  CLOSE  OUTFILE  WITH  LOCK. 

508*0-  - display  ! NUMBER  RECORDS  READ  t RECOROS-REAO  UPON  CONSOLE. 

50850  display  : NUMBER  RECORDS  PASS  t RECOROS-PASS  UPON  CONSOLE. 

50860  DISPLAY  : EOJ  4897  I UPON  CONSOLE. 

50870  GIPACK. 

51U00  SCREEN-uATA. 

51U10  read  INUAtA  at  end  go  to  end-s-d. 

51U20  MOVE  UAfA-l  TO  A^-TYPE. 

51U50  R'AO  INUATA  AT  ENU  GO  TO  ENO-S-0. 

51U60  MOVE  UAtA-2  TO  NO-A-C. 

51U70  MOVE  2EK0  TO  KOUNT. 

51UB0  S-U-1. 

51U90  ADO  1 TO  KOUNT. 

51100  REAU  INUATA  AT  END  GO  TO  END-S-O. 

51110  MOVE  TAIL-NO  TO  REJ-S-N  CKOUNTl. 

51120  I-^  KOUNI  IS  LESS  THAN  NO-A-C  GO  TO  S-D-l. 

51130  REAU  inuata  at  end  go  to  END-S-D. 

511*0  MOVE  TAIL-NO  TO  LOW-S-N. 

51150  KcAu  inuata  AT  END  GO  TO  END-S-O. 

51160  MOVE  TAIL-NO  TO  HIGH-S-N, 

51170  REAU  inuata  INTO  MC-WUC-REC  > AT  END  GO  TO  ENO-S-0. 

51190  ENO-S-0.  EXIT. 

SOUOO  INSERT-wUC. 

80U10  IF  MC  IS  equal  to  MC-1  THEN  MOVE  PERtOOtC-tNSP  TO  HUC» 

80020  IF  MC  IS  EQUAL  TO  MC-2  THEN  MOVE  HRLY-P-F-tNSP  TO  HUC> 

/*  PLACE  COBOL  SOURCE  BEFORE  THIS  CARD 

//CHG.TFgIN  do  w.SPACEICCYLtCltl JI 

00000  GET  TF6  BANG 

01 000 I 019994  replace 

TFG  DTOl  11  0202080 

F106  A-C  type 

13  NUMBER  REO  A-C 

5700023* 

57000239 

570002*0 

57001523 

57002507 

57002513 

57002516 

57002519 

57002523 

57002529 

58000745 

59U00061 

59000150 

57000001  LOM  S-N 
59999999  HIGH  S-N 
C03900  U03300 

•END 

/•  PLACE  TFG  DATA  BEFORE  THIS  CARO 

//TPR,TU22  DO  DISP>[OLO«KEEP1>VOL>SEP>*P5>UNIT>T*PS* 

//  OCa>COEN>2>rRTCH>ET>EROPT>SNP]>LAaeL>t«NLl 

//TPR.TPRIN  DO  •.SPACE>CTRK,[1,1 JJ 

T/p  oToi  loiooaozoso 
T/P  DT02  10200602060 

/•  PL.ICE  T/P  CONTROL  CAROS  BEFORE  THIS  CARO 


C98970 
C 98970 
C 98970 
C90970 
C98970 
C90970 
C 98970 
C 90970 
C90970 
C90970 
C90970 
C98970 
C90970 
C90970 
C90970 
C90970 
C90970 
C90970 
C 90970 
C90970 
C90970 
C90970 
C90970 
C90970 
C90970 
C90970 
C90970 
C90970 
C90970 
C90970 
C90970 
C90970 
C90970 
C 90970 
C90970 
C 98970 
C90970 
C 90970 
C98970 
C98970 
C989T0 

1**0  COS 

C9G970»T 

*T 


CTII 
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Ik. 


6.2.2  65-110  SORT 


//I9e9TL  JOB  01.:  G.  wANo  :.PRTY>a2.TYPRUN>H0LD 
//C9897S  EYEC  P9b2?N,  ■<>  199.  T |ME>03.  ACCT>035J2300T 

//CHG.SORIIN  DO  OISP>C  .KEEP].UNIT>tT^Fb.I.OEFeRl.  CT22  1 

//  CSN>»E.9B9b41b.  CT22  t 

//  VOL>SER>C ♦Fb.A*F5.8*F5,C*F5.0*F5.E*F5.F*F5»6»F5.M*F5.  CT22  3 

//  I*Fbi  J*F5.K*FbiL*F5.M*F5.N4.F5.04'F5.P«F5.0*E5»R*F5.S*F51,CT22  9 

//  OCB>CLRECL>U0b0.PLKSIZE>30001.LAeeL>C.NSL.RETPD>099] 

//CHG.SORTbuT  DO  OISP>C •KEEP].UNtT>CT*F1.1.0EFER}.0bN>*A.9695«2b>  CT12  1 

//  V0L>SER>C*Fl,A*FT,8*Fl,e*F1.0*Fl.E«Fl,F»F1.6*Fl.H*Fl.  CT12  t 

//  I*F1.J*F1.K*F1.L*F1«H*F1,N*F1.0*F1.P*F1.8*F1,R*F1.S»F1 J,CT12  3 

//  OCB>CLRECL>UObO>BLKSIZE>3aaO) 

//CHG.SYSIN  00  •.OCB>8LKSIZE>Oaao.SPACE>(TRK.tItlll 

SORT  FlElOS>cn39.008.CH.A.a<«9.a0H.CH.A.0S9.001.CH.A.03«.005.CH«A>  C 
029.008.CH.A.aol.a28.CH.A.a30.00«>CH.AJ.SI2E>E0500000 
MOOS  E15>tElb.008.S0RTLI8.N].E18>tei8.02«.S0RTLIB.NJ 
/» 

//C989TP  EYEC  C9b03N. T IME>01 • ACCT>03S32210T 

//ChG.TUIZ  00  OISPK  .KEEPl.UMITKT^Fl.l.DEFERltOSNbAA.RSRS^tS.  CTlf  1 

//  V0L>SER>C*Fl,A*Fl,B*Fl,e*F1.0»Fl.E9Fl,F*Fl.#AFl.M4Fl.  CT12  2 

*f  I*Fl.J*Fl.K*Fl.L*Fl.M»Fl.W»F1.0*Fi.P»Fi.0*Fl.R+Fl.SAril  T12  3 

//CHG.TPRIM  00  *.SPACE>tTRK.tl.lll 

T/P  TU12  10200b0Z0bO 

/•  PLACE  T/P  CONTROL  CAROS  BEFORE  THIS  CARO 


I 


6.2.3  65-110  MERGE 


//C9897N  JuB  01.;  G.  wAMb.  : .PHTY>02.TYPRUN>HOLO 

//C9897  EXEC  P9hcSN. riMt>03.*CCI>03b323007 

//CHG.SOHTINOl  Du  OISP>t . KEEP 1.UN1T>C AAFb. 2. DEFER J,ObN>*E. 9895*25.  CT22/23 

//  VOL>SLR>C ♦Fb.A*Fb.B*Fb.C*F5.0*Fb.E*F5»F*F5»G*F5.M*Fb»  CT22 

//  I*F j.J*FS.K*Fb.L*Fb.M*Fb.N*F5.0*F5.P*F5.0»F5.H*F5.S»F5J.eT22 

//  OCd>CLnLCL>U0b0.HLKbIZE>3000).LA8EL>t .NbL.PETP0>fl99 } 

//tHG.S0RIIN02  00  0ISP>C  .KEEP]. UNIT>CA+FT. 2. OEFERJ,OSN>*G. 9895*25.  CT2*/25 

//  V0L>SER>C+F7.A*F7.8*F7.C*F7.04F7»E*F7,F*FT»G»F7.MafT.  eT2* 

//  I+F/.J*F7.K+F7.L4F7.M*F7.N+F7.0*FT.P*F7.Q*F7.R*F7.S*FT).eT2* 

//  Ctri>CLRCCL>U0b0.HLKSIZE>3000).LABEL>t.NSL.RETPO>099) 

//CHG. SORTINGS  DO  OISPX  .KEEP]. UNlT>tA4F3. 2. OEFERJ,OSN>*C. 9895*30.  CTl*/15 

//  VOL>SER>t ♦F3.A*FS.B*F3.c*F3.0*F3.E«F3.F*F3.6*F3.H*F3.  CTl* 

//  I<FJ.J-.F3.K*F3.L*F3.M*F3.N*F3.0*F3.P*F3.Q*F3.R*F3»S*F3].CT1* 

//  OCQ>CLRCCL>OOb0.BLKSIZE>30OO].LA8EL>t.NSL.RETPD>099] 

//CHG.SORTJuT  00  OISP>t .KEEP]. UNlT>tA*Fl. 2. OEFERJ,OSN>*A. 9695*30.  CT12/13 

//  VOL>SER>t*Fl.A*Fl.B*Fl,C*Fl»0*Fl.E*Fl,F*Fl.B*Fl.H*Fl.  CT12 

//  1.Fi.J*f1.K*F1.L*F1.M*f1.N*F1.0*F1.P«F1.Q*Fi.R*FI.S*F1 J.CT12 

//  OC8>(LRECL>0060.BLKSIZE>3000] 

//CHG.STSIJ  DO  •.OCB>bLKSI2E>0080.SPACE>tTRK.[l.l]] 

MERGE  F1F'.OS>C039.008.CH.A.o*9.00*.CH.A.o59.001.CH.A.03*.005.CH.A.  C 

029. 001. CH. A] 


/• 


6.  2.  4 65-110  ELIMINATE  DUPLICATE  RECORDS 


//C9897P  JOB  01.;  WANG  : .PHTY>02.TYPRUN>MOWO 

//C98970  JOB  01.;  G.  WANG  ; .PRTY>02.TYPRON>HOLO 
//C98970  EXEC  P9bb5L. T1ME>10.*CCT>OS5323007 

//LHG.TUiZ  DU  01SP>C  .PASS]. UNiTKTAFl.l. DEFER]. OSN>*A. 9895*30. 

//  VOL>StR>C ♦F1.A*FI.B»F1.C»F1.0AF1.E*F1,FaF1.6*F1.Maf1. 

//  I.FI. j.Fl .K.Fi.L+F1.MaF1.N*F1.0*F1.Pafi.Q*Fi.R*F1.s*FI J 

//LHG.TUl*  DO  OJSPXC .PASS]. UNlT>tTAF3.1.0EFERJ.0SN>*C, 9895**0. 

//  VOL>SER>t ♦FJ.A*F3.BAF3.e*F3.0AF3.E*F3.F*F3.«*F3.M*F3. 

//  l*Fj. j*f 3.K.F3.L*F3.M*F3.NaF3.0*F3,P«F3.0*F3.R*F3»S*F3) 

//CHG. INPUT  DO  ♦.bPACEXCCYL.tl .1 J] 

OOUOO  COMBINE  compile  9.  WANS. 

OlUbO  OAlE-WPlTrF'..  27  DEC  71. 

OlUbO  RLMARKS.  program  sifts  65-110  FILE  TO  ELIMINATE  DUPLICATE 
0IU70  AOJAClNI  RECORDS. 

02000  environment  DIVISION, 

U20I0  ccnfiguhaiion  section, 

02U2U  SOURCE-LOMPoTER.  IOM-360, 

02030  ObJECT-COMPuTER.  lHM-360. 

02100  It'PUT-OuTPUt  SECTION. 

02110  file-control. 

02)20  select  infile  assign  to  UT-S-TU12 

02130  RESERVE  I alternate  AREA,  ■ 

021*0  select  OUTFILE  ASSIGN  TO  WT-5-TU1* 

02150  reserve  1 alternate  AR.-A, 


CT12  1 

CT12  2 

T12  3 

CTl*  1 

CTl*  2 

Tl*  3 

1**0  COS 

C989T0 
C969T0 
C969T0 
C989T0 
C969T0 
C969T0 
C989T0 
C98970 
C989T0 
C98970 
C98970 
C989T0 
C989T0 
C969T0 
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louoo 

louio 

10U20 

10U30 

10U40 

lOUSO 

10U60 

lOUTO 

looso 

10100 

10110 

10120 

10130 

10140 

lOlSU 

10160 

30U0O 

30010 

30020 

30030 

30040 

300S0 

30060 

SOUOO 

SOOIO 

&0020 

50030 

50040 

50050 

50060 

50070 

SOOSO 

50090 

50100 

50110 

50120 

50125 

50130 

50140 


DATA  DIVISION. 

f;le  section. 

FP  INFILt 

RECORD I NO  MODE  IS  F 

BLOCK  CONTAINS  50  RECORDS 

HECOHU  CONTAINS  60  CHARACTERS 

LARlL  HbCORUS  are  OMITTED 

DATA  records  ARL  INRCC. 

01  INRbC  PICIURE  XC601  SYNC. 

FP  OOTF ILE 

RECORDINQ  MOPE  IS  F 

BLOCK  contains  50  RECORDS 
RECORD  CONTAINS  60  CHARACTERS 

LABbL  HlCORDS  Are  OMITTED 
DATA  records  are  OUTREC. 

0.  OUTrEC  PlCruRE  n601  SYNC. 

m'yikinc-stonage  section. 

01  NUHdER-UUPS  picture  91071  SYNC. 

01  TEMpRbC  PICTURE  KC60I  SYNC. 

01  NINES  SYNC  PICTURE  Xt60)  VALUE  19*99999999 

: 999999999999999999999999999595V59W999M999»»999V9  I . 

01  RECORUS-PASS  SYNC  PICTURE  917 1 VALUE  ZERO. 

01  knt  Computational  sync  picture  s999  value  zero. 

PIOCEOURC  DIVISION. 

BFeiN. 

OPEN  INPUT  INFILE. 

OPEN  OUTPUT  OUTFILE. 

MOVL  zero  to  NUMBER'OUPS. 
read  inf ILE 

AT  end  60  TO  CLOSE«FILES. 

MOVE  INREC  TO  TEMPREC. 

REAU  INFILE 

A I end  60  TO  CLOSE-FILES. 

COMPARE . 

IF  INREC  > TEMPREC  60  TO  COUNT-OUPS. 

WRllE  OUTREC  FROM  TEMPREC. 

ADO  1 TO  RECORUS-PASS. 

MOVE  INREC  to  TEMPREC. 
head  INFILE 


SOISO  AT  end  60  TO  WRITE-LAST. 

50160  GO  TO  compare. 

50170  COuNT-DUPS. 

50175  IF  INREC  IS  EQUAL  TO  NINES  60  TO  BLOCK-CHECK. 

50180  ADD  1 TO  NUMBER-DUPS. 

50190  READ  INFILE 

50200  AT  end  GO  TO  WRITE -LAST. 

50210  60  TO  compare. 

50220  WRITE-LaSI. 

50230  write  OUTREC  FROM  TEMPREC. 

50235  ADD  I TO  RECORDS-PASS. 

50240  CLOSE-FILES. 

50250  CLOSE  INFILE  WITH  LOCK. 

50260  CLOSE  OUTFILE  WITH  LOCK. 

50270  display  !N0.  DUPS  S NUMuER-OUPS  URON  console. 

50280  DISPLAY  :EOJ  9847  : UPON  CONSOLE. 

50290  60RACK. 

50400  R.OCK-ChECK. 

50410  COMPUTE  KNT  > RECORDS-PASS  - RECOROS-PASS  / SO  • SO. 

50420  IF  knt  is  equal  TO  ZERO  Qo  TO  CLOSE-PILES. 

50430  nine-fill. 

S0440  WRITE  OUTREC  FROM  NINES. 

50450  ADO  I TO  KNT. 

50460  IF  knt  is  less  THAN  50  60  TO  NlNE-PlLL. 

50470  60  TO  CLOSE-FILES. 

/•  PLACE  COBOL  SOURCE  BEFORE  THIS  CARO 

//CH6.TF6IN  DO  •tSPACOCCYLtC  It  111 

/•  PLACE  TF6  data  BEFORE  THIS  CARO 

//TPR.THa  DO  OISP>COLOtKECPI>VOL>SCR>«Fl>UNIT>TFPt 

//TPR.Tl'l4  DO  OISP>COLO>KEEPl>VOL>SCR>FP5tUNIT>TFPS 

//TPR.TPHIN  DO  •/SPACOITRK.Il.ll) 

1/P  TU14  1010060Z0G0 

/•  PLACE  T/P  CONTROL  CAROS  BEFORE  THIS  CARO 


C989T0 
C98970 
C98970 
C98970 
C989T0 
C989T0 
C98970 
C98970 
C98970 
C989T0 
C989T0 
C989T0 
C98970 
C989T0 
C9S970 
C989T0 
C98970 
C989T0 
096970 
C98970 
096970 
C98970 
C96970 
C96970 
C96970 
C96970 
C969T0 
C96970 
C969T0 
C96970 
C98970 
C98970 
C96970 
C98970 
C96970 
C96970 
C 96970 
C98970 
C98970 
C98970 
C98970 
C96970 
C98970 
C98970 
C98970 
C98970 
C98970 
C96970 
C98970 
C98970 
C98970 
C96970 
C96970 
C98970 
C98970 
C 96970 
C98970 
C96970 
C96970 
C96970 
C96970 
C96976 
C96970 
C9S9T0 

1966  COS 

Tit 

TI9 
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6,  2.  5 65-110  COPY  ACCEPTABLE  AIRCRAFT 


//C9a9Tt'  JOB 
//t.9897  IXEC 
//CHG.TU12 
// 

// 

//CHG.TUU 

// 

// 

//CHG, INPUT 
OOUOO 


OltlG,  HANG  l.PHTT>a«»TrPmM>NOtO 
P9b^HiTIMC>Ob>*CCT>OS9S2SOOT 

OU  OlbPX  iP*SS]>UNlT>CT*Fl>l<0m«l>DSM>**.9MMSS*  CT12 
VOL>SER>t*Fli**F1.6*Fl>CAPl>0«Fl*e»21>F*Pt>»*Pl«N«Fl»  CT12 
I>T  1 tJ*Fl>KtFl>L*Fl«M*FI>N*Ft>0«Fl»P*Fl»a«FltR*Fl»S*^ll  T12 
OU  UISP>[  •P*SSJ>UNIT>lT*FS>l»WFeilJ»l>SN>»C.«M9«««»  CT1« 
VUL>SCR>l*FJ.A*FSi8*FS.C«FS*0*FS>e«FS«F«FS«a*FS»N«F>»  CTl« 
I*FbiJ«FS>K*FS>L*FS«M*F9>N«FS>OAFS»P*FS»aAF3»R*FS»S«F»l  Tl« 


NPUT  ru  •■SPACLXCTLdldl] 

CO'^JlNE  COMPILE  a.  MANt. 

UAIl-MPITTEN.  29  OEC  TU 
f^CMANKS  a 

6b-ll0  COPT  ACCEPTABLE  AIRCBAFT# 
environment  division. 

COr^IGUHAIIuN  SECTION. 

SOuMCE-COMPuTER  . IBM-M>a. 

OBjECT-COMPuTER.  IBM»J6a. 
iN*»UT-OuTPJI  section, 

'Ill-control. 

select  infile  ASStaN  TO  UT-S-TUl* 

reserve  I alternate  area. 


la«a  cos 
caaaTa 
coaoTo 
caaora 
caaara 
caaara 
caaara 
caaara 
caaara 
caaara 
caaara 
caaara 
caaara 


02140 

select  OUTFILE 

ASSiaN  ro  uT-s-n*it 

caaara 

021S0 

RLSeRvE  1 

alternate 

ARC  A a 

caaara 

02160 

SELECT  ACCEPT- 

FILE 

ASSIBN  ro  im-sh>tsi 

caaara 

02170 

rlslRve  I 

alternate 

AREA. 

caaara 

iOUOO 

'>ata  division. 

caaaro 

10010 

FlLt  section. 

caaara 

10100 

AO 

infill 

caaara 

10110 

caaara 

10120 

RCCOAUl'aO  MODE 

IS  F 

caaara 

10130 

«lOC4  Contains 

t>0  RECORDS 

caaaro 

10140 

RECuRU  cOf^TAlNS  6U 

characters 

caaara 

lOlbO 

label  records 

AhE  ONITTEO 

caaaro 

10160 

data  RECORCIS  ARL  INREC. 

caaara 

10170 

01 

INAlC  StNC, 

caaaro 

loiao 

02 

TiPt 

PICTURE 

«(«}. 

caaara 

lOlOO 

02  TAfAl. 

caaara 

10192 

03  FILLCA 

PICTURE 

xcsal. 

caaara 

lom 

03  “C 

PICTURE  1, 

caearo 

10196 

03  FRLEA 

PICTURE  acal. 

caaaro 

10196 

03  "UC 

PICTURE 

XCSl. 

caaara 

10200 

•2 

SER*N0 

PICTURE 

»01. 

caearo 

10210 

02 

0ATA3  . 

PICTURE 

AX. 

caaara 

10212 

02 

flLLf.H 

PICTURE 

XlltX. 

caaara 

10214 

02 

0ATA4 

PlCTtJRE 

X. 

caaara 

10220 

02 

team 

PICTURE 

aa. 

caaaro 

ir22> 

or  tearc  redefines  tear 

1 PICTURE 

XX. 

caaara 

10226 

Ot  FieLEr  redefines  tear. 

caaaro 

10227 

03  FILLER 

PICTURE 

X. 

caaara 

10226 

03  7EAHI 

PICTURE 

a. 

caaara 

10230 

02 

oat 

PICTURE 

aaa. 

caaara 

10231 

or  OATt  redefines  dat 

picture 

XXX. 

caaaro 

10232 

or  filler  redefines  oat 

• 

caaara 

10233 

Oi  filler 

picture 

X. 

caaara 

10234 

03  0Ar2 

picture 

aa. 

caaara 

1023b 

or  filler  redefines  oat 

» 

caaaro 

10236 

oj  filler 

PICTURE  XX. 

caaara 

I023T 

03  DATI 

picture  a. 

caaara 

10240 

02 

DAT  AS 

PICTURE 

XX. 

caaaro 

10300 

FU 

OUTFILE 

caaaro 

10310 

RECuRUiNG  MODE 

IS  F 

caaaro 

BLOCK  contains  bO  RECORDS 
RtCOTU  CONTAINS  60 

lapll  recorus  Are  omitted 
data  mlcomos  are  outrec. 

OUThIC  bTNC. 


characters 


01  OUThCC  bT 
02  TTPL-UUI 
-2  OATAI-CuT 


PICTURE  *tal. 

PICTURE  visa], 

02  SLP-Oul  PICTURE  Kalf 

02  OATA.S-OuT  PICTURE  »*, 

02  joat-oui  PICTURE  aaaa. 

>.2  OATAR-OuT  PUT’IRE  », 

02  tean-out  picture  aa, 

02  o*T-out  PICTURE  aaa. 

02  OATAb-OUl  PICTURE  «M. 

FJ  ACCLPI-I  ILt 

RECORUING  mode  IS  F 

BLOCK  contains  20  RECORDS 

RECuRU  CONTAINS  80  CHARACTERS 

label  records  are  standard 
DATA  records  ARL  ACCEPT-REC, 

01  ACCEPI-mEC  stnc. 

02  ACCtPl-DATA  picture  (8 

02  filler  RCOCFINCS  accept-dat  . 


caaara 

caaara 

caaara 

caaara 

caaara 

caaara 

caaara 

caaara 

caaara 

caaara 

caaara 

caaara 

caaara 

caaara 

caaara 

caaara 

caaara 

caaara 

caearo 

caeare 

caaara 

caaara 

caaara 
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11400 

03 

OATA-1 

PICTURC 

009. 

11500 

03 

Filler 

PICTURC 

XtTTl, 

1I5I0 

02  filler  redefines  ACCEPT-i 

DATA. 

11520 

03 

DaTA.2 

PICTURE 

XtBl. 

11530 

03 

FILLER 

PICTURE 

XCT2J. 

30000 

working-storage  section. 

30200 

01 

yeah-uays  sync. 

30210 

02 

filler 

PICTURE 

0000 

VALUE 

0. 

30220 

02 

filler 

PICTURE 

0000 

VALUE 

365. 

30230 

4p2 

filler 

PICTURE 

0000 

VALUE 

730. 

30240 

02 

FILLER 

picture 

0000 

VALUE 

1005. 

30250 

02 

FILLER 

PICTURE 

0000 

VALUE 

1461. 

30260 

02 

FILLER 

PICTURE 

OOflO 

VALUE 

1826. 

30210 

C2 

filler 

PICTURE 

0000 

VALUE 

2101. 

30200 

02 

FILLER 

PICTURE 

9009 

VALUE 

2556. 

JOiOO 

30310 

30320 

30«00 

30<»I0 

30«20 

30«30 

30MO 


01  T4S(.E-rEM-0ArS«  REDEFINES  rEAR-0*TS  SYNC. 


02  NOAY>  OCCURS 


01 

01 

01 

01 

01 


RECOROS-REAO 

KOUNT 

JDAy 

recoros-rass 

NINE  SYNC. 


0 times. 

PICTUHE  9004. 
PICTURE  9C6I 
PICTURE  SOOO 
PICTURE  9C«] 
PICTURE  9t6l 


VALUE  ZERO  SYNC. 

VALUE  ZERO  COMPUTATIONAL  SYNC. 


VALUE  ZERO 
VALUE  ZERO 


sync. 

SYNC. 


30600 

02 

filler 

PICTURE 

Xt4] 

VALUE 

199991. 

30610 

Ci 

FILLIH 

PICTURE 

XC541  VALUE 

30620 

1 OOOOOOVOOOVOVOVOOOOOOOOOOOOOOOOOOOI . 

30630 

0^ 

filler 

PICTURE 

Xto] 

VALUE 

: 90000090 i 

30640 

0.'^ 

filler 

PICTURE 

XX 

VALUE 

tool. 

30660 

02 

FILLER 

PICTURE 

9999 

value 

0000. 

30660 

02 

filler 

PICTURE 

X 

value 

101. 

30670 

02 

filler 

PICTURE 

99 

VALUE 

00. 

30600 

0? 

FILLER 

PICTURE 

999 

VALUE 

000. 

30690 

02 

filler 

PICTURE 

XX 

value 

<001. 

40U00 

01 

table -accept-a-c  sync. 

40010 

40020 

40030 

40040 

40050 

40060 

50000 

50010 

50020 

50030 

50032 

50040 

50050 

50060 

500TO 

50220 

50221 

50222 

50223 

50224 

50225 

50226 
50300 
50302 
50305 
50310 
50322 
50324 
50330 
50400 
50410 
50420 
50430 
50440 
50450 
50460 
50470 
504S0 
50400 
50500 
50510 
50520 
50600 
50610 
50620 
50640 
50450 
50660 
50670 
50600 
50610 
50620 
50640 
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times  oependin*  on  NO-ACCEPT-A-C 
picture  xtsl. 
picture  000. 
picture  xtsl. 

PICTURE  SOOO  VALUE  <1. 

PICTURE  SOOO. 


01  NO-ACCEPT-A-C  SYNC 
01  TEMh-aCCEPT-A-C  sync 
01  INC  SYNE  computational 
01  KNT  SYNC  computational 
PROCeOUKE  DIVISION. 

open-files. 

OPEN  INPUT  INFILE.  ACCEPT-FILE. 

OPEN  OUIPUT  OUIFILE. 

PERFORM  REAO-ACCEPT'OATA  THRU  ENO-R-A-0. 

REAOI. 

read  i'ffile 

AT  END  GO  TO  BLOCK'CHECK. 

ADO  I TU  RECOROS-KEAD. 

TESTl. 

IF  SEK-NO  IS  LESS  than  TEMP-ACCEPT-A-C  *0  TO  RCAOI. 

IF  SEK-NO  IS  EOUAL  TO  TEMp-ACCEPT-A-C  90  TO  C*LCULATE-U-DAY. 
ADO  I To  INC. 

IF  INC  IS  GREATER  THAN  NO-ACCEPT-A-C  SO  TO  ■LOCK-CHECK. 
move  ACtEPT-A-C  tlNCl  TO  TEMP-ACCEPT-A-C. 

GO  TO  lESTl. 

CALCULATE-J-OAY. 

IF  YEAPC  is  less  than  hot  AOO  so  YEARI  SIVIN*  YEAR. 

IF  YEARC  IS  NOT  GREATER  THAN  tS4l  *0  TO  REAOI. 

COMPUTE  KOUNT  > year  - 64. 

IF  UAYC  IS  LESS  THAN  I lOT  MOVE  OAVl  TO  OAT. 

IF  UAYC  IS  LESS  THAN  HOOT  MOVE  OAYt  TO  DAY. 

COMPUTE  JDAY  > DAY  < NOAY  tKOUNTl. 

VRITEI. 

MOVE  TIPE  TO  TYPE-OUT. 

HOVE  DAlAi  TO  OATAI-OUT. 

MOVE  SER-NO  to  SER-OUT. 

MOVE  UATA3  TO  0ATA3-0UT. 

MOVE  JOAY  TO  JOAY-OUT. 

MOVE  UATA4  TO  0ATA4-0UT. 

MOVE  YEAR  TO  YEAR-OUT. 

MOVE  day  to  OAY'OUT. 

MOVE  DATA5  TO  0ATA5-0UT. 

WRITE  OUTREC. 

AOO  I TO  RECORDS-PASS. 

60  TO  REAOI. 

block-check. 

COMPUTE  KOUNT  > RECOROS-PASS  - ItRECOROS-PASS  ! BOl  4 SOI. 

IF  KOUNT  EQUAL  ZERO  *0  TO  CLOSE-PILES. 

LOOPl. 

write  OUTREC  FROM  NINE. 

AOO  I TU  KOUNT. 

IF  KOUNT  IS  LESS  THAN  50  THEN  QO  TO  LOOPI. 

CLOSE-FILES. 

CLOSE  II^ILE  WITH  LOCK.  ACCEPT-FlLE  WITH  LOCK. 

CLOSE  OuTFILE  with  LOCK. 

DISPLAY  i NUMBER  HECOrOS  READ  < RECOROS-REAO  UPON  CONSOLE. 


COS  070 
098970 
098970 
C 98970 
C98970 
C98970 
C98970 
C98970 
CO8O70 
C989T0 
CO8970 
C08070 
CO8O70 
C08070 
CO8O70 
CO8O70 
CO8O70 
C98O70 
COSO70 
C48O70 
C 08070 
CO8O70 
CO8970 
C989T0 
CO8O70 
CO8O70 
C08070 
C08070 
CO8O70 
C08070 
C08070 
C08070 
CO8O70 
C08070 
C08070 
C08070 
C08970 
C08070 
C98O70 
C98970 
C98970 
C989T0 
C98970 
C98970 
C08970 
C98970 
C989T0 
C08070 
C08070 
C08070 
C98O70 
CO8O70 
CO8O70 
C98970 
C4BO70 
C9B970 
COBO70 
CO8O70 
COB070 
COBO70 
COB070 
CO8O70 
CO8O70 
COBO70 
CO8O70 
COBO70 
C98O70 
COBO70 
C9BO70 
CO8970 
C989T0 
C08070 
CO8O70 
C9B070 
C08070 
C08070 
098970 
C98970 
C909T0 
C98O70 
C00970 
CO8O70 
C 98070 
C08070 
CO0O70 
CO0O70 
CO8O70 
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50050  DISPLAY  : NUMBEK  RECORDS  PASS  I PCCOPtS^PASS  UPON  CONSOCC*  C90070 
50060  display  : COJ  9097  I UPON  CONSOLE*  C96970 
50070  GOBACk*  C90970 
70U00  REAC-ACCEPT-DATA.  C90970 
70U10  read  ACCEPT-FILE  AT  END  00  TO  ENCMI-*^*  C96970 
70iJ20  MOVE  UAfA.l  70  NO-ACCEPT-A-C*  C90970 
70U30  .40VE  ZERO  TO  KNT*  C90970 
70040  RAo«l«  C90970 
70U50  ADD  X TO  KNT*  C9S970 
70U60  read  ACCEPT«P1LE  AT  END  00  TO  CND^A-Q*  C90970 
70U70  10VE  DAfA.^  TO  ACCEPr->A*C  CKNT3*  C90970 
7OUO0  tP  KNT  IS  LESS  THAN  NO«ACCEPT«A-C  00  TO  PAD*1*  C90970 
70U90  MOVE  ACCEPT-A-C  Cil  TO  TEMP.ACCEPT*A«C*  C90970 
70100  END-R-A«D*  exit*  C90970 
/«  PLftCE  COBOL  SOURCt  BEFORE  THIS  CARO 

//CHG.TPGIN  DO  AfSPACEMCYLtCiai)  IMO  COS 


TPO  OTOl  11  o2ozoeo 

15U 

570002^1 

570002^2 

570002^5 

570002^6 

57U002J7 

57000243 

57000244 

57002455 

57002456 

57002458 

57002459 

570024b3 

57002470 

57002473 

57002476 

57002477 

57002462 

57002463 

57002465 

57002466 

57002490 

57002491 

57002493 

57002494 

57002496 

57002503 

57002504 

57002505 

57002508 

57002509 

57002515 

5700251-^ 

57002520 

57002524 

57002527 

57002528 

57IJ02532 

57U02533 

57U02537 

57UU2538 

57002540 

57002543 

57002545 

57002546 

58000760 

58U007O6 

58000767 

58000772 

58000773 

580007/6 

56000777 

580007/8 

58000760 

58000761 

58000763 

58000765 

58000766 

56000768 

58000792 

58000797 

58000900 

58000901 

58000903 

58000904 

59000002 

59000003 

59000004 

59000005 

59000006 
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pp 


59000007 

59000008 

59000010 

59000012 

59000015 

59000016 

59000018 

59000019 

59000029 

59000025 

59000026 

59000027 

59000028 

59000030 

59000031 

59000033 

59000035 

59000093 

59000094 

59000096 

59000098 

59000051 

59U00052 

59000053 

59000059 

59000056 

59000057 

59000058 

59000059 

590000U0 

59000063 

59000069 

59000065 

59000067 

59000069 

59000072 

59000079 


59000076 

59O00O78 

59O0O080 

5900 '982 

5900;.  069 

59000065 

59000088 

59000090 

590000V2 

59000099 

59000095 

59000096 

59000099 

59000103 

59000109 

59000105 

59000108 

59000109 

59000110 

59U00115 

59000116 

59000119 

59000126 

59000127 

59000128 

59000130 

59000132 

59000133 

59000137 

59000138 

59000190 

59000191 

59000193 

59000199 

59000195 

59000196 

59000197 

59U00199 

59000151 

59000152 

59000153 

59000155 

59000157 

59000169 


•ENO 

/•  PLACE  TFO  DATA  BEFOME  THIS  CARO 

//TPR,TU12  Do  D1SP>10LO»RCCPJ«VOL>$CR>9F1«UN1T>T9FI 

//TPR.TU19  DO  01SP>C0L0>KCCPJ>V0L>SCR>9P3»UN17>T9F3 

//TPR.TPRIN  00  ••SPACEXTRAtCItl  JJ 

T/P  OTOl  10200802080 

T/P  TU12  ;ALL0602060 

/•  PLAC*:  T/P  CONTROL  CAROS  BEFORE  THIS  CARO 


TII 

TI9 


k 
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6.3  AIE  FILE  GENERATION  PROGRAMS 
6.3.1  AI  FORMATTER 

//l9a9TC  JOB  01>:  6.  HANb  l•PHTr>0^•TTPftUN>HOI.O 
//1969TR  EXEC  P96bSL>TlME>02<*CCT>03S32S007 

//CHG.IUlk  OU  OSN>*P.9«954Sl<SP*Ce>(CrL«t010>001]l  019-OuT 

//CHO.lUax  OU  USN>*P.9B9b«bS<SPACE>CCri.<C010>001Jl  022-OUT 

//CHG. INPUT  OU  *>SPACE>tCrL(tl>l]]  1«40  COS 

UOOOO  combine  compile  0.  HANO,  C989T0 

01U40  OATE-WRlTIEl..  2(>  JAN  T2.  C989T0 

01U8U  RLMaPKS.PHUoRAM  NAMt-AlE  CARO  DECK  FORMaTTCRCREF.  •OCA-AJHTI-OOI  098970 

UlUbU  POS  2-1^4-56 1.//PURP0SE-REAUS  AIE  CAKO  UATA  SuPPLUO  Or  SAAMA  C9A9T0 

UlUTO  ANU  CbPlLS  RtLLVANT  UAIA  PiCLOS  TO  AN  OUTPUT  TAPE.  (IJ  lUCNT  C909TO 

UlUbO  IFT  OUTPUT  FROM  CARO  SOURCE.  12JCH0  SER  TO  B-OIOlT.  [3X0NV  C989T0 

U1U9U  ERT  OATtS  TO  oat  NUMBERS.  C989T0 

U2U00  environment  Oivisiotj.  C989T0 

U2ul0  COnFIGUrATIuN  ScCTIun.  C9B9T0 

U2U20  SOuRCE-LOMPuTLR.  IBM-obU.  C9B9T0 

U2U3U  OBjECT-COmPuIeR.  lUM.jbO.  C9B9T0 

U21U0  INpul-OuTPUr  section.  C9B970 

02110  FILe-CONTrOl.  C9B9T0 

U212U  SELlCI  INCArU  assign  to  UT-S-TU14  C98970 

U213U  RLSLRvE  1 alternate  area.  C9B9T0 

U214U  select  uUTFILE  assign  to  UT-S-TU22  C9S9T0 

021SU  Reserve  1 alternate  area.  crbrto 

02160  select  eXCPTFILe  ASSIGN  TO  OA-S-OTUI  C9B9T0 

02170  reserve  1 alternate  area.  C9B970 

lOUOO  OATA  DlVlSluN.  C9B9T0 

louio  file  SElTIU...  C98970 

lOlOU  FU  iNCaRU  C9B9T0 

10l2<  RECORUli.G  MOOE  IS  F C9B9T0 

10130  BLOCK  Contains  jo  records  C9B9T0 

10140  rECuRU  contains  So  characters  C9B9T0 

lOihO  LAReL  records  are  omitted  C9B9T0 

10160  data  records  are  INCAHO-AIE.  C9B9T0 


10^00 

01 

INCaHj-aIE  STNC. 

C9B9T0 

1U21U 

U2 

filler 

picture 

X* 

C9B9TO 

lo^su 

02 

StR-2-3 

picture 

XX* 

C9B970 

10^30 

02 

filler 

PICTURE 

x« 

C9B970 

10^40 

U2 

SER-Cb 

picture 

X* 

C9B970 

10^50 

U2 

StR-C6 

PICTURE 

X* 

C96970 

lO^bU 

02 

SeR-C7 

picture 

X* 

C9B970 

ig^7o 

02 

Slr-Ch 

picture 

X • 

C9S970 

lo^au 

U2 

filler 

picture 

X* 

C9B970 

10<;9U 

U2 

CAT-Mo-TR. 

C96970 

lO^OU 

OJ  OA 

PICIURE 

V9. 

C9B970 

lOJiO 

0.'  MuNTH 

PlClUHE 

xxx* 

C96970 

1UJ2U 

U Tr 

PICTURE 

C 96970 

10J3U 

U2 

FILlFH 

PICTURE 

JIX* 

C98970 

10J4U 

02 

Hc-PcMT-COOE 

picture 

X* 

C98970 

lU  JbU 

02 

F ILcLR 

Picture 

X* 

C96970 

lUJoU 

02 

RuC 

PICTURE 

xxxxx* 

C96970 

1U.)7U 

02 

T ILlEh 

picture 

xc  55  J# 

C9B970 

11  lOU 

fu 

OU7»- 

let 

C9B970 

11 

HLCo^uliiO  MOOC  IS 

F 

C'9B970 

111  JU 

ulock  Contains  oo 

RtCURUS 

C96970 

1114U 

KtCuHU  OOfUAlNS  50 

CHARACTCMS 

198970 

J llbU 

label  records  are 

OMITTtO 

t98970 

11160 

data  records  are  outfile-aie. 

098970 

11^00 

01 

outfile-aie  STNC. 

C98970 

11210 

02 

F ILLEr 

PICTURE 

xeso). 

098970 

12100 

FO 

EXCPTFILE 

C98970 

12120 

RECORuING  MOOE  IS 

F 

C9B970 

12130 

BLOCK  Contains  ui 

RECORDS 

C98970 

12140 

recot U CONTAINS  BO 

CHARACTERS 

C9B970 

121S0 

LABtl  RECORDS  ARE 

standard 

098970 

12L60 

OATA  records  are  excptfile-no. 

C9B970 

12200 

01 

EXCPi file-mo  STNC 

• 

C98970 

12210 

02 

•ILLER 

PICTURE 

XC80). 

C9B970 

30U0O 

BORKIHG-STOrAge  section. 

098970 

30030 

01 

NlNt  STi.C. 

C9B970 

30U40 

02 

r ILLEK 

PICTURE 

XI 2S) 

VALUE 

C98970 

30U&0 

: 99999999999999999999999*9 1 . 

C98970 

30U60 

02 

FILLER 

PICTURE 

Xt2S) 

VALUE 

C98970 

30070 

: 99999999999999999999999*9 1 • 

C98970 

30uao 

01 

OAYS-IN-TEAR  STNC 

• 

098970 

30U90 

02 

filler 

PICIURE 

999 

VALUE  0. 

C98970 

30100 

02 

filler 

PICTURE 

999 

VALUE  31. 

C98970 

30110 

02 

ULLEr 

PICTURE 

999 

VALUE  S9. 

098970 

30120 

02 

• ILLEr 

PICTURE 

999 

VALUE  90 . 

C989T0 

30130 

02 

filler 

PICTURE 

999 

value  120. 

C98970 

30140 

02 

filler 

PICTURE 

999 

VALUE  ISl. 

C98970 

30150 

02 

filler 

PICTURE 

999 

VALUE  IBl. 

C98970 

30160 

02 

'ILLEr 

PICTURE 

999 

VALUE  212. 

C 98970 
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L 


1 


JO  170 

02 

filler 

PICTURE 

999 

VALUe  243* 

C96970 

JOISO 

02 

filler 

PICTURE 

999 

VALUE  273* 

C96970 

J0190 

02 

r'lLLER 

picture 

999 

VALUE  304* 

C96970 

J0200 

02 

■FILLER 

PICTURE 

999 

VALUE  334* 

C96970 

J0210 

01 

NO*i 

LlArS-lN-TEAR 

REDEFINES  DAYS-tN-TEAR  STNC. 

C96970 

J0^20 

02 

AUAtS  OCCURS 

12  times 

C96970 

J02J0 

PICTURE 

999. 

096970 

J0240 

01 

0AY5«lN*YeARS  SYNC* 

C96970 

JO2S0 

02 

filler 

PICTURE 

9999 

VALUr  0* 

C96970 

J0260 

02 

rlLLER 

PICTURE 

9999 

VALUE  365* 

C96970 

J0270 

02 

FILLER 

PICTURE 

9999 

VALUE  730 • 

C96970 

J02eU 

02 

filler 

PICTURE 

9999 

VALUE  1095* 

096970 

J0&9O 

02 

FILLER 

PICTURE 

9999 

VALUE  1461* 

096970 

JOJOO 

02 

filler 

PICTURE 

9999 

VALUE  1626* 

096970 

JOJIO 

02 

FILLER 

PICTURE 

9999 

VALUE  2191* 

096970 

J0J20 

02 

filler 

PICTURE 

9999 

VALUE  2556* 

096970 

J0J30 

02 

FILLER 

PICTURE 

9999 

VALUE  2922* 

096970 

JOJHO 

02 

FILLER 

PICTURE 

9999 

VALUE  3267* 

096970 

JOJSO 

02 

filler 

PICTURE 

9999 

VALUE  3052* 

096970 

JOJ60 

02 

filler 

PICTURE 

9999 

VALUE  4017* 

096970 

J0J70 

01 

day 

-IN-YEAR-TABLE  REDEFINES 

DAYS-IN-YEARS  SYNC* 

096970 

90360 

02 

DAY-TEAR  OCCURS  12  TIMES 

096970 

30390 

PICTURE 

9999* 

096970 

30HOO 

01 

KOUNT  PICTURE 

S909  COMPUTATIONAL  VALUE  ZERO  STNC. 

096970 

30410 

01 

KNT 

PICTURE 

S990  COMPUTATIONAL 

VALUE  ZERO  STNC. 

096970 

304  30 

01 

RTE»R  PICTURE 

S99  COMPuTATtONItL  VALUE  ZERO  STNC. 

096970 

30440 

01 

OATS  PICTURE 

S999  COMPUTATIONAL  VALUE  ZENO  STNC. 

096970 

30450 

01 

RECOROS-REAO 

PICTURE 

91 6 J SYNC  VALUE  ZElO. 

096970 

30460 

01 

RECtRUS-PASS 

PICTURE 

9C6J  STNC  VALUE  ZE^O. 

096970 

30470 

01 

CMO 

PICTURE 

999  STNC  VALUE  ZERO. 

096970 

30b00 

01 

SER 

•e*UlGlT  SYNC 

• 

09A970 

30510 

02 

POS-1-2 

PICTURE 

XX* 

096970 

30520 

02 

POS-3-4 

PICTURE 

XX 

value  :oo:. 

096970 

30530 

02 

POS-5 

PICTURE 

X* 

098970 

30540 

02 

POS-6 

PICTURE 

X* 

096970 

30550 

02 

POS-7 

PICTURE 

X* 

096970 

30560 

02 

POS-6 

PICTURE 

X* 

096970 

30570 

01 

months-in-tear  stnc. 

098970 

30560 

02 

FILLER 

PICTURE 

XXX 

value  IJANl. 

096970 

30590 

02 

filler 

PICTURE 

XXX 

VALUE  IFEBl. 

096970 

30600 

02 

FILLER 

PICTURE 

XXX 

VALUE  (MARI. 

098970 

30610 

02 

filler 

PICTURE 

XXX 

VALUE  lAPRl. 

096970 

30620 

02 

filler 

PICTURE 

XXX 

value  imat:. 

096970 

30630 

02 

filler 

PICTURE 

XXX 

VALUE  tJUNi. 

096970 

30640 

02 

filler 

PICTURE 

XXX 

VALUE  :jul<. 

096970 

30650 

02 

filler 

PICTURE 

XXX 

value  iauq). 

096970 

30660 

02 

filler 

PICTURE 

XXX 

VALUE  :sEp:. 

096970 

30670 

02 

filler 

PICTURE 

XXX 

VALUE  SOCTI. 

096970 

30060 

02 

filler 

PICTURE 

XXX 

value  :nov:. 

098970 

30690 

02 

filler 

PICTURE 

XXX 

VALUE  I DEC  I. 

096970 

30700 

01 

NO- 

months-in-year  redefines 

months- 

IN- TEAR  STNC. 

096970 

30710 

02 

KMO  OCCURS  12  times 

096970 

30720 

PICTURE 

XXX* 

096970 

34U00 

01 

OUT 

r ILE-AIE-WORK 

SYNC, 

096970 

34010 

02 

filler 

PICTURE 

XC9J 

value  space. 

096970 

34U20 

02 

WUC-OUT 

PICTURE 

xcsi 

VALUE  SPACE. 

096970 

34030 

02 

filler 

PICIURE 

XC6I 

VALUE  SPACE. 

096970 

34040 

02 

report-code- 

OUT  PICTURE 

X 

value  space. 

096970 

34050 

02 

filler 

PICTURE 

X 

VALUE  SPACE. 

096970 

34U60 

02 

SLR-6-Ole-OUT  PICTURE 

XC6  J 

value  space. 

098970 

34070 

02 

filler 

PICTURE 

XCIO] 

value  space. 

096970 

34000 

02 

DOLLAr.SIGN 

PICTURE 

XX 

VALUE  IS  I. 

096970 

34090 

02 

DAY-NO 

PICTURE 

9C4l 

VALUE  ZEROS. 

096970 

34100 

02 

filler 

PICTURE 

X 

value  space. 

098970 

34110 

02 

RCDMK-0 

PICTURE 

X 

value 

096970 

35000 

01 

EXrPTriLE*WORK*l 

STNC. 

096970 

35010 

02 

FILLER 

PILTURE 

X 

VALUE  SPACE. 

096970 

35020 

02 

RAO-M 

PICTURE 

XC25] 

value 

096970 

35030 

1 unrlcoonizablc  month  ••  I. 

096970 

35040 

02 

5LH-6-0-EXC 

picture 

AIAJ 

VALUE  SPACE. 

C96970 

35U50 

02 

FILLER 

PICTURE 

XC2J 

VALUE  SPACE. 

096970 

35U60 

02 

OAY-NO-YR-EXC  PICTURE 

XtTJ 

value  space. 

096970 

35070 

02 

filler 

PICTURE 

XIJ6J 

value  space. 

096970 

35060 

02 

RECMAr 

PICTURE 

X 

VALUE  I* I. 

096970 

35100 

01 

EXCPTFlLE-V0Rt(-2 

STNC. 

096970 

35110 

02 

FILLER 

PICTURE 

XC93) 

VALUE  SPACE. 

C96970 

35120 

02 

REC-REAO 

PICTURE 

Xt*J 

VALUE  IRC-lN>I. 

C96970 

35130 

02 

RCD5-1N 

PICTURE 

9C6J. 

C96970 

35140 

02 

REC-RA55 

PICTURE 

Xt9J 

VALUE  IZRCD-OUT>I. 

096970 

35150 

02 

RLU5-OUT 

PICTURE 

9C6J. 

C96970 

35160 

02 

rao-months 

PICTURE 

XC*} 

VALUE  l/»-MO>I. 

C96970 

35170 

02 

O-MOS 

PICTURE 

9C31. 

C96970 

35160 

02 

rkdmk 

PICTURE 

X 

VALUE  1*1. 

C96970 

50000 

PROCEDI.HE  DIVISION. 

096970 
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SODIO  OPEN*F]LiS« 

S0U20  OPEN  INf'UT  INCAKO. 

S0U30  OPJN  OUlPUT  OUTFlLf. 

bOU3S  OPFn  OUlPUT  EXCPTFILE, 

b0U40  RCAOl* 
bOOSO  RF.4U  INcAwn 

SOubO  at  end  (»o  to  block-chcck* 

bouro  AOn  I TO  KECOROb*RCAO« 

booeo  TEST-SEk*NO-COLS-S-B. 

SOURO  IF  bEH-CS  EQUAL  SPACE 

SOlOO  ^^OVL  ZERO  TO  SER^CS* 

SOHO  IF  SFR-Ob  EQUAL  SPACE 

SOIZO  HOVt  ZERO  TO  SER-Cb* 

b0l30  IF  SfR-L7  EQUAL  SPACE 

S0I40  MOVL  ZERO  TU  SER*C7« 

boiso  IF  bfR-cn  equal  space 

bOlbO  ROVL  ZERO  TO  SER*C6* 

S0170  MC/L  bEH-Z-J  TO  POS-I*2« 

bOieO  MOVL  SLH-C5  TO  POS-5. 

SOIRO  ROVL  bCH-Cb  TO  POS-6. 

bOzOO  mO/l  StH-C7  TO  POS-7. 

bOZIO  MO/L  bfcM-CR  TO  POb-e« 

S0Z20  oecooe-montm. 
b0Z30  HOvL  I TO  XNT. 

b0Z40  mo-loc*. 

bOZbO  IF  kMO  LKNTJ  equal  MONTH  GO  TO  OAtC*tO-OAYS* 

bOZbO  ADD  I TO  KNT« 

S0Z70  IF  knt  is  less  Than  13  GO  TO  mo-LOO^* 

bozeo  BAU-H  ntm« 

b0Z90  movl  ShH-ft-OTGIT  TO  SER*6*0*eXC« 

b0300  MOVt  UAY-MO-YR  10  DAY-MO-YR-EKC. 

bOilO  AlO  1 Tu  QMO-KNT* 

S03Z0  wriTE  ExCPTFILL-MO  FROM  EXCPTFlLC^VORK^i* 

S0330  GO  TO  RLAfTl. 

b0400  OAlE-lO-CAYb* 

bn4lO  CCMPUTE  FYEAR  > YR  - 60« 

S04Z0  COMPUTE  days  > OA  < kOAYS  CKNTJ* 

b0430  IF  ^YLAH  EQUAL  4 GO  TO  LEAP*YEAR« 

b0440  IF  kYlAK  equal  b GO  TO  LEAP«YEAR« 

b04S0  ir  rYLAH  EQUAL  12  00  TO  LEAP«YEAR* 

b04b0  GO  TO  JULIAN-OAtS. 

bObOO  LEAP-YEA»<. 

bOblO  I kNI  is  less  than  3 GO  TO  JUtlANK>AYS» 

SObZO  AOD  1 TU  DAYS# 

b0b40  JULIAN-UATS« 

bObSO  COMPUTE  OAY-NO  > OAY-YEAR  CKYEAR)  < OATS  • |A4l* 

blOOO  WRITE -OUTPUN 

blOIO  MOVE  WUw  TO  VUC*OUT« 

SIU20  MOVE  RtPOHT-COOE  TO  REPORT-COOE-OUT* 

SIU’^  MOVE  SEM-e-OlGIT  TO  SER^G^QIG-OUT, 

blOO  WOITE  OUTFILE-AIE  FRON  OUTf ILC-AIMOAK* 

blOf.O  ADD  1 70  RECOROb-PASS, 

blUbO  Gu  10  REAqI • 

bzuoo  OLocw  Check. 

bpoto  COMPUTE  KOUNT  > RECOROS«PASS  • CC RECOAOS-PASS  / GGl  P 40l» 

b?J20  IF  kOUUT  equal  zero  GO  TO  WR]TE«ReCOAO*KP* 

52W40  L00P3. 

bZUTO  WRITE  OuTFILE-AIE  FROM  NINE, 

bZObO  AOn  1 TU  KOUNT, 

b2U70  Ir-  kOUNT  IS  LESb  THAN  60  GO  TO  L00P3, 

bZlOO  WRITE  -RKORU-KP, 

S2140  MOVL  HECOHDb-PEAO  TO  HCOS-lN, 

bZISO  MOVL  RECORpS-PAbS  TO  RCUS-OUT, 

S21b0  NOVL  QMO-KNT  TO  Q-MOS, 

S21G0  «*1I7F  EXCPTFILL-MO  FROM  CXCPTFlLC«tfOAK«2* 

5400G  CL0SC-FILt5, 

S4U10  CLOSE  INCARO  WITH  LOCK, 

S4O20  CuObE  EaCPTFILL  WITH  LOCK, 

S4U30  C’-ObE  OuTFILE  WITH  LOCK, 

b4O40  OTSPLAY  : FO.f  CV897  : UPON  CONSOLE, 

S4UbO  GOPACk. 


//LHO, TFgIN 


I’LA:c  COPuL  SOURCE  BEFORE  TH|s  CARO 
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*.bPACE>CCYL*tl»I JJ 
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4bb 

14J  jNbS 

A 1 

13000 

Sb- 

4b9 

bM^«u7 
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7Si»El 

bb- 

4oI 

1 TCFTf  ' 

1 

blEOO 

So- 

U4bl 

14AUG( 

1 

14UC1 

Sb- 

4b? 

ZbJ  JLij7 

1 

b?UEl 

Sb- 

4oX 

lUM^Vo7 

1 

4bHRl 

be>- 

04b3 

ibrrPbn 

1 

nuRi 

5b- 

4bb 

IfiOVo7 

1 

45HA1 

S7- 

?3? 

iZv  JLb5 

1 

4 5LMI 

57- 

?3? 

70CTb5 

1 

SlLCl 

57- 

023S 

3‘'XPbf 

1 

•ibLAl 

S7- 

0?4l 

Z3F  no7 

1 

I4JFI 

5 7- 

243 

IQ>  jGbb 

1 

14JR1 

RH  mlg  FAILURE#ACFT  0€STROYCD 

SELECTOR  valve  FAILURE 

ADI  MATERIAL  FAILURE 

MLP  VALVE  LEAK 

SHORTED  FLT  NODE  CONTROL 

EJECTOR  housing  ASSY  MAT*L  FAILUAC 

malfunction  ng  actuating  CYL 

SLCONO  HyO  SyS  accumulator  PUMP*  FAILU^^ 

actuator  failure#pressuac  line  o^imt 

DISPLACEMENT  GYRO  MALFUNCTION 
PYLON  ASSY  material  FAILUHC 

actuator  failure 

SPELO  brake  i Or.Q  CHUTE  LOST 


CMOTe 

CRM70 

C06A70 

CAAO70 

C9AA70 

CAG070 

CA4A70 

CAGA70 

CAAA70 

CAM70 

CW70 

COG970 

CAGATO 

CAGA70 

CAGATO 

CAGA70 

CAGA70 

CAGA70 

CAGA70 

CAGA70 

CAGA70 

CAGA70 

CAGA70 

CAGA70 
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CAG970 
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1990  COS 
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litaltaiilMMlttUl 


57-0482  2>»JtlHb7  I 756EI  A MB-I  CJECT08  HACK  MALFUNCTION 

57-0781  llMAYbb  I 42BA1  A DC  CENCRATOO  FAILURE 

57-2303  10C:Cb6  1 I3U01  A NG  DOOR  ACTUATOR  MATERIAL  FAILURE 

57>2431  2U0CTbS  1 13DH1  A LEAKING  BRAKE  RELAY  ABORT 

57-2453  22MARb7  1 45LMI  A 'B'NUT  FAILURE 

57-2455  235wPb5  1 71C00  A TACAN  MALFUNCTION 

57-2456  28JINb7  I 75GEI  A MB-I  EJECTOR  RACK  MALFUNCTION 

57-2457  30CCb6  1 14EA1  A BLEED  AIR  DUCT  MATERIAL  FAILURE 

57-2457  22A»'Rb9  A1  23JB0  A MAIN  GEAR  ASST  HOUSING  DESTROYED 

57-2458  28S.Pb5  I 5IAMI  A ADI  FAILURE 

57-2459  29J‘JLb6  1 I4jni  A LOST  SPEED  BRAKES  AND  DRAG  CHUTE 

57-24bl  ISEPbS  I 51E00  A ADI  FAILURE 

57-2461  7bCTb9  I 46CVI  A PILOT  FLOAT  VALVE  MALFUNCTION 

57-2464  6CECb7  I I4JA1  A LOST  RH  SPEED  BRAKE 

57-2465  21NOV67  A2  I3HDI  A LH  MLGtMATERIAL  FAILURE  ETEBOLT  ASSY  PN  *01*8 

57-2467  6DCCb7  I 14JAI  A RH  SPEED  BRAKE  MAT<L  FAILURE 

57-2467  I6FZB70  I 13841  A EYEBOLT  ASSY  FAILURE  ML8 

57-2469  7D'C67  A|  23BOO  A N-2  COMPRESSOR  SECTION  FAILuREtACFT  KSTROYCO 

57-2472  7jANb7  I 23JA0  A OUICK  DISCONNECT  FAILURE 

57-2475  17JAN67  I 23JA0  A OUICK  DISCONNECT  FAILURE 

57-24/6  240'Tb6  I I3AAF  A GEAR  LOCKING  MECHANISM  FAILURE 

57-2478  |SAPRb5  I I4JA1  A LOST  SPEED  BRAKES  AND  DRAG  CHuTE 

57-2478  SUSEPbS  1 SIAJI  A ADI  FAILURE 

57-2480  9ScPb5  1 5IL00  A ADI  FAILURE 

57-2482  27A'>Rb6  1 42bAl  A DC  GENERATOR  FAILURE 

57-2482  9JUNb7  I 42BAI  A 05b  GENERATOR  FAILURE 

57-2483  13SbPb5  1 51E00  A AOI  FAILURE 

57-2485  |HS:Pb5  1 51AJ1  A SNITCHING  GTRO  FAILURE 

57-2487  80'Tb5  1 51AMI  A AOI  MATERIAL  FAILURE 

57-2491  240rTb6  1 93AEA  A DRAG  CHUTE  MOVABLE  JAV  MALFUNCTION 

57-2492  l2JULb5  I 23HAO  A FUEL  CONTROL  MALFUNCTION 

57-2492  3S-Pb5  1 51L00  A ADI  FAILURE 

57-2492  IIJ>INT0  A1  ISBAI  A ETEBOLT  ASSY  FAILURE  RH  MLO 

57-2499  15APRb9  1 2SSR0  A CSD  OIL  STARVATION 

57-2500  27A>>Rb5  1 52C00  A AIR  DATA  COMP  MALFUNCTION 

57-2500  29t.TVb8  1 460AI  A LH  FULL  SHUT-OFF  VALVE  FAILURE 

57-2509  2SEPb5  1 5UC1  A DISPL  GTRO  FAILURE 

57-2514  40CTb5  1 51E«1  A ADI  FAILURE 

57-2514  U0;Cb9  I 23N0E  A THROTTLE  TELEFLEK  CABLE  BENT 

57-2515  2b."JNb9  1 52CAI  A AIR  DATA  COMPUTER  MALFUNCTION 

57-2520  7sEPb5  I 51AM1  A MD-l  GYRO  REPLACED 

57-2520  ItsEPbB  1 13LF1  A SNITCH  ROLLER  Mlg  MATERIAL  FAILURE 

5 7-2522  22AiGb8  1 I4C01  A H0iISIN6<ELEV0N  TOHGUC  TUBE  FAILURE 

57-2523  15SEPb5  I 51EC1  A DISPLACEMENT  GYRO  FAILURE 

57-2526  2bN0Vb5  I 23MA0  0 MATERIAL  MALFUNCTION 

57-2526  U0V.T66  1 230C1  A HEP  VALVE  MALFUNCTION 

57-2532  250-Tb5  1 51AG1  A MALFUNCTION  ATTITUDE  INDICATOR 

57-2535  50rTb5  1 51EA1  A AOI  FAILURE 

57-2535  INUV66  I 75U0I  A FND  PNEUMATIC  SELECTOR  VALVE  FAILURE 

57-2536  23M.Tb6  A1  45EEI  0 FvD  AIR  FLASK  MATERIAL  FAILURE 

S7-2538  lOMARbS  1 23GOH  A ENGINE  EYELID  ACTUATOR  MALFUNCTION 

57-2539  270CT65  1 51AHI  A MATERIAL  FAILURE 

57-2543  23JJL68  1 45CH1  A RAT  DOOR  FELLDUT 

57-2546  I3MU67  1 I4JE1  A HYO  RELIEF  VALVE 

57- 2547  |0J<INb6  I 45CAI  A BROKEN  PRI  HYU  LINE  RAT  DOOR 

58-  090  28M«Pb9  1 45tCI  A PRIORITY  CHECK  VALVE 

58-  759  4J-Nb6  I 46EAA  A EJECTOR  ASSY  FAILURE 

58-  739  IIA’'R67  A1  23JBC  A SCAVENGE  PUMP  FAILURE>*CFT  DESTROYED 

58-  760  l70CTb5  1 5IE00  A ADI  MATERIAL  FAILURE 

58-  7b5  8AUG6S  I blEOO  A ADI  MALFUNCTION 

58-  7b6  2IJ7Nb5  I 5IE00  A AUl  FAILURE 

58-  767  6MAYb6  I 42BA|  A DC  GENERATOR  FAILURE 

58-0768  2SEP69  A1  469A1  A RM  MAIN  FUEL  SHUT-OFF  VALVE  PN13230S-1  DESTROYED 

58-  769  |6M-Rb6  A1  74JE1  A MA-1  DIGITAL  COMPUTER  FAILURE.  ACFT  DESTROTED 

58-  773  bM.'Rb5  I |4bEI  A TRIM  SNITCH  MATERIAL  FAILURE 

58-  776  ISEP6S  1 14AC1  G BELL  CRANK  FAILURE 

58-0779  IJUN70  I 23HA0  0 FUEL  VALVE  DEFECTIVE 

58-  781  4A.>R67  2 IIHAB  A NINSHLILD  FAILED 

58-0783  GD'CGG  I 75BFI  0 AFT  SELECTOR  VALVE  MATERIAL  FAILURE 

58-  789  I7MAR66  Al  I4U00  A ELEvCON  PIUMRINO  MATERIAL  FAILURE. ACFT  OCSTROYCO 

58-  790  I6MrtR67  I 4ICA1  A MARMAN  CLAM.*  CAME  OFF 

58-  902  60*767  I 75GE1  A MB-l  EJECTOR  RACK  MALFUNCTION 

59- 0006  I7FEB66  I 23HAD  A FUEL  CONTROL  MALFUNCTION 

59-  008  280CT65  1 51AH1  A MATERIAL  FAILURE 

59-  0U9  1AJ..N66  I 52AA1  A STABILITY  AUGMENTATION  AMPLIFIER  FAILED 

59-  009  l6JltL66  Al  I3AAD  A LH  MLG  SIDE  BRACE  MATERIAL  FAILURE 

59-  011  I0SEP65  Al  I3AAA  A RH  MLG  STRUT  FAILURE 

59-  012  16M«R65  I IlHOO  A CANOPT  SEPARATED 

59-  014  2N'IV6S  I 130H1  A MATERIAL  FAILURE -BRAKE  RELAY  VALVE 

59-  014  24jANb6  1 2SHAD  G FUEL  CONTROL  MALFUNCTION 

59-0014  |6MARb9  Al  I4U00  A FLT  CONTROL  SYS  MATERIAL  FAILURE 

59-  021  3NtV6e  1 13UHI  A FND  ACTUATOR  MLG  FAILURE 

59-0023  29A|iGbR  I 45BFI  A SEC.  HYO  PliMP  FAILED 

59-  026  21N0V68  1 I4jni  A LOST  SPEED  BRAKE  AND  ACTUATORS 

59-  027  IOFLPb7  I 46HA1  A RELIEF  VALVE  FAILURE 

59-  033  1301T65  I 51E00  A ADI  MATERIAL  FAILURE 

59-  033  18M7Pb9  I I4JA1  A SPEED  BRAKE  SEPARATED  FROM  ACFT 


0-24 


1 


59-  0^6 
59-  036 
59-OOur) 
59-  041 
59-  042 
59-  044 
59-  044 
59-0044 
59-0047 
59-0052 
59-  053 
59-  054 
59-  056 
59-  057 
59-  062 
59-  065 
59-0065 
59-  0o7 
59-U0b6 
59-  074 
59-  074 
59-  076 
59-  OUQ 
59-  0B2 
59-  0tt3 
59-U0B5 
59-  0B9 
59-  090 
59-  090 
59-  091 
59-  092 
59-  096 
59-  097 
59-  lUO 
59-  lUl 
59-  lUl 
59-  1U2 
59-  104 
59-  109 
59-0112 
59-0121 
59-  129 
59-  133 
59-0133 
59-  U3 
59-0133 
59-  134 
59-  143 
59-  167 
59-  15b 
59-  159 
59-  IbO 
59-Olbl 
59-  450 


4N0Vb5 

12J6Nb7 

6SPb7 

7S^Pb5 

150CTb5 

2BSuPb5 

27MAPt,fl 
lAPRbO 
lDLCb6 
lji«Nu6 
3UAUGb5 
23rtPb7 
19J  L67 
loM^Pob 
l6«ARb5 
2 7MmY  70 
140  .Tb5 
135‘'Po7 
2bJUl bfl 
bAjCbB 
130'^Tb5 
13CCTb5 
190CTb5 
50v.Tb5 
lUSrPbP 
220FC67 
1BMARu5 
3UJL'Mb5 
5JULb7 
23JUNb5 
7J7970 
bJl'Hu7 
lbArR70 
BFtnbfi 
7Al  GbB 
130FCb6 
1UN0’'66 

lBP7Rbfl 

IbMARbft 

10CTb5 

140CT66 

15N0V66 

290FC6B 

300CTO9 

2BfjPV67 

95Erb5 

2t.J'»L67 

29orrbO 

9VAFJb5 

ilJAPJb? 
2uVAYl  9 


45A00  A BMAkE  SYSTCM  MALruNCtlON 

75GE1  A MU-1  EJCCTOR  HACK  MATlHtAL  rAttUf^C 

14FA1  A HYO  HUOOER  PACKAOC  VALVE  rAttgUC 

nAAA  A LH  MLO  STHUT  FAlLUHC*ACrT  DCSTHOYCO 

42A61  A FAULTY  «1R1NG 

13UH1  A brake  relay  FAILURE 

14A00  A MATERIAL  FAILURE 

51LA1  A ATTITUDE  INDICATOR  MALFUNCTION 

51LAI  A GYRO  FAILURE 

14JR1  A LUST  SPEED  BRAKES  AND  ORAB  CMUTE 
23HAD  G malfunction  FUEL  CONTROL 
14JA1  A LOST  SPEED  BRAKES  AND  DRAB  C»^TE 
14JB1  A LOST  SPEED  BRAKES 

14JK1  A limit  smitch  failure 

51EB1  A TURN  RATE  RMTR  MALFUNCTION 
23JU0  A OIL  scavenger  PUMP  FAIL 
140C1  A HLP  VALVE  MALFUNCTION 
51L00  A ADI  MATERIAL  FAILURE 

46UA1  A FUEL  SHUT-OFF  VALVE  FAlLURC*FN19290S*i»OESTHOTEO 

b2AEl  A POS.POTENT IOMETER* A ILCRONfDE^ECTlVC 

14FA1  A HYO  PACKAGE  DEFECTIVE 

51L00  A ADI  MATERIAL  FAILURE 

bieoO  A ADI  MATERIAL  FAILURE 

51C00  A ADI  MATERIAL  FAILURE 

blECl  A DISPLACEMENT  GYRO  FAILURE 

L4A01  A damper  amplifier  DEFECTIVE 

14JA1  A LOST  SPEED  BRAKES 

45UF1  A secondary  HYDRAULIC  PUMP 

IIHOO  A CA7K)PY  SEPARATED  FROM  ACFT 

13ACE  A NOSE  gear  PIST0N»FAILURC 

23JMO  A MAIN  OIL  PUMP 

13U00  A LANDING  GEAR  FAILURE 

756E1  A Mb-1  EJECTOR  RACK  MATERIAL  FAILURE 

13AA1  A LH  MLG  UPPER  CYLINDER  MATERIAL  FAILURE 

13iiEl  A failure  MLG  ACTUATING  CYL 

13ti£l  A selector  VALVE  MLG  INTERNAL  FaiLURC 

14JF1  A LH  SPEED  BRAKE  CYLINDER  FAILURE 

45UOO  A MLG*S  folded  inbd 

23SR0  A csn  failure 

52AF1  A PITCH-TRIM  POTENTIOMETER  FAILURE 

13BE1  A SELECTOR  VALVi  MLB 

51EC1  A displacement  BYRO  FAILURE 

14JB1  A SPEED  BRAKE  DOOR  B ACTUATOR  LOST 

44FP1  0 nose  door  open  SOLENOID 

51EC1  A MALFUNCTION  ATTITUDE  INDICATOR 

235R0  A baffle  PLATE*0IL  COOLER 

14JA1  A LOST  RH  SPEED  BRAKE 

51E00  A AOI  failure 

41UOO  A T-BOLT  MARMAn  CLAMPS  FARURC 

bltCl  A MALFUNCTION  ATTITUDE  INDICATOR 

23UC1  A HEP  VALVE  MALFUNCTION 

13LJ1  A LH  MLB  SVlCH  FAILURE 

13MFn  A MLG  SAFETY  SViTCH  MALFUNCTION 

(t^HAi  A PRESSURE  relief  VALVE  MALFUNCTION 
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S9-U016 

20MAy  70 

I 

93000 

59-OOb5 

27MAY  70 

I 

14000 

HEP  VALVE 

57-2401 

2^^  7 r 70 

I 

93000 

57-25*9 

2«**AY  70 

I 

93000 

5O-09U2 

21''  AY  70 

1 

75000 

MAT* 

59-0059 

OlMAf 70 

I 

47>000 

MAIN* 

5B-07B2 

3UAr970 

I 

13O00 

DRAB  CHUTE 

6-25 


1^.  ^ 


1 


5 7-2^7 

2J*PI)70 

19000 

57*0232 

22  APR  70 

11000 

59*0026 

lOAf  R70 

52000 

PILOT 

59*0m5 

1 7APR  70 

75000 

MAIN 

57*2<l9<l 

lbAPR70 

93000 

MAIN 

59*02«»1 

lJAt-R70 

19000 

SPRECO  ORARCS 

59*0129 

OOAPR  70 

75000 

MAIN 

59*U090 

27MAR70 

13000 

MAT 

56*0955 

21MAR70 

93000 

60*0955 

2UM«>R70 

93600 

57*0257 

17MAR70 

96000 

PILOT 

59*0026 

04MAR70 

13000 

MAT 

57*2966 

02MAA70 

13000 

MAT 

59*0029 

2bPE970 

93000 

57*2539 

2bFER70 

13000 

MAIN 

57*2967 

lbFEP70 

13000 

MAT 

56*0953 

b9FE,<70 

93000 

0HA6  CHUTE 

59*0056 

0aFE')70 

13U00 

OPEHATOR 

59*0131 

U1FEP70 

11000 

CANOPY 

59-0161 

2«JAn>0 

75U00 

MAT 

57*2966 

27JA.W0 

75000 

MAT 

59*0065 

2JJAM70 

96un0 

PEH< 

57*2521 

21JA7I70 

93U00 

IMAO  CHUTE 

59*01 U5 

21JA.I70 

I9U00 

59*0037 

l•7JA^(70 

13000 

PER. 

57*2536 

llJAN7a 

93U00 

MAT 

57*0965 

U<7JAN70 

93000 

DRAG  CHUTE 

59*0018 

21DE:71 

93000 

59*0199 

lbOfC71 

13U00 

59*0132 

1!>DEC71 

13AHJ 

59*00U3 

0bDEC71 

93AF1 

59*0005 

2bNfV7l 

93000 

0RA6  CHUTE 

59-0159 

13NOV71 

i9J00 

SPEED  brakes 

5o*05U9 

IONOV  71 

93000 

DRAG  CHUTE 

59*0963 

U7NCV71 

ufoa 

MAT 

59*0016 

04N0V71 

13000 

MAIN 

59*0062 

06N0V71 

52FA1 

CPUU1/2V 

58*0765 

2uOCT71 

23000 

flameout 

57*2506 

200CT71 

96000 

MAT 

56*0761 

140CT71 

13000 

mlg  selector  valve 

59*0096 

0400771 

93000 

maim 

59*0096 

040CT71 

97000 

MAIN 

59*0091 

21SrP7l 

97000 

PILOT 

57*2529 

15SEP71 

758P1 

MAT 

59*0060 

07StP7l 

90000 

59*0005 

31AI.G71 

11000 

PILOT 

57-0965 

OJSFP71 

97000 

MAIM 

59-0156 

2bAVlG71 

13000 

DRAG  CHUTE 

59*0019 

OOAOG71 

13000 

59*0006 

lOALDTl 

23000 

MAT 

56*0959 

16AUG71 

93U00 

PILOT 

58*0776 

3UJUL71 

12000 

PILOT 

56*0776 

JUJU. 71 

12000 

PILOT 

57*0960 

2SJU‘.71 

13AJ1 

59*0160 

0VJUI.71 

97000 

supervisory 

57*2505 

ObJUl.71 

m^Ai 

MAT 

59*0059 

0bJU.71 

13000 

MAT 

56*0956 

U6JU'.71 

23HA0 

MAIN 

59*0015 

14JUN71 

11000 

MAIN 

57*2523 

11JUN71 

23000 

MAIN 

59-0091 

IOA'171 

13000 

MAT 

59-0191 

2bMAT71 

13000 

MAT 

56*0776 

19MAT71 

93000 

MAIN 

57*2Si9 

iaMAr71 

23eeo 

MAT 

57*0016 

17MAT71 

i3Aei 

MAT 

59*0071 

17MAT71 

96000 

MAT 

57-2973 

13MAf71 

97000 

MAIN 

59*0165 

30AP771 

23eec 

MAT 

57*2593 

29APR71 

79K01 

M«T 

57*2536 

2bAPR71 

96000 

MAT 

59*0193 

15APJ71 

96000 

MAIM 

57*2966 

15AP7  71 

iircc 

MAIN 

59*0112 

U9APRT1 

93000 

MAIN 

57*2963 

24MAt<71 

13000 

59*0039 

11MAP71 

93AP1 

MAIN 

59*0063 

09MA't71 

11000 

PILOT  - 

57*2519 

U6MAR71 

52000 

MAT 

59*0032 

01HAN71 

13000 

56*0757 

24FEU71 

75U00 

59*0027 

22FE«71 

96U00 

MAIN 

56*0965 

22FEP71 

23U00 

MAIN 

59-0099 

03FEt)71 

97000 

personnel 

59*0129 

02FE771 

23000 

MAIM 

56*0765 

15JAN71 

19JR1 

MAT 

59*0039 

nojArl71 

«I7AK1 

PLHSOMNCL 

99*0765 

IbJA  I/I 

Al 

2 ^<>00 

AFILH  HUMNTR  RRMitll 

6-26 


bn-0<>u7  u!>AU0/0  *1  130)1  Ml)  MLU  UOOR  SHUTTLE  VALVE 
SV-Ullb  2a)4AY/0  A1  461100  MING  TANK  RELEASE  SMITCH 

54-OlUO  IbAP.ITO  AI  13AnO  LHO  UT>PER  CYLINDER 

SV-009b  UTJAMTO  Ac  13000  MLG 

59-0163  30SEP71  Al  23AA0  P/N  316616 

S7-2544  29MAI<71  Al  I4JAI  RH  SPEED  BRAKE 

• END 

/•  PLACE  TFG  DATA  BEFORE  THIS  CARD 

//TPR.TU14  DU  DlSPYtOLDiPASSl  OIL-PASS 

//IPR.TU22  Du  OISPXULUiPASSI  02t-PASS 

//TPR.TPRIN  DU  ••SPACOCTKK.tlil  ]] 

T/P  DTOl  )0200o020a0 

T/P  TUI**  10200002060 

T/P  TU22  .0200002050 

/•  PLAC>’  T/P  CONTROL  CARDS  BEFORE  THIS  CARO 

//CVaVTS  LXEC  P9b22)|.a>010i  i1ME>01iACCT>D3S32300T 

//LHG.SORTIN  ED  USN>AP.9a9S4S3«D 1SP>C OLDtPASSl*  COtt/t3  I 

//  DCU>CLRLCL>U0S0iRLKSI2E>3000].LAeCL>C •NSL>RCTPO>09«1 

//CHO.SORTOUT  DU  D1SP>C iKEEP ]• UNl T >C TAFl* ItDEFER 1>0SN>AA,9A45«SS>  CTlt  I 

//  V0L>SER>C«EliAtFl,B»Fl(C«Fl>04Fl«E«Fl,F*Fl>C4Fl>HAFl>  CTlt  t 

//  1*T 1 • J»F1 iKAFliL^Fl.MtFl.NtFl.O^Fl.PAFl.OAFl.R^Fl.SAFl l.CTlt  3 

//  rCH>CLRECL>O0S0iBLKS12C>300O] 

//CHG.SYSIN  DU  •.OCB>ULKS12E>OOaOiSPACE>CTRK>Cl>l]J 

SORT  FIELDSX  02SiOoa«Cii.A,04Si004iCH>A>OlO>OOS>CH«A]«SltE>COOOtOOO 
HODS  El3>CE.SiOOa«SORTL^UiN]«E18>CFiai02A>SONTLIB>Nl 
/• 

//COaOTP  EXEC  C96o3n>TIME>01«ACCT>03S323007 

//CHG.TU12  DD  U|SP>C>XEEPl>UNIT>CTAFl>l>0EFCRl«0SN>AA.9a9S«B5)  CTlt  1 

//  V0L>SER>C4Fl,A«Fl(e4Fl(C4Fl«0«Fl>C«FltF«Fl>S4Fl>HAFl>  CTlt  t 

//  I4F1.j4F1iK4FIiL4F1»M4f1iH4F1»04F1*P4f1»04Fi,R4f1»S4F1 1 TIE  3 

//CHG.TPRlN  DO  ••SPACE>CTRK«11:!13 

T/P  Tult  .Q203S020S0 

/•  PLAC"  T/P  Control  cards  before  this  card 


6.3.2  ME  SCREEN 


//fqao/p  JOB  oil)  G.  wang  ; )Prty>02*typrun>holo 

//C98970  EXEC  P965Sl.TIME>01»ACCT>035323007 

//CHG.TU14  DU  DISPXC )PASS])UNIT>CT4F3i1>DCFER]«OSN>4C.9B9T*i3) 

//  VOL/SERXt  4F3»A4F3»B4F3*C4F3*04F3*E4F3*F4F3*94F3*H4f3* 

//  I4F3.J4F3.K4F3<L4F3<M4F3»N4F3.04F3,P4F3*04F3,R4F3»S4F3J 

//CHG.TU22  DU  l)SN>4P.9a9b9S3)SPACE>CCYL4t02t>002J) 

//CHG. INPUT  DU  •.SPACOCCYLiClilll 

00000  CUPuINE  COMPILE  9.  mAnG. 

01040  OATL-MKITTEil.  14  jAN  72. 

01050  RtMARKE. 

OlOfO  SCRoEnS  Alt  DATA  TAPE. 

02000  ENvIRONMEt.r  DIVISION. 

02010  t INF IGURATIuN  SECTION. 

02020  source-computer.  IBM-360. 

02030  OBuiCT-COMPuTeR.  IBM-360. 

02100  input-ouTpui  section. 

02II0  FILt-CCtiTROL. 

02120  SEItcr  infill  ASSIGN  to  UT-S-TU14 

02130  RtStRvE  I alternate  AREA. 

02140  select  OUTFILE  assign  to  UT-S-TUtt 

02150  RESERVE  I ALTERNATE  AREA. 

02160  select  screen-file  assign  to  oa-s-otoi 

02170  PESeRVE  1 alternate  area. 

louoo  data  D.ViSlUN. 
louio  fill  srtTioi.. 
loloo  FU  INFILL 

10110 

I0I20  recording  mode  is  f 

10130  BLOCK  Contains  6o  records 

10140  RECORD  CONTAINS  50  CHARACTERS 

10150  la,^ll  records  Are  omitted 

lOlbO  DA'A  records  ARE  INREC. 

10170  01  INRLC  SiNC. 

lolao  02  DATAA, 

10190  03  DATAB  PICTURE  XC4l. 

10200  03  TIPL  PICTURE  XC4l. 

I02I0  03  DATAC  PICTURE  X[9], 

10220  02  CATl-IN. 

10230  03  YLAm  picture  9. 

10240  03  MONIH  picture  99, 

10250  03  DAY-lN  PICTURE  99, 

10252  02  CATlGrP  redefines  DATE-IN  PICTURE  9tBI. 

10260  02  DATAD, 

10270  03  DATAE  PICTURE  XX, 

10280  03  S-N  PICTIIRL  XC8]. 

10290  03  OAIAF  PICTURE  XClt], 

10300  02  filler  picture  XCa], 

10310  02  DATAO  PICTURE  XX, 


CT14  1 

CT14  2 

T14  3 

Ott-OuT 
1*40  CDS 
C989T0 
098970 
098970 
C98970 
C98970 
C98970 
098970 
098970 
098970 
C98970 
098970 
C98970 
C98970 
C98970 
C98970 
C98970 
098970 
C98970 
C90970 
C90970 
C90970 
C98970 
C98970 
C98970 
C98970 
C98970 
C90970 
C98970 
C98970 
C98970 
C90970 
C 98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C90970 
C98970 
C98970 
C98970 


I 


■I 


6-2  7 


11100 

ro 

OU*i 

FILE 

C9S970 

11110 

C96970 

11120 

RECOROINO  MODE  IS  F 

C9a970 

11130 

BLOCK  contains  60  RECORDS 

C90970 

111«I0 

RECORD  CONTAINS  SO 

cnaractcrs 

C90970 

11150 

label  records  arc  omitted 

C9S970 

11160 

DATA  RECORDS  ARE  OUTREC* 

C90970 

11170 

01 

ou'i 

NEC  SYNC. 

C90970 

11160 

02 

DATAl  PICTURE  XClTl. 

C96970 

11190 

02 

OAIt-OUT  PICTURE  9t  5 1. 

C96970 

11200 

02 

0ATa2  picture  XC22I. 

C96970 

11210 

02 

JUAT  picture  9tAJ. 

C96970 

11220 

02 

DATA)  PICTURE  XX, 

C96970 

12U00 

FO 

screen-file 

C90970 

12U10 

RECORDING  mode  IS  F 

C96970 

12020 

BLC 

'.K  CONTAINS  20  RECORDS 

C96970 

12U30 

RECORD  CONTAINS  80 

CHARACTERS 

C96970 

12040 

LABEL  records  ARE  STANDARD 

C96970 

12U50 

DATA  RECORDS  ARE  SCREEN-REC* 

C96970 

12U60 

01 

SCF 

i.EN-KEC  SYNC. 

C96970 

12U70 

02 

scrlen-oata 

PICTURE 

XtSOJ. 

C96970 

i2ueo 

02 

filler  redefines 

screen'Data. 

C96970 

12U90 

Oi  DATA-l 

PICTURE 

X[«I. 

C96970 

12100 

OS  FILLER 

PICTURE 

XtT6l. 

C96970 

12110 

02 

FILLER  REDEFINES 

SCREEN'DAtA. 

C96970 

12120 

OS  DATA-2 

PICTURE 

99. 

C96970 

12130 

OS  filler 

PICTURE 

X[  T8  ]. 

C96970 

12140 

02 

filler  redefines 

screen-datA. 

C96970 

12150 

OS  DATA-3 

PICTURE 

xcsi. 

C96970 

1216U 

OS  FILLER 

PICTURE 

XtT2J. 

C96970 

30U00 

WOHKING 

•storage  SECTION. 

C96970 

30U10 

01 

NINt  SYNC. 

C9B9T0 

30U20 

02 

filler 

PICTURE  XC17] 

value 

C9B970 

30U30 

: 999999999999999991 . 

C9B970 

30U40 

U2 

filler 

PICTURE  9C61 

value  .9999. 

C9B970 

30U50 

02 

filler 

PICTURE  XC22] 

value 

C98970 

30U60 

• 49999999999999999999991 , 

C9B970 

30070 

02 

filler 

PICTURE  9C4] 

value  9999. 

C9B970 

30060 

02 

filler 

PICTURE  XX 

VALUC  $991, 

C98970 

304  00 

01 

OAYS-IN-YEAR  SYNC. 

C9B970 

30410 

02 

FIL.ER 

PICTURE  994 

VALUE  0, 

C9B970 

30420 

02 

FILLER 

PICTURE  999 

VALUC  31. 

C9B970 

30430 

02 

filler 

PICT^WE  999 

VALUC  S.. 

C96970 

30440 

02 

FILlEH 

PICTURE  999 

VALUE  9O, 

C9B970 

30450 

02 

filler 

PICTURE  999 

VALUE  120, 

C98970 

304b0 

02 

filler 

PICTURE  999 

VALUE  151. 

C9B970 

30470 

02 

f’ller 

PICTURE  999 

VALUC  181. 

C9B970 

30460 

02 

FILLER 

PICTURE  999 

VALUC  212. 

C.8970 

30490 

02 

FIL.ER 

PICTURE  999 

VALUC  2.3. 

C9B970 

30500 

02 

FILLER 

picture  999 

VALUC  273, 

C9B970 

30510 

02 

filler 

PICTURE  999 

value  so.. 

C9B970 

30520 

02 

FIL.ER 

PICTIWE  999 

VALUE  3S.. 

C.8970 

30530 

01 

NO-'jAYS>lN-TEARt  REDEFINES  DAYS' 

-IN-YCAR  STNC. 

C.B970 

30540 

02 

KDAYS  occurs  12  TIMES 

C.B970 

30550 

PICTURE  «... 

C9B970 

30600 

01 

DAYS- IN- YEARS  SYNC. 

C9B.70 

30610 

02 

filler 

PICTURE  K.l 

VALUE  0. 

C.B970 

30620 

02 

filler 

PICTURE  «i|J 

VALUE  365. 

C.B970 

30630 

02 

FIL.ER 

PICTURE  K.] 

VALUC.  73o. 

C98.70 

30640 

02 

FILLER 

PICTURE 

VALUC  10.5. 

C.B970 

30650 

02 

filler 

PICTURE  «AJ 

VALUE  1.61. 

C9B970 

30660 

02 

FIL.ER 

PICTURE  .!•)] 

VALUE  1826, 

C.B970 

30(»70 

02 

FILLER 

PICTURE  .LRI 

VALUE  2191. 

C9B970 

30660 

02 

FILLER 

PICTURE  .t.l 

VALUC  25S6. 

C9B970 

30690 

01 

oay-in-tear-table  redefines  dats-im-tEars  stnc. 

C9B970 

30700 

02 

day  >YtAH  OCCURS 

6 TIMES 

C9B970 

30710 

PICTURE  9C4]. 

C9B970 

30900 

01 

kount 

PICTURE  S99.  computational  value  iero 

SYNC. 

C9B970 

30910 

01 

ANT 

PICTURE  S.9.  computational  value  lERO 

SYNC. 

C9B970 

30920 

01 

LOW  ‘S-li 

PICTURE  XI 8 S. 

C9B970 

30930 

01 

HIGm-S-N 

PICTURE  Xt8]. 

C9B970 

30940 

01 

LCAP-YEAR*66 

PlCTtJRE  9 

STNC  VALUE  .. 

C9B970 

30950 

01 

LEA, ■•YEAR-72 

PICTURE  9 

STNC  VALUE  8, 

C9B970 

30960 

01 

TYP"-A-C 

picture  XC*3. 

C9B970 

30970 

01 

RECuRUS-READ 

PICTURE  .16] 

STNC  value  2CA0. 

C9B970 

30960 

01 

RECOPDS-PASS 

PICTURE  916} 

STMC  VALUC  ZERO. 

C9B970 

30990 

01 

NO-.(EJ-A-C 

picture  ... 

C9B970 

31140 

01 

REJ-S-N  SYNC. 

C9B970 

31150 

02  R-S-N  OCCURS  25  TIMES  OEPCNOING  ON  NO-REJ-**Cv 

C9B970 

31160 

PICTURE  XC8I. 

C9B970 

50U00 

PROCEDUTE  DIVISION. 

C9B970 

50U10 

OPEH-FIl.ES. 

C9B970 

50020 

OPEN  INPUT  1NF1LE>  screen-file# 

OUTPUT  OUTFILE. 

C9B970 

50U30 

PER.  ORM  SCREEN- 

IN  THRU  END-SC-IN. 

C98970 

50100 

READ-INHUI. 

C9B970 

50110 

read  infIle 

C9B970 

bOlJO  at  LNO  00  TO  block-check. 

!>0130  ADD  1 TO  RECORDO-HEAD. 

50100  IF  ’IPt  IS  NOT  EQUAL  TO  TTPE-A-C  THEN  00  TO  REAQ-INPUT. 

50150  IF  UAY-IN  IS  LESS  THAN  1 THEN  GO  TO  RCAD-INPUT> 

50160  IF  S-N  IS  LESS  than  LOK-S-N  THEN  GO  TO  READ-INPUT. 

50170  IF  ^-N  IS  GREATER  THAN  HIGH-S-N  THEN  GO  TO  REaD-INPUT. 

50190  MOVE  itKO  TO  KOUNT. 

50<!00  LOOPl. 

50.rl0  ADD  1 TO  KOUNT. 

50«:20  IF  -.-N  IS  EQUAL  TO  R-S-N  (KOUNT  1 GO  TO  RCAD-InPUT. 

50ir30  IF  KOUNT  IS  LESS  THAN  NO-REJ-A-C  GO  TO  LOOPl. 

50300  CAL-OATL. 

50310  COM.-UTE  KOUNT  > YEAR  - 4. 

50320  IF  KOUNf  IS  LESS  THAN  1 THEN  AOO  10  TO  KOUNT. 

50330  move  MONTH  TO  KNT. 

50340  COMPUTE  JUAY  > UAY-IN  < KOAYS  (KNTI  < DAT-TEAR  (ROUNTJ. 

50350  IF  . OUNT  EQUAL  TO  LEAP-YEAR-GG  THEN  GO  TO  LEAP-YEAR. 

503b0  IF  KOUNI  equal  TO  LEAP-YCAft-T2  THEN  GO  TO  LEAP-TEAG. 

50370  GO  TO  KRlTE-OUTPUT. 

50400  LEAP-YE..R. 

50410  IF  MONTH  IS  GREATER  THAN  2 THEN  ADO  1 TO  JDAT. 

50500  write-output. 

50510  MOVl  DATAA  to  DATAl. 

50520  HOV^  UAIEGRP  TO  DATE-OUT. 

50530  HOVE  UATAD  TO  OATA2. 

50540  HOVE  DATAG  TO  OATA3. 

50550  WRl.E  OuTREC.  ~ 

50560  ADO  1 TO  RECOROS-PASS. 

50570  GO  TO  READ-INPUT. 

50600  BLOCK-CHECK. 

50610  COMfUTE  KOUNT  > RECOROS-PASS  - (CRECORDS-PASS  / 60]  • 60). 

50620  IF  KOUNf  IS  equal  TO  2ERO  00  TO  CLOSE -FILES. 

50e30  L00P2. 

50640  WRl.E  OuThEC  from  NINE. 

50650  AOO  1 ro  KOUNT. 

50O60  IF  KOUNf  IS  LESS  THAN  bU  GO  TO  L0OP2. 

50700  CLOSE-F.LLS. 

50710  CLOSE  INFlLt  WITH  LOCK. 

50720  CLOSE  OuTFlLE  WITH  LOCK. 

50740  DISPLAY  : NUMHEM  OF  RECS-REAO  1 GECORDS-REAU  U^ON  CONSOLE. 

50750  OlSfLAY  : number  of  RECS-PASS  I GECOGDS-PASS  uGON  CONSOLE. 

50760  OlSflAY  : EUJ  9097  1 UPON  CONSOLE. 

50770  GOPACK. 

SOnOO  screen-in, 

5UM10  REA,,  SCREEN-FILE  AT  END  GO  TO  CLOSE-EILES. 

50620  MOV>  UAfA-l  TO  lYPE-A-C. 

50H30  REAu  SCkEEN-FILE  AT  END  GO  TO  CLOSE-FILES. 

50640  move  UAfA-2  TO  NO-REJ-A-C. 

50900  MOVt  2ErO  to  KOUNT. 

5091J  '.-f-l. 

50920  ADL  1 fU  KOUNT. 

50930  REA6  SCmEen-FILE  AT  END  00  TO  CLOSE-FILES, 

50  7'in  MOVE  UA1'-3  to  R-S-N  (KOUNT). 

50950  IF  KOUNf  IS  LESS  THAN  NO-REJ-A-C  GO  TO  S-I-1, 

50960  REAU  SCrEEN-FILE  AT  END  GO  TO  CLOSE-FILES, 

5097.;  move  U*rA-3  TO  LOV-S-N. 

50900  REAP  screen-file  AT  END  GO  TO  CLOSE-FILES, 

50990  MOVE  UAIA-3  TO  HIGH-S-N, 

51000  END-SC-1.9.  exit, 

/.  PLACE  COBOL  SOURCE  BEFORE  THIS  CGGO 

//LHO.TFGIN  DU  • .SPACEX  CYL.l  1 . 1 ]) 

TFG  DTOl  11  0202060 

FI  06  A-C  .YPE 

13  NO  Rl  J A/C 

57U00234 

57U00239 

57U00240 

57001523 

57002507 

57002513 

57002516 

57  02519 

57002523 

57002529 

56000795 

59000061 

59000150 

57UOOOU1 

59997999 

• END 

/A  PLACE  TFG  DATA  BEFORE  THIS  CGGO 

//TPR.TUU  DU  OISP>IOLO.REEP).VOL>SEG>4FG.UN1T>TaFG 

//TPR.TU22  DU  DISPX  OLU.PASS ) 

//TPR.TPRIN  DO  A.SPACEXTRK.d.l]] 

T/P  0)01  16100602060 

T/P  TU14  10500502050 

I/P  TU22  10200502050 

Place  t/p  control  cards  before  this  card 


C9e9T0 

C9a9T0 

096970 

096970 

C98970 

096970 

C98970 

C9e9T0 

C909T0 

C989T0 

C989T0 

096970 

C989T0 

C989T0 

C989T0 

C98970 

C989T0 

C989T0 

C989T0 

C989T0 

C909T0 

C989T0 

C989T0 

C989T0 

C989T0 

C9S9T0 

C969T0 

C969T0 

C9S9T0 

C989T0 

C9S9T0 

C969T0 

C989T0 

C98970 

C96970 

C989T0 

C969T0 

C98970 

C969T0 

C98970 

C989T0 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C989T0 

096970 

C98970 

696970 

C96970 

696970 

098970 

C909T0 

098970 

C9S970 

C9S9T0 

C9S9rO 

IMO  CDS 


Tl« 

Ott-GGSS 


6-29 


6.  3.3 


AIE  SORT 


//C9897R  EXEC  H9b^2N.«>01UiTlME>01 >*CCT>D3S323007 

//CH6.!>0KTIN  .;U  0!>N>«P.9a9S9!>3 1 01  bPX  OLD.OELETE  3.  CD22/29  1 

//  nCH>lLRECL>00!>0>BLK&lZE>3ao01>LABeL>t  >N3L>RETPD>000  ) 

//CHG.SORTOUT  DU  01<>P>C  iKEEP](UNlT>tT4Fl«l>DEFeR]>D3N>*A.9S95«55>  CT12  1 

//  \(UL>SEP>C*Fl.A*Fl,B*Fl,C4F1.04Fl.e«Fl.F»Fl«6*Fl.H*Fl*  CT12  2 

//  :4FliJ4Fl>K4Fl.L4Fl*H4Fl,N4F1.04Fl.P4Fl*04Fl,R4Fl,S4Fl J,CT12  3 

//  DCB>CLRECL>UO!>0>BlkS12E>30001 

//CHG.bYblN  DU  4,DCB»lLK!>I2E>0080>SPACE>tTRK>tl<l  J1 

SORT  FlELDS>CI.2!>>00AiCMiA>0HS>00«>CH>A>0l0<00S>CH>A<00l4  050>CM>Al>  C 
riZE>E0010000 

MODS  ElS>CEls>OOUiSOHTLIU.N]>El0>tEia>O2A>SORTLlB>N] 

/• 

//C9e97T  EXEC  E9603N«T1HE>01>ACCT>035323007 

//CHG.TU12  DD  U1SP>C •KECP]>UN1t>CT4F1<1<0EFER1>DSN>4A,989SAS5>  CT12  1 

//  V0L>S£R>t4Fl,A4FI,B4Fl,C4Fl,D4Fl.e4Fl,F4Fl»64Fl»M4Fl.  CT12  2 

//  l4FltJ4FIfK4Fl.L4Fl>M4Fl.N4Fl»04Fl.P4Fl»04Fl,R4Fl.S4Fl J T12  3 

//CMO.TPRIN  '0  4,SPACE>tTRK,tl.lll 

T/P  TU12  lOAOObOZOSO 


/* 


PLACE  1/P  CONTROL  CAROS  BEFORE  THIS  CARO 


6.3.4  AIE  MERGE 


//r9897M  JOB 
//C9897N  EXEC 
//CM6.S0RT1N01 
// 

// 

// 

//LM6,SORT1N02 

// 

// 

// 

//CMG,SOHTIN03 

// 

// 

// 

//CHG.SORTlNOA 

// 

// 

// 

//CHO.SORTINOS 

// 

// 

// 

//CHG.SOHTlNOfe 

// 

// 

// 

//CHG.SORTOUT 

// 

// 

// 

//CH6.SYSIN 
MERGE  FIElOSXI 


Cl<:  G.  hANG  : .PRrYXOZtTYPRUNXHOLD 
P9bj3Ni I IMt>02<ACCT >035323007 

OU  niSP>t  >KEEPJ,UMIT>tT4FS.I»0EFEH3.0SN>4E.9»95i»55.  CT22 

VOL>StR>C  4Fb>A4F5.ll4F5.C4F5,04FS*E4F5.F4FS»G4F5,H4FS>  CT22 
I«F-j.J44  5.K4FS<L4FS>M4Fb.N4F5.04F5.P4F5.04F5.R4F5.S4FSl*CT22 
rLB>tLRECL>00S0.HLXSI7E>30OO3.LAHEL>t .NSL.RETPD>0993 
00  UlsP>CiXtEP).UNII>CT4F6.1.0EFER3.PSN>4F,9*95<(5S>  CT23 

V3L>SER>C4Fb.A4F6,B4Fb.C4Fb*04Fb*E4F6.F4Fb»G4F6.H4Fb*  CT23 
1 4Fo> J4Fb.X*FbiL4Fb>M4F6.N4Fb.04F6.P4F6*04Fb>R4Fb.S4F6)>CT23 
OCn>CLRECL>UObO.DLXS  1203000  l.LABEL>t.NSL.RETPO>099  3 
00  OISP>C  .XtEPl.UNlT>CT4F7,l,0EFER3,0SN>4G.9895H5b>  CT2<t 

V3L>SLR>C4F7.A4F7.H4F7.C4F7»04F7.E4F7,F4F7>G4F7,H4f7>  CT2H 
l4F7.J4F7.X4F7<L4F7.M4F7.N4F7,04F7.P4F7.04F7.H4F7,S4F73.CT2* 
OLtl>CLRECL>OOS0.HLXS12E>3OOO  J,LABEL>t  .NSL.RETPD>n99J 
Do  DlSPXl  >KEEP1.UNIT>C  T4F8.1.UEFER3.DSN>4h.9896*5S>  CT26 

10L>StR>C  4F8.A4Fn,B4F8.C4Fft.04F8*E4F«,F4F8>G4F8.H4F8>  CT25 
l4Fbt J4FH.K4F8.L4F8»M4F8.N4F8,04F8.P4F8»04F8,H4F8,S4F83.CT25 
OLB>CLRECL>O0S0tRLXS:ZE>30003.LABEL>t .NSL.RETPn>0993 
CJ  OISP>C  >K£EP],UNIT>tT4F2.1.0EFER3.0SN>4B, 9896*66.  CT13 

V0L>SER>1  4F2,A4F2,B4F2,C4F2,n4F2,E4F2.F4F2.G4F2.H4F2.  CT13 
:4F2.J4F2.X4F2.L4F2.M4f2,N4F2.04F2,P4F2.04F2,R4F2.S4F23.CT13 
OCa>CLRECL>U0S0.HLXSIZE>30003.LAREL>[ .NSL.RETPD>0993 
CJ  OISP>C  .XEEP3.UN:T>tT4F3. I. 0EFER3.DSN>4C. 9896*66.  CTl* 

V0L>SER>C4F3.*4F3.B4F3.C4F3.D4F3.E4F3.F4F3.G4F3.H4f3.  CTl* 
I4F3.J4F3.*4F3.L4F3.M4F3,N4F3.04F3.P4F3.04F3,R4F3.S4F31.CT1* 
D>.B>ClRECL>U0S0.RLKS1 20  3000  3. LABEL/!  .NSL > RETPD7099  3 
CJ  UISP>C  .XEEP3.UNIT>C  T4F1.1.0EFER3.DSN>4*. 9896*66.  CT12 

VOL>StR>t  ♦F1.A*F1.04F1.C4FI.04F*..E4F1.F4F1.G4F1.H4f1.  CT12 
I4F1.J4FI  .K4Fl.L4H.M4Fl,N4F1.04FI,P4FI.04Fl,H4FI  ,S4F1  3.CT12 
OvM>! LRECL>UOSO .HLXSl ZE>3000  3 
C J *>UCI)>ULKSIZOOOHO.SPACE>tTRK,l  I,I  33 

026>008.CH>A,U*6.UO*.CH.*.OI0.006.CH.*3 


/4 

//C9897P  EXEC 
//CHG.TU12 
// 

// 

//CHG.TU13 

// 

// 

//LHG.TUI* 

// 

// 

//CHG.TU22 

// 

// 

//CHG.TU23 

// 

// 

//CHG.TU2* 

// 

// 

//CHG.TUZb 

// 

// 


C <bu3N.TIME>Ol.*CCT>036323007 

0‘J  DISP>C  .KEEP  ).UNIT>[  T4F1.1.UEFERJ. nSN>4*. 9896*66.  CTI2 
VOL>SER>t 4F1.*«FI,B4F1,C :.  1 >04FI .E4F1 .F4F I . G4F I . H4FI . CT12 
I«F1. J4F1.K4F1.L4FI.M4f1,N4FI .04F1.P4FI.04F1.R4FI .S4F1 3 TI2 

r;  IJiSPZl  .KEEP  J.UNITZC  T4F2.1.DEFER3.0SN>4H. 9896*66.  CTI3 
V0L>SER>! 4F2,*4F2,B4F2,C4F2.04F2.C4F2.F4F2.G4F2.H4F2.  CT13 
l4Fi.J4F2,K4F2.L4F2.M4F2,N4F2.04F2,P4F2.04F2,R4F2.S4F2 3 T13 
DJ  DISP>C  .KtEP3.UNlT>CT4F3. I. 0EFER1.0SM>4C. 9896*66.  CTl* 
V')L>SER>!  4F3.*4F3.04F3,C4F3.04F3.E4F3.F4F3.84F3.H4F3»  CTI* 
I4F3.J4F3.K4F3.L4F3.M4F3.N4F3.04F3.P4F3.04F3.R4F3.S4F33  TI* 
Du  U1SP>C .KEEP3.UNIT>CT4F6.1.0EFER3.DSN>4e. 9896*66.  CT22 
V1L>6ER>t 4F6.A4F6.B4F6.C4F6.04F6.E4F5.F4F6.G4F5.M4F5.  CT22 
I4F6.J4F5.K4F6.L4F5.M4F5.N4F5.04F5.P4F5.04F6.R4F6.S4F51  T22 
OU  DlSP>C.KEEPl.UNlT>tT4F6.1.0EFEHJ.0SM>4F, 9896*56.  CT23 
VJL>SER>t 4Fb.A4Fb.B4F6.C4F6.04F6.E4F6.F4F6.G4F6.H4F6.  CT23 
I «Fu.j4F6.K4Fb.L4F6.M4Fb.N4F6.04F6.P4F6.04F6.R4F6.S4F6l  T23 
DO  DISP>t  .KEEP  J.UN1T>CT4F7.1.0EFER1.DSM>4g,9895*55.  CT2* 
VJL>SER>t4F7.A4F7.B4F7.C4F7.04F7.E4F7.F4F7.64F7.H4F7.  CT2* 
I »F  r.J4F7.K4F7.L4F7.M4F7.N4F7.04F7.P4F7.04F7,R4FT.S4F71  T2* 
OU  D1SP>C  .KECP3.UNIT>tT4F8.1.0EFCRl.DSN>4H, 9896*55.  CT25 
VUL>SeR>C4FB.A4F8>B4F8.C4F8.D4F8.E4F8.F4F8.G4F8.H4F8.  CT25 
1 'F8.J4F8.K4F8.L4F8.M4F8.N4F8.04Fa.P4F8.e4F8.R4F8.S4F8 3 T25 


2 


2 

3 


//CHO.TPKIN  01  •.bP*CC>tTNK,ll>I]l 

T/P  TUI2  IlOUObOZOSO 

T/P  TUIJ  I02>J0b020S0 

T/P  TUI**  luajObOZoSO 

T/P  TU22  IU2'i0b020S0 

T/P  TU2S  luauObOZOSO 

T/P  TU2**  IU2u0b0Z0S0 

T/P  TU25  1021-ObOZOSO 

/•  PLACE  T/P  CONTROL  CARDS  eCPORC  THIS  CMC 

//l9a97A  JOB  0:>:  G hang  :iPRTT>02*TrPRUN>HOLO 

//C9897B  LXtC  P9fc«:bN,TIME>02.ACCT>OJ532300T 

//LHO.bOKTINOI  ru  UIbP>t  •KLTPliUNITM  A»Fb.2.0CFERl>0SN>AE,9e95it5S>  CT22/23  I 
//  VtL>SLR>t APbiAAf 5>B*Fb.C«Fb.0*F5»E*F5.F»Fb>G*F5(H*F5*  CT22  2 

//  l*Ci,j»Fi,K*FbtL»Fb«H*F5.N«F5»0*F5»P*F5>0*Fb,R«F5(S*F8J,CT22  3 

//  DCi<>CLRLCL>u0b0>nLKSIZE>3000  J>LAbEL>t  >N<>L>ReTPO>099  3 

//CHG.bOHTINOa  Du  0 1 bP>C  iKLlP  1>UNI T >t  A»F ft 2.0EFER  J>0SN>*6.9895<i5S>  CT2*t/2S  1 
//  VO.>SLR>t ♦F7iA*FTiB»FT.CaFT#0*FT»E*F7,F»FT>G*F7.H*F7*  CT2*  2 

//  !♦*  7iJ*F7.K*F7.L*F7.M«F7<N*F7.0*F7.P*F7»0*F7»R*F7»S*F7J»CT2‘*  3 

//  D(.l<>tLRLCL>U0b0>MLKSIZE>30«0  J.LABELX  (NSL •RETPO>099  3 

//(.HG.SORtUUT  Du  DSN>AP.  949b<*b6>D  IbPX  >PASS  J*SPACE>ICTL  . t 009>  OOl  )3*  CD  'OUT 


// 

//CHG.bYblN 
“LRGE  ■ 


DC  l>tLRLCL>U0b0iRLKbIZC>3000 I 
OU  •.UCR>ULKblZL>OOAO*SPACE>tTRK.t ItlJJ 


G.  3.  5 AIE  ELIMINATE  DUPLICATE  RECORDS 


/• 

//L9H9 

//LHOg 

//CM6. 

// 

// 

//CH6* 
OOUOO 
UluSO 
UlUbO 
UIU70 
U2UO0 
o^uio 
u?u;o 
U2J30 
U210U 
02110 
U2120 
U21  JO 
U2l4g 
U2IS'o 
lOUOU 
lOJiO 
10  *20 
lUUJO 
10  4U 
lOubO 
lOUbO 
10U70 
lOUBO 
lOlOO 
lOlIO 
10120 
10130 
lOlMO 
10150 
10160 
JOUOO 
JOUIO 
30U20 
JOOJO 
JOUdO 
jnu50 
J0U60 
50U00 

bouio 

50U20 

bOUjO 

bOUuO 

b0U50 

bOU6U 

50070 

souno 

50U90 
bUlOO 
bOl  10 
50120 
50125 


12  Lxec  1 < tjobi'.*  T1MK>2U*ACCT>0J5323007 

IUI2  ru  f)SN>4P.9H<«bOb6«OISP>COLO#PASS  J D12--IN 

TUld  Du  015P>C «PAS51iUNIT>CT4F3#lt0CrCft)*0SN>AC«9e9545&D  CT19  1 
V(  L>SeR>C 4FJ.A4FJ.H«F3#C>F3#0AF3#C4F3DF^F3*GAr3»H4F3»  CT14  2 

j2K4Fj2t.4F3*At4F3«N4F3*04F3DP4F3*Q4P3>RAFS>S^PS)  T14  3 


INPUT  CU  •.SPACt>tCTL.tl»l JJ 

CC^'^ulNC  COMPttt  Og  aAnGg 

OATt*tePlT  ftJ*.  27  DEC  71* 

RtMARK5«  PMUOHAM  SIFTS  Ale  flLt  TO  etlMlNATe  DUPLtCATe 
AOJACt^U  HeCORUS* 
eNVJMONMFl.T  niVjSION, 

CONFIOUHAriuN  StCTION* 

SOUHCE-COmPuTlH,  IBM* 360, 

OOUtCf-COMPuTtR.  IHM*3feg. 

’NMUT•OuT^  Jl  SECTION, 

PILL-CONTKOl. 

SELtCf  INFILF  ASSION  TO  UT»S»TUl2 

RLbLPvr  I ALTEMNATe  AREA, 

SlltC-  uUrriLE  ASSION  TO  UT-S-TUlO 

PtScRVE  1 alternate  area, 

DATA  OIvISfoN. 

fill  SFlT.OJs. 

FO  INFILt 

mecuhuing  mode  js  f 

BLOCK  CONTAINS  bO  RECOROS 

mloumu  contains  bu  characters 

LAPLL  HLCOROS  ake  omitted 
DATA  HtCOKOS  AKt  INKEC, 

01  INRLT  PICTURE  *tb0]  STNC* 

FO  OUTFTLE 

RECORDING  mode  IS  F 

BLOCK  contains  bO  RECORDS 

RECORD  CONTAINS  50  CHARACTERS 

lapll  records  are  omitted 

DATA  RECORDS  ARE  OUTREC* 

01  OUTREC  PICTURE  XC50)  SYNC, 

WORKING-ST'JRAqe  SECriON. 

01  NUMufH*UUPS  PICTURE  9t073  SYNC, 

01  TEMPREC  PICTURE  Xt 50 3 SYNC* 

01  NINES  SYNC  PICTURE  Xt503  VALUE  I< 

: goi^Q99s99QvR99V9999R99999999999999999999I  • 


CHARACTERS 


01  RECORUS-PASS  SYNC  PICTURE  9t73  VALUE  ZERO, 

01  KNT  COMPUTAI tONAL  SYNC  PICTURE  S999  VALUE  ZERO* 
procedure  division. 

BEGIN, 

OPEN  1*TPUT  INFILEg 
OPEN  0 JlPUT  OUTF  ILF  • 

movl  2Lho  to  numrer-dups, 

read  iNf ILE 

Ai  lN(j  go  to  close-files, 

MOVE  INhEC  to  TEMPREC, 

read  inf  Ilf 

AI  EfiO  OO  TO  CLOSE-FILES, 

COMPARE • 

IF  INkSl  > TEMPREC  GO  TO  COUNT-DUPS, 

■HItF  OUTHEC  from  TEMPREC, 

ADD  I fO  HECOMDS-PASS, 


U90  CDS 
C96970 
C96970 

E C96970 

C9097O 
C9897f) 
€90970 
C9B970 
€96970 
€96970 
C96970 
C989T0 
C96970 
C96970 
C96970 
C96970 
C98970 
C96970 
C96970 
C96970 
C9B970 
C96970 
C96970 
C9B970 
C98970 
C98970 
C96970 
C96970 
C90970 
C96970 
C96970 
C98970 
C96970 
C9B970 

19999999999  C 96970 
C96970 

0,  C96970 

0,  C96970 

C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 


50130  KOVL  1 ikEC  to  TtM^HEC. 

50140  RE»U  I'lULE 

50150  At  end  go  TU  aRlTE-LAST. 

5O160  GO  to  -UMPAHE. 

50170  C0UNT-nuP5. 

50175  IF  INKt.L  IS  equal  70  NINES  60  TO  BLOCK-CHECK. 

50100  Anr  1 lU  numbeh-dups. 

501<)0  REAu  I'lULF 

5n<!00  at  LNU  60  TU  RRITE-LAST. 

50.!10  60  10  CUPPAhE. 

50^20  HR1TL-L*SI. 

50230  4H1TE  tuTHEC  FROM  TEMpREC. 

50235  ADP  1 Tu  HCC0R05-PASS. 

50240  CL05L-F1LL5, 

50250  CLOSE  lliFILE  MlIH  LOCK. 

502b0  CLOSE  OUTFILE  KITH  LOCK. 

50270  DISPLAY  '.NO.  OUPS  t NUNuER-OUPS  UPON  CONSOLE. 

50280  DISPLAY  :lOJ  46S7  X UPON  CONSOLE. 

50290  UOPACK. 

50400  BLOCK-ChECK. 

50410  COMPUTE  KNT  > RLCOROS-PASS  - RECOROS-PASS  / 60  * 60. 

50420  IF  kNI  is  equal  TO  2EHO  GO  10  CLOSE -F ILES. 

50430  NINL-FILL. 

50440  ItRlTE  OUTHEC  FROM  NINES. 

50450  ADD  1 tu  KNT. 

50460  IF  kNT  is  less  THAN  60  60  TO  N|NE-FtLL. 

50470  60  TO  tLOSE-FlLES. 

/•  PLACE  COHOL  SOURCE  BEFORE  THIS  CARO 

//CH6.TFG1N  OU  ••SPACEXCYL.Clilll 

/•  PLACE  TFl  DATA  BEFORE  THIS  CARO 

//IPR.TU14  Ol'  01SP>lOLO.KEEPl.VOL>SER>*F3»ONIT>T*r3 

//TPR.TPRIN  OU  ••SPACLXTRK. 11,111 

T/P  TU14  10400902090 

/•  PLACE  1/7  CONTROL  CAROS  BEFORE  THIS  CARO 


coaoTo 

C989T0 

C989T0 

C989T0 

C989T0 

C98970 

C98970 

C989T0 

C98970 

C98970 

C989T0 

C989T0 

C989T0 

coeoTo 

C989T0 

C98970 

C989T0 

C989T0 

C9B970 

coeoTo 

C98970 

C98970 

C98970 

C984T0 

C98970 

C9B970 

C48970 

1440  COS  ; 


6.3.6  AIE  COPY  ACCEPTABLE  AIRCRAFT 

//C98971  JOB  ri»;  a •*  «PRTY>0^•TTPKUN>HOL0 

//C989?  LAtC  PSobbL. Tl Mt>0l«  ACCT>03532300T 

//cHG.TUl^  00  UZbi^n  •PASS)«UNlT>mPl*l*0CF£RJ»0SN>^A»9895ilSb» 

//  VUi.>S£R>t ♦FI#A>Fi#B^Fl#C4Pl»04Pi*e4FlfP^ri#G4ri»H4pl, 

//  i♦Fl•J♦Fl.A♦Fl.L♦Fl.M♦Fl.N♦Fl•0♦^•P♦Fl•0♦Fl.R♦Fl»5♦F|  J 

//CHG6TU22  00  UlbPK  • PASS  3. uNITH  T4F5»  I •OtFCR  3*OSN>^E  .9895955 » 

//  VOI  >S£R>t ♦Fb«A4F5fe4F^«C4Fs«04Fb*e4F5*F4Fs*G4F5»H4FS» 

//  l4F;.>iJ4Fb»K4Fb»L4F5»M4F5,N4F5#04F5,P4F5,G4F5»R4F5f54F5  3 

//CMG, input  CU  ••SPACL>CCYL»( If  1 33 

UOUOO  CU  ulNE  compile  0.  »AHG. 

01U^0  OATL-WPlTTMf.  27  DEC  71. 

OlUbO  RLMAHKS. 

U1U60  ail  copy  acceptable  aircraft. 

02U0U  ENvIRONrEN'  division. 

02UI0  configuration  section, 

02U20  SOuNCE-COMPoTeR.  IHR-360. 

02U30  OBjECT-LOH.'uTER,  IflM-360. 

02100  1NPU7-0UTP'IT  SECTION, 

02110  FZLE*CONTHOLp 

02120  select  infile  ASSIGN  TO  UT-S^T^it 

02130  RE’.lRvE  1 alternate  AREA, 

U2140  SELcCT  uUtFILE  ASSIGN  TO  UT-S-TV22 

02150  RESERVE  1 ALTERNATE  AREA, 

02160  select  accent-file  ASSIGN  TO  OA-S*OT01 

02170  RtS.RvE  1 alternate  AREA, 

lOUOO  data  OlvZbluN, 

louio  file  SFLTIOn. 

10020  FU  infill 

10030  RECORJl'fG  MODE  IS  F 

10040  BLOCK  CuNtAINS  60  RECORDS 

lOUbO  RECORD  CONTAINS  50  CHARACTERS 

10U60  lapel  I eCOROS  are  OMITTED 

10070  DATA  HFcOrOS  ARE  ZNREC, 

10U80  01  INPeC  StNc, 

10U90  02  FI-lEm  picture  AC503. 

lOlOO  FD  OUTFlL'^ 

10110  RECoRUlt^G  MODE  IS  F 

10120  BLOCK  contains  60  RECORDS 

10130  RECORU  CONTAINS  50  CHARACTERS 

10140  lapel  Records  are  omitted 

10150  DATA  RLCORDS  ARL  OUTREC. 

10160  01  outhel  sYnc, 

10170  02  FitLER  PICTURE  X1503. 

11400  FO  ACCtPT-FlLE 

11410  RECORDING  MODE  IS  F 

11420  BLOCK  contains  20  RECORDS 


CT12 

C712 

T12 

CT22 

CT22 

T22 


1440  CDS 
C9B970 
C9B970 
C9B970 
C9B970 
C9B970 
C9B970 
C9B970 
C98970 
C9B9T0 
098970 
C96970 
C98970 
C9B970 
C98970 
C98970 
C98970 
096970 
C98970 
C9B970 
C9B970 
C98970 
098970 
C9B970 
C96970 
C98970 
C98970 
C98970 
C98970 
C9B970 
C98970 
C98970 
C98970 
C98970 
C9B970 
C98970 
C98970 


(>-32 


PECORD  contains  BO  CHARACTERS 

LAPLL  HLCOROS  AHE  STANDARD 
data  HLCOROS  ARE  ACCEPT*REC« 

ACCEPT  KEC  STNC. 

02  AcrtPT-OATA  picture  XC80)* 

02  FILLER  REDEFINES  ACCEPfDATA. 

03  OaTA*I  picture  999* 

03  Filler  picture  xcttj. 

02  filler  redefines  ACCEPfOATA* 


03  OATA-2 
03  filler 

»»ORK|NG-SICkAgE  SECriON. 

01  data-in  Sync . 

02  filler  PICTURE  XC29  3* 

02  Slh.no  picture  XC8)* 

02  FILLER  PICTURE  XCiBl* 

01  KNT  SYt^L  computational  PICTURE  S999* 

01  NUPbEK-.iECOROS-PASS  SYNC  PICTURE  9C6J  VALUE  2ERO* 

01  hlNL  SY  .C  PICTURE  XCSO)  VALuC 

: 4q<^Q9999999R99999994999999999999999999999999999999:  • 
TAPlE-AcClPT-A-C  sync, 

02  ACC*-RT-A-C  occurs  250  TIMfS  DEPENDING  ON  N0-ACCEPT*A*C 

PICTURE  XCBJ* 

N0-ACCL»^T-A-C  sync  picture  999* 

TE»V-ACLEPT-A-t  SYNC  PICTURE  *t8l* 

INC  SYL,  computational  picture  S999  VALUE  <1. 


PICTURE  XCBJ* 
PICTURE  Xt723. 


ACCi-PT-A-C  occurs 


//CHO. IFGIN 
IFO  0101 
ISO 

57000231 

57000232 

bTu0023‘j 

5^000236 

57000^37 

57O00243 

57u(iU?‘»‘* 

b7002‘»5b 

5700245b 

5TO02454 

57002459 

57u024b3 


01  N0-ACCL»^T-A-C  sync  picture  999* 

01  TE»V-AClEPT-A-L  sync  picture  XC8)* 

01  INC  SYL,  computational  picture  S999  VALUE  <1. 

PHOCtOUht  "IVISION. 

HLGUi. 

OPE.'i  INPUT  INF  Ilf,  ACCEPT-FILE. 

opfn  01  (Put  out»^ilE4 

pfpfOH*'  Reau-accept-oata  Thru  end-r-a-d* 

RLAu-FlLtS, 

HEAu  IN  iLE  AT  END  00  TO  CLOSE -FILES, 

MOVL  IN-^EC  TO  UATA-IN, 

TLsri, 

IF  0 IS  LESS  than  TEHp-ACCEPT-A-C  00  TO  REA0*F1LES* 

IF  iO  IS  EOUAL  TO  TEHP-acCEPT-A-C  00  TO  vRITE^OATA, 

AD^  I fv  INC. 

IF  INC  iS  OhEATlR  than  no-accept-a-c  go  to  BLOCR-CHECK, 

KOvl  aCvEPT-A-C  flNC)  TO  TEMP-ACCEPT-A-C* 

GO  10  ^lSTI. 

MHl Tt«OAT A, 

• Rlie  j'jTHFC  from  OATA-IN, 

ADO  1 Tj  NUMPER-RLCOHOS-PASS. 

GO  TO  R‘.*U-FlLtS. 

HLOCK-f  Hf  C**  . 

CO'VUU.  »fJT  > NuMjf  k-RLCORoS-PASS  • C(NUMBER*RCCORDS*PaSS  / 
6Ul  • bOJ* 

IF  I IS  rwUAL  TO  2FRO  GO  TO  CLOSE-FILES, 

LOCPl. 

• KIU  • >TkCL  FROM  NlTiL, 

AOn  1 T . KNI  , 

IF  rrji  IS  less  THAN  bO  GO  TO  LOOPl, 

CLOSE-T 11  US. 

CLOSE  1 jFile  with  LOCK#  ACCEPT-FiLE  WITH  LOCK* 

cLOsf  ontfilf  with  LOCX, 

DISPLAY  NUMbEK-KECOHns-PASS  UPON  CONSOLE* 

DISPLAY  :E0J  9B97  I UPON  CONSOLE, 

GOPACk, 

READ-ACLEPT-OATA, 

read  AClEPT-FILL  at  end  go  to  ENO-R-A-0* 

MOVE  DAfA-1  TO  NO-ACCEPT-A-C, 

MOVt  2k  MO  TO  KNI . 

RAD-I, 

ADO  1 TO  KNT, 

mead  AC  EPT-F|Lt  AT  END  GO  TO  EHD-R-A-Q* 

MOVE  UAyA-2  to  ACCEPT-A-C  crntj, 

IF  fkNT  IS  LESS  THAN  NO-ACCEPT-A-C  00  TO  RAO-l* 

MOVE  AC4.FPT-A-C  riJ  TO  TENP-ACCEPT-A-C, 

END-R-A-D.  'xit, 

PLACE  COBOL  SOURCE  BEFORE  THIS  CARO 
FGIN  DO  •*SPACL>CCTLtClf| ]J 
01  II  o:020Ho 


C98970 
C98970 
C98970 
C 98 970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C9B970 
C9B970 
C9B970 
C9B970 
C98970 
C 96970 
C96970 
C98970 
C98970 
C9B970 
, C9B970 

C9B970 
C9S970 
C96970 
C96970 
C98970 
C9B970 
C9B970 
C9B970 
C9S970 
CRB97n 
COB970 
C9BQ70 
C9S970 
C9B970 
C9A970 
C9B970 
C9B970 
C9B970 
C9B970 
C9B970 
C9B970 
C9B970 
C9B970 
C9B970 
C9B970 
C98R70 
C9B970 
C9B970 
C9B970 
C9B970 
C9B970 
C9B970 
C9B970 
C9B970 
C9B970 , 
C98970 
C96970 
C96970 
C9B970 
C9B970 
C96970 
C9B970 
C96970 
C9B970 
C9B970 
C9B970 
C9B970 
C9B970 
C96970 
C96970 

1990  COS 


G-33 


5700^470 
57u0i473 
b7u0247b 
b7u02477 
b7U024b2 
b7U024b3 
b7U024bb 
57U02456 
57U024V0 
b7U02491 
57U024V3 
57U02494 
b7U02496 
b7U025u3 
57U025U4 
b7u025U5 
b7U025UA 
57U 02509 
57U02515 
57U02517 
b7U02520 
b7U02b24 
b7U02527 
b7U02S26 
57U02532 
b7U02533 
b7u02537 
b7u02S3A 
b7U02540 
S7U02543 
b7u02545 
b7U02S46 
b8U00760 
bBu0Cl7b6 
b8U0U7b7 
b8U00772 
b8UU0773 
b8U0077b 
b8U007/7 
b8U007/A 
S8uOU7bO 
sauu07bi 
b8U007b3 
b8U0U7bS 
b8U0U7b6 
b8U007U8 
S6U00792 
b8u00797 
b8UU09U0 
bau009Ul 
b8U009U3 
bBU009U4 
b9U000U2 
bQU000u3 
b9U000U4 
b9U0U0U5 
b9U000Ub 
b9U000U7 
b9U000Ub 
b9u00010 
b9U000i2 
59U00015 
b9U0U016 
bPuOOOlS 
b9U000i9 
59U0U024 
b9U0002b 
b9u00026 
b9U000<7 
b9U00028 
b9U00030 
b9u00031 
b9U00033 
59U0O035 
59U00043 
59U00044 
b9U00046 
59U00048 
59U000bl 
b9U000b2 
59U00053 
59U000b4 
59U000b6 
b9U000b7 
59000056 
59u000b9 
59U000b0 
59U000b3 


T 


5qU000b« 

5qU0U0b5 

&9U000b7 

5qu000b9 

b9U0b07a 

59U00074 

b9U0007b 

b9u00078 

b9U0U0B0 

59U000ua 

89000084 

59000085 

59000008 

39000090 

59000092 

59000094 

5900009b 

59000098 

59000099 

59000103 

59000104 

59O00105 

59000108 

59000109 

59000110 

59000115 

5900011b 

59U00119 

59000126 

59000127 

59000128 

59O00130 

59000132 

59o00133 

59000137 

59000138 

59000141) 

59000141 

59000143 

59000144 

59000145 

59000145 

59000147 

59000149 

59000151 

59000152 

59000153 

5900015b 

59000157 

59000184 

»EN0 

/•  PL3CE 

//TPR,TU12 
//TPR.TU22 
//TPR.IPRlN 


TFG  r*T*  BEFORE  THIS  CARO 

Ou  01SP>t0L0.KEEP7»V0L>SER>FPl»t7NIT>TFFl 
PU  015P>COLO.KEEPlfVOL>5EH>*P5»UNlT>TFP5 
00  •.5P*CL>CTRFftlfl 11 


I/P  OTOl  102008>'2080 
T/P  TU22  10500502050 

/•  PLACE  T/P  CONTROL  CAROS  BEFORE  THIS  CARO 


Tl* 

T22 


6 3r, 


6.  4 IRAN  FILE  GENERATION  PROGRAMS 

6.  4. 1 IRAN  FORMATTER  OF  ACCEPTANCE  DATA 


//T9897X  JOB  01$ i 0.  BANQ«  S »PHTY>02>TYPRUN>H0L0 
//C9697X  BxeC  P96bSt»nMe>02*ACCT>035323007 
//CHO.INPUT  00  •»SPAC£>CCYL»C4»in 
<r00U00  COMdlNB  compile  6«  «AmC, 

01040  DATE-WRITTEN,  Si  JAN  72« 

01U50  REMARKS,  PHuGRAM  NAME-  IRAN  ACCEPTANCE  OATE  DATA  PREPROCESSOR. 
U1U6U  INPUT  -IRAN  ACCEPTANCE  DATE  DATA  CAROS, 

U1U70  0UTPUT*1RAN  acceptance  OATE  OATA  TAPEC6-0lG«SER . < JOATE 

U2U00  ENVIRONMENT  OlVlSlON, 

U2U1U  configuration  StCTlON, 

02U2U  SOURCE-COMPuTbR, 

02U30  OBJECT-CONHUTER,  iHM-jbO, 

02100  inhut-Outhut  section, 

0211U  FILE-CONTrOl, 

U2120  SELECT  INCAROA  ASSIGN  TO  UT-S-TIJ12 

U213U  Reserve  i alternate  area, 

U2140  SELECT  KIlEACCPT  ASSIGN  TO  UT-S-TU|S 

U2150  Reserve  i alternate  area, 

lOUOO  DATA  DIVISION, 

locilo  file  section. 

10100  FO  INCAPUA 

10120  RECURUING  MODE  IS  F 

10130  bLOcK  Contains  ui  recoros 

10140  RECuRu  contains  dU  CHARACTERS 

10150  LAPlL  hlCoRUS  AhE  OMITTED 

1U16U  DATA  nCCOROS  ARE  INCArDA-1 TAN, 


1440  CDS 
C9B970 
C96970 
C9a970 
C96970 
C96970 
C96970 
C96970 
€96970 
€96970 
C96970 
C96970 
€96970 
C96970 
C 96970 
C96970 
C9B970 
C96970 
C9b970 
C96970 
C96970 
C96970 
C96970 
C96970 


10200 

01 

INCaRuA-IRAN  sync. 

C96970 

1021U 

02 

SeH-1-2 

PICTURE 

99, 

C9b970 

10220 

02 

SeR-3-6 

PICTURE 

9999, 

C90970 

1023u 

02 

FUlEr 

PICTURE 

XCIOI. 

C96970 

10240 

02 

wg 

PICTURE 

99, 

€96970 

10250 

02 

(A 

PICTURE 

99. 

C96970 

10250 

02 

VK 

PICTURE 

99. 

C9A970 

10270 

02 

File!  K 

picture 

KCbOl. 

L96970 

11100 

FU 

FlLt*tC>-T 

C98970 

11120 

recuKuIno  mooe 

is  F 

C9»970 

11130 

BLOCK  contains 

01  hecorus 

C98970 

11140 

KECURU  CONTAINS 

60 

characters 

C96970 

11150 

LABcL  I^eCORUS  AkE  OHITTEO 

C98970 

11160 

DATA 

1 HEeOrOS  are  F1LEACCPT-] 

[RAN. 

€96970 

11200 

01 

fillaccbt-jran 

SYNC, 

€96970 

11210 

02 

filler 

PICTURE 

XCOOl. 

€96970 

30000 

WORKING- 

•STOkAijE  SECTION. 

€96970 

30020 

01 

jyr 

PICTURE 

S99  COMPUTATIONAL 

VALUE 

zero 

sync. 

C96970 

30030 

01 

iyr 

PICTURE 

S99  COMPUTATIONAL 

VALUE 

zero 

SYNC. 

C9b970 

30040 

01 

I MO 

PICTURE 

S99  COMPUTATIONAL 

value 

zero 

SYNC. 

C96970 

30050 

01 

lOA 

PICTURE 

S99  computational 

value 

zero 

SYNC. 

€96970 

30060 

01 

JOAY 

PICTURE 

S999  computational 

VALUE 

ZERO 

sync. 

€96970 

30100 

01 

RECOPUS-REAO 

PICTURE 

9C6J  SYNC 

VALUE 

zero. 

€96970 

3011U  01  RECORUS-PASS  picture  9(6}  SYNC  VALUE  ZERU, 


C96970 


31000  01  uays-in-tear  sync. 


C9b970 


31010 

02 

filler 

PICTURE 

999 

VALUE 

0, 

C98970 

31020 

U2 

filler 

PICTURE 

9V9 

VALUE 

31, 

€96970 

3103U 

02 

FILLER 

PICTURE 

999 

VALUE 

59, 

C96970 

3104U 

02 

filler 

PICTURE 

999 

value 

90, 

€96970 

31U50 

02 

FILLER 

PICTURE 

999 

VALUE 

120, 

C96970 

31U60 

02 

FILLER 

PICTURE 

999 

value 

151, 

C96970 

31U70 

02 

FILLER 

picture 

999 

VALUE 

161, 

€96970 

31U60 

02 

FILLER 

PICTURE 

999 

value 

212, 

C98970 

31090 

02 

FILLER 

PICTURE 

999 

VALUE 

243, 

C96970 

31100 

02 

FILLER 

PICTURE 

999 

value 

273, 

C96970 

31110 

02 

FILLER 

PICTURE 

999 

VALUE 

304, 

C96970 

3112U 

02 

FILLER 

PICTURE 

999 

VALUE 

334, 

€96970 

31130 

01 

NO-OAYS-IN-YEAR  RrOEFIHES  oays-in-year  sync. 

C98970 

31140 

02 

KUAYS  occurs  12 

times 

C96970 

31150 

PICTURE 

999, 

C98970 

32U00 

01 

oays-in-years  syn  '. 

C96970 

32010 

02 

filler 

PICTURE 

9999 

value 

0, 

C96970 

32U20 

02 

FILLER 

PICTURE 

9999 

VALUE 

365, 

C96970 

32U30 

02 

filler 

PICTURE 

9999 

value 

730, 

C96970 

32U40 

02 

filler 

PICTURE 

9999 

VALUE 

1095, 

C98970 

32U50 

02 

filler 

picture 

9999 

VALUE 

1461* 

C96970 

32U60 

02 

filler 

PICTURE 

9999 

VALUE 

1626, 

C96970 

32070 

02 

FILLER 

PICTURE 

9999 

value 

2191, 

C98970 

32080 

02 

filler 

PICTURE 

R999 

. VALUE 

2556, « 

C96970 

32090 

02 

FILLER 

PICTURE 

9999 

value 

2922, 

C96970 

32100 

02 

filler 

PICTURE 

9999 

value 

3267, 

C98970 

32110 

02 

FILLER 

PICTURE 

9999 

value 

3652, 

C96970 

32120 

02 

FILLER 

PICTURE 

9999 

VALUE 

4017, 

C98970 

321 30 

02 

filler 

PICTURE 

9999 

VALUE 

4363, 

C96970 

6-36 


32140 

02 

filler 

PICTURE 

9999 

value 

«7«a. 

C98970 

32150 

02 

filler 

PICTURE 

9999 

VALUE 

5113. 

C9e970 

32160 

02 

filler 

PICTURE 

9999 

value 

5ATa. 

C98970 

32170 

02 

filler 

PICTURE 

9999 

value 

5a«4. 

C98970 

32180 

02 

filler 

PICTURE 

9999 

VALUE 

6209. 

C9e970 

32190 

02 

filler 

PICTURE 

9999 

value 

65T*. 

C9e970 

32200 

02 

filler 

PICTURE 

9999 

value 

6939. 

C9e970 

32210 

02 

filler 

PICTURE 

9999 

VALUE 

7305. 

C96970 

32220 

01 

day 

-in-year-table  redefines 

days* 

in-vcars 

SYNC. 

C9e970 

32230 

02 

day-year  OCCURS 

21  TIMCS 

C96970 

3223b 

PICTURE 

9999* 

C98970 

36UOO 

01 

fillaccpt-ihan-kotk 

Sync, 

098970 

36U10 

02 

SLR1*L 

PICTURE 

9Ca  J* 

C96970 

36U20 

02 

filler 

PICTURE 

XX 

value 

SPACE. 

098970 

36U30 

02 

OAY-NO  PlCfURC 

C96970 

36040 

02 

filler 

PICTURE 

Xt65l 

VALUE 

SPACE. 

C98970 

36U50 

02 

RCDMK-0 

PICTURE 

X 

value 

I»l. 

C96970 

bOUOO 
bOUlO 
b0U20 
bOUSO 
50200 
b0210 
50220 
50230 
bOHOO 
bO«lO 
bObOO 
bUblO 
50b20 
bObJO 
bOb«iO 
b0700 
bO  /Id 
b0/20 
blUOO 
blolO 
bl020 
bld30 
blOMO 
b1  ubO 
blUhU 
bly70 
‘ lOPO 
blo<JO 
blJOU 

51  no 

bl  I’O 
bil  ^0 
51 11*0 
bl  ISP 

uuo 

SJUIO 

b00'»0 

dUO^U 

f>n2oo 

b0210 

oOJOO 

b0310 

60>320 

b0330 

b0340 

bOJbO 

oOJbU 

/♦ 


PROCLOUHE  OIVISION. 

OPtN-FiLES. 

OPEN  INPUT  INCAR0>, 

OPEN  OUTPUT  FlLtACCPT. 

REAOl. 

read  INCAroA 

At  eno  go  to  BLOCK-CHCCK* 
ADD  1 TO  RECOROS-REAO, 

CONVERT-Sk.R  I Al-NO  « 

COMPUTE  Serial 


> SCR*1«2  # 1000000  < SCR*3*6« 


dUAY-SCTUPl, 
MOVE  UA 
HOVE  HO 
f.OvL  T« 


TO 

TO 

TO 


lOA. 

IMO. 

IYR. 


00  TO  CONvERT-OATE. 

CONVtRT-tATL. 

f'ERFOnH  0AYS-flEF0'lE-AFTER-0EC-31*6%  THRU  0AyS*EN0» 
GO  TO  WhlTF-OUTPUT . 

DAYb-MPf-OHL-AFTER-OLC-il-bP* 


> 

> 

0 GO 
•*  GO 


COHPUTJ  dfR 
COMruTF  dOAY 

IF  jTH  cOuAL 
JYH  tOuAL 
JYR  LOuAL 
JYH  LOUAL 
JYH  C.OUAL 
jYh  LOuAL  20  GO 
TO  JuLlAN*OATi, 


!yR  • 56« 

lOA  < KOAyS  tlNOJ, 
TO  leap-year. 

TO  leap-year* 

8 GO  TO  leap-year, 

12  CO  TO  leap-year. 

16  CO  TO  leap-year, 

TO  leap-year. 


OAY-YEAR  CJYRJ  < JOAY 
EXIT. 


2922. 


IF 
IF 
IF 
IF 
IF 
00 

LEAP-YFAf^. 

ir  iMo  IS  LLSS  than  3 GO  To  JULIAN^OAyS* 

^n^  i To  jhay. 

JULlAU-uAys. 

COHpuiF  Day-no 
OPrb-tNu. 

V'iUL-PuTP'  I . 

•HITF  F ILCACCPT-I-RAN  FROM  FlLEACCPT«lRAN*VORK. 

ADO  I TO  HECOROb-PASS. 

GO  TO  HtAOl. 

‘JLOCK-CmECK. 

GO  TO  close-fills. 

close-fills, 

CLOSE  If^CAROA  SITH  LOCK, 

CL  SE  FlLEACCPT  ilTH  LOCK, 

display  : CARDS  READ  1 RECORDS-REAO  UPON  CONSOLE. 
DISPLAY  ; RECOROS-OT  ; RECOROS-PASS  upon  console, 
display  : EOJ  C9fe97  I UPON  CONSOLE, 

GOBACK. 

PLACE  COBOL  SOURCE  BEFORE  THIS  CARO 


//tHG.TFGlN 
TFG  TU12 

DO  •»5PACt>i:CYL 

11  0012080 

U7  229 

0 

7 

158 

1 

b7  230 

0 

6 

156 

1 

S7  231 

0 

7 

156 

1 

7 232 

0 

7 

158 

1 

.27  235 

0 

8 

158 

1 

b7  236 

0 

9 

158 

1 

b7  237 

0 

9 

158 

1 

57  241 

0 

9 

156 

1 

1 

b7  243 

0 

10 

158 

1 

1 

57  244 

0 

12 

156 

1 

57  ?'»S 

0 

11 

156 

1 

1 

57  246 

0 

3 

159 

1 

572453 

0 

4 

159 

1 

1 

572455 

0 

4 

159 

1 

1 

572456 

0 

5 

159 

1 

572457 

0 

4 

159 

1 

572458 

0 

4 

159 

1 

572459 

0 

5 

159 

1 

G-37 


coeoTO 
C98970 
C96970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C 98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
098970 
098970 
C98970 
C98970 
C98970 
C 98970 
098970 
C 98970 
098970 
098970 
098970 
C98970 
C98970 
C98970 
098970 
C98970 
C98970 
C98970 
C98970 
098970 
098970 
C98970 
C98970 


U90  COS 


57^460  0 
572461  0 
572463  0 
572464  0 
572465  0 
572466  0 
572467  0 
57246<9  0 
572470  0 
572472  0 
572473  0 
572475  0 
572476  0 
572477  0 
572478  0 
572480  0 
572481  0 
572482  0 
572483  0 
572485  0 
572486  0 
572487  0 
572490  0 


572491 

0 

572492 

0 

572493 

0 

572494 

0 

572495 

0 

572496 

0 

572497 

0 

572498 

0 

572499 

0 

5725U0 

0 

572501 

0 

572502 

0 

572503 

0 

572504 

0 

572505 

0 

572506 

0 

572506 

0 

572509 

0 

572510 

0 

572512 

0 

572514 

0 

572515 

0 

572517 

0 

572518 

0 

572520 

0 

572521 

0 

572522 

0 

572524 

0 

572526 

0 

572527 

0 

572528 

0 

572530 

0 

572531 

0 

572532 

0 

572533 

0 

572535 

0 

572536 

0 

572537 

0 

572538 

0 

572539 

0 

572540 

0 

572541 

0 

572543 

0 

572544 

0 

572545 

0 

572546 

0 

572547 

0 

58  759 

0 

56  760 

0 

56  764 

0 

58  765 

0 

56  766 

0 

58  767 

0 

58  768 

0 

58  769 

0 

58  772 

0 

58  773 

0 

58  774 

0 

58  77b 

0 

58  776 

0 

58  777 

0 

58  778 

0 

58  779 

0 

4 159  1 ; 

5 159  1 ; 
5 159  1 ; 

5 159  1 : 

6 159  1 

4 159  1 : 

5 159  1 
5 159  1 
5 159  1 
5 159  1 

5 159  1 

6 159  1 
6 159  1 
6 159  1 
6 159  1 
6 159  1 
6 159  1 

6 159  1 

7 159  1 
7 159  1 
7 159  1 

7 159  1 

8 159  1 
7 159  1 

7 159  1 

8 159  1 
7 159  1 

7 159  1 

9 159  1 

8 159  1 

9 159  1 
9 159  1 
9 159  1 
9 159  1 
9 159  1 
9 159  1 
9 159  I 
9 159  1 
9 159  1 
9 158  1 

7 158  1 

9 158  1 

11  158  1 

10  158  1 

12  158  1 
5 159  1 

8 159  1 
7 159  1 
7 159  1 
7 159  1 
7 159  1 

9 159  1 
7 159  1 
7 159  1 
9 159  1 
9 159  1 

10  159  1 
lU  159  1 

11  159  1 

11  159  1 

12  159  1 
12  159  1 
12  159  1 
12  159  1 
12  I5Q  1 
12  159  1 

2  160  1 
2 160  1 

3 160  1 

4 160  1 

10  159  1 
9 159  1 
9 159  1 
9 159  1 

lU  159  1 
10  159  1 
9 159  1 
9 159  1 
10  159  1 
10  159  1 

10  159  1 
9 159  1 

10  159  1 

10  159  1 

11  159  1 
in  159  1 


1 


58 

760 

0 

11 

159 

58 

781 

0 

11 

159 

58 

782 

0 

11 

159 

58 

783 

0 

11 

159 

58 

784 

0 

10 

159 

58 

785 

0 

11 

159 

58 

786 

0 

11 

159 

56 

787 

0 

11 

159 

58 

768 

0 

10 

159 

58 

789 

0 

10 

159 

58 

790 

0 

11 

159 

58 

791 

0 

12 

159 

58 

792 

0 

11 

159 

58 

793 

0 

12 

159 

58 

797 

0 

11 

159 

58 

798 

0 

11 

159 

58 

900 

0 

3 

160 

58 

901 

0 

4 

160 

58 

902 

0 

5 

160 

58 

903 

0 

6 

160 

58 

904 

0 

6 

160 

59 

001 

0 

11 

159 

59 

002 

0 

11 

159 

59 

003 

0 

11 

159 

59 

004 

0 

11 

159 

59 

005 

0 

11 

159 

5Q 

006 

0 

12 

159 

59 

007 

0 

12 

159 

59 

008 

0 

12 

159 

59 

009 

0 

12 

159 

59 

010 

0 

12 

154 

59 

Oil 

0 

12 

159 

59 

012 

0 

12 

159 

59 

014 

0 

12 

159 

59 

015 

0 

12 

159 

59 

016 

0 

12 

159 

59 

018 

0 

12 

159 

59 

019 

0 

1 

160 

59 

020 

0 

1 

160 

59 

021 

0 

1 

IbO 

59 

022 

0 

1 

IbO 

59 

023 

0 

2 

160 

59 

024 

0 

1 

160 

59 

025 

0 

1 

160 

59 

026 

0 

1 

160 

59 

027 

0 

2 

160 

59 

028 

0 

1 

160 

59 

030 

n 

1 

160 

59 

C31 

) 

2 

160 

59 

032 

•) 

2 

IbO 

59 

033 

u 

1 

160 

59 

034 

0 

2 

IbO 

59 

035 

0 

3 

160 

59 

036 

0 

2 

160 

59 

037 

0 

3 

160 

59 

030 

0 

2 

160 

59 

040 

0 

2 

IbO 

59 

042 

0 

3 

160 

59 

043 

0 * 

2 

160 

59 

044 

0 

3 

IbO 

59 

046 

0 

2 

160 

59 

047 

0 

3 

160 

59 

048 

0 

3 

160 

59 

049 

0 

3 

160 

59 

051 

0 

3 

160 

59 

052 

0 

3 

160 

59 

053 

0 

4 

160 

59 

054 

0 

3 

160 

59 

056 

0 

3 

160 

59 

057 

0 

4 

160 

59 

058 

0 

4 

160 

59 

059 

0 

3 

160 

59 

060 

0 

4 

160 

59 

062 

0 

4 

160 

59 

063 

0 

5 

160 

59 

064 

0 

5 

160 

59 

065 

0 

4 

160 

59 

066 

0 

4 

160 

59 

067 

0 

5 

160 

59 

068 

0 

5 

160 

59 

069 

0 

5 

160 

59 

071 

0 

5 

160 

59 

072 

0 

5 

160 

59 

074 

0 

6 

IbO 

59 

075 

0 

6 

160 

59 

076 

0 

6 

160 

59 

077 

0 

6 

160 

6-39 


b9  078  0 

6 160  1 : 

b9  079  0 

6 160  1 : 

b9  080  0 

6 160  1 

b9  081  0 

6 160  1 

b9  082  0 

6 160  1 

b9  083  0 

6 160  1 

b9  089  0 

6 160  1 

b9  OSb  0 

6 160  1 

b9  086  0 

6 160  1 

b9  080  0 

7 160  1 

89  089  0 

7 160  1 

b9  090  0 

7 160  1 

b9  0 91  0 

7 160  1 

b9  092  0 

7 160  1 

b9  093  0 

0 160  1 

b9  099  0 

7 160  1 

b9  098  0 

7 160  1 

89  096  0 

e 160  1 

89  0 97  0 

7 160  1 

89  099  0 

6 160  1 

89  100  0 

8 160  1 

89  101  0 

7 160  1 

89  102  0 

a 160  1 

89  103  0 

a 160  1 

89  109  0 

7 160  1 

89  108  0 

a 160  1 

89  106  0 

a 160  1 

89  108  0 

a 160  1 

89  109  0 

a 160  1 

89  110  0 

a 160  1 

89  112  0 

10  160  1 

89  118  0 

11  160  1 

89  116  0 

11  160  1 

89  110  0 

11  160  1 

89  119  0 

11  160  1 

89  121  0 

9 160  1 

89  122  0 

11  160  1 

89  123  0 

11  160  1 

89  128  0 

11  160  1 

89  126  0 

11  160  1 

89  127  0 

9 160  1 

89  120  0 

11  160  1 

89  129  0 

12  160  1 

89  130  0 

11  160  1 

89  131  0 

11  160  1 

89  132  0 

11  160  1 

89  133  0 

12  160  1 

89  13H  0 

1 161  1 

89  138  0 

12  160  1 

89  136  0 

1 161  1 

89  137  0 

1 161  1 

89  130  0 

1 161  1 

89  IHO  0 

1 161  1 

89  161  0 

1 161  1 

89  163  0 

1 161  1 

89  1*6  0 

1 161  1 

89  1«8  0 

2 161  1 

89  166  0 

1 161  1 

89  167  0 

2 161  1 

89  168  0 

1 161  1 

89  169  0 

6 160  1 

89  181  0 

6 160  1 

89  182  0 

7 160  1 

89  183  0 

7 160  1 

89  188  0 

a 160  1 

89  187  0 

a 160  1 

89  180  0 

10  160  1 

89  189  0 

9 160  1 

89  160  0 

11  160  1 

89  161  0 

9 160  1 

89  162  0 

12  160  1 

89  163  0 

12  160  1 

89  166  0 

1 161  1 

89  168  0 
•ENO 

1 161  1 

/•  PLACE  TFO  DATA  C 

//TPR.TU13 

00  OISP3 

//TPR.TPRIN 

00  *>SP« 

T/P  TU12 

12OOO8OZ08O 

T/P  TU13 

12000802080 

/•  PLACE  T/P  CONTRO 

fmt  THIS  CARO 
OlOfPASSl 
iCOCTRKfClflll 


i 


6-40 


6.  4. 2 IRAN  PREPROCESSOR 


//C^e^TY  tXEC 
//CHG.TUn 
//CHO.TU22 
// 

// 

//CHG. INPUT 
-00000 
.01040 
01050 
01060 
01070 
OlOOO 
01090 
02000 
02010 
02020 
02030 
02100 
02110 
02120 
02130 
02140 
02150 
02160 
02170 
02180 
02190 
10000 
10010 
11100 
11120 
11130 
11140 
11150 
11160 
11200 
11210 
12100 
I M20 
12130 
12140 
12150 
12160 
12200 
12210 
13100 
13120 
19130 
1314U 
13150 
13160 
13200 
13210 
14100 
14120 
14130 
14140 
14150 
141^,0 
14^00 
14210 
30000 
30020 
30010 
.*  0»>40 
30U50 
30060 
30100 
30110 
30230 


PV6t>5LiTlMC>02iACCT>03S323007 
OU  UTSPHC.OiPAsSl 

tu  01SP>C  •PASSliUN|T>CT4f5#l*OCFeRl#DSN>^e.9S954lt2» 
VOL>SER>C ♦Fb«A«F5iB4rs«C«r5#0^rS#C4fS*r6F5*«^PS»H6p5» 
I^Fji j4FSiK4*S«L«FS«N«r5,N4F5#<KP5#R^r5»R^^S#R^F5»S6^SI 
00  ••$PACC5CCVLitl«l 31 

COMOlNC  compile  ••  VANB, 

OATt*MR|TTFH«  07  FCb  72. 

RLMAMKS.  PROGRAM  NA4J.  IRAN  EVENT  DATA  PRCRROCESSOR • 

INPUT  -ACCEPT AN^E  OAtE  OATA  CCONvEHTEO  SCR*  < DATE}  TAPC* 
•Event  data  cards* 

OUTPuT-MaG.  tape  pith  calcueaieo  event  values* 

•printed  IRAN  event  REPORT* 
environment  OIVISIOP. 
configuration  section* 
source-computer*  inK-360« 

OBJECT-COMPUTER*  IBl  -360* 

INPUT-OuTPUT  SECTION* 

FILL-CONThOl* 

SELECT  FlLEACCPl 

RtSLRvF  1 AitERNATE  AREA* 

SELLCl  FlLEEVENf 

RtSERVE  1 alternate  AREA* 

SELECT  IRANOUT 

RESERVE  1 alternate  AREA* 
select  IRANREPORT 

reslRvc  1 alternate  area* 
data  division* 
file  secTiOii, 

FO  flLtAcCPT 

RECOt'UlNG  MODE  IS  F 
HL0C4  contains  I'l  RECORDS 
RECORU  cO^iTAlNS  AO 

lapll  rlcorus  ame  omitted 
data  hCCOROS  ARl  FIlEACCPT-IRAN* 

FILLAcCPT-IHAN  sync* 

02  riLLER  PICTURE  XCaO)* 

FlLtEVENT 

RECOPJING  MODE  IS  F 
ttLOCX  CONTAINS  0\  RCtOROS 
HECOPU  contains  AO  CHARACTERS 

LARlE  RbCoROS  Arc  OMITTED 
DATA  RECORDS  ARE  F ILEEVENT-IRAN* 
fileEvEnt-iran  sync* 

02  filler  picture  vcaol* 

IRAnOuI 

RCCOPJINO  MODE  IS  F 
PL0C4  contains  30  RECORDS 
RECORD  contains  80 

label  records  ape  omitted 

DATA  RECORDS  ARE  IRANOUT-PRE 
IRAnOuI-PRE  SYNC, 


ASSIAN  TO  UT-S*TU1S 
ASSION  to  UT*S*TU14 
ASStON  TO  UT-S*TU22 
ASSION  TO  UT-S*TU23 


characters 


01 

FO 


01 

FO 


01 


characters 


FO 


01 


PICTURE  VC 601* 


02  filler 
IRAnREPURT 
RECORUINO  MODE  IS  F 
MLOC"  CONTAINS  *.5  RECORDS 
RECORD  contains  120  CHARACTERS 

LARtL  RECORDS  ARC  OMITTED 
DATA  HtCOHOS  ARE  IRANREPORT-PRE* 
iranplpurt-prc  sync* 

02  nCLCR  PICTURE  kCi201* 

WOHKING-STOhAGC  SCCllON, 


jyp 

lYR 

IMO 

IDA 

JOAy 


RCCOROS-REAO 

secords-pass 
nINl  StnC* 


picture  S99  COMPUTATIONAL  VALUE  2ER0  SYNC* 

PlCTimE  S99  COMPUTATIONAL  VALUE  ZE^O  SYNC. 

Picture  s99  computational  value  2eRo  stnc* 

PlCTiiRE  S90  COMPUTATIONAL  VALUE  2ER0  STNC. 

PICTURE  S999  COMPUTATIONAL  VALUE  ZE^O  STNC* 
PICTURE  9(6J  SYNC  VALUE  2EFo, 

Picture  9C6i  sync  value  eeRO. 


013-OUT 
CT22  1 

CT22  2 
T22  3 

1440  COS 
C9a970 
C9S970 
C9S970 
C98970 
C98970 
C98970 
C9S970 
€98970 
C9S970 
C98970 
€96970 
C989T0 
C96970 
C98970 
C96970 
C98970 
C96970 
C96970 
C98970 
C98970 
C98970 
C96970 
C98970 
C969T0 
C98970 
C989T0 
C98970 
C96970 
C98970 
C96970 
C98970 
C96970 
C96970 
C96970 
€98970 
C96970 
C98970 
C98970 
C96970 
€96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C98970 
C96970 
C98970 
C96970 
C96970 
C96970 
C 96970 
C90970 
C90970 
C90970 
C90970 
€96970 
C90970 


30240 

02 

filler 

PICTURE  «2»J 

VALUE 

€46470 

30250 

199999999995999999999999991  * 

C48470 

30260 

02 

filler 

PICTURE  «t25J 

value 

C48470 

30270 

C 46470 

30260 

02 

filler 

PICTURE  DC  301 

value 

C40470 

30290 

; 999999999999999999999999,,,,,, 1 , 

C46470 

3A400 

01 

kount  picture 

S999  computational 

value 

EERO  STNC. 

€46470 

30410 

01 

ANT 

PICTURE 

S999  COMP^^taTIONAL 

value 

EERO  SYNC. 

€46470 

31U0U 

01 

OAYS-IN-YEAR  ST7C, 

€46470 

31U10 

02 

FILLER 

PICIUPE  999 

value 

0. 

€46470 

31U20 

02 

FILLER 

PICTURE  999 

VAIUF 

31. 

€46470 

31U30 

02 

filler 

PICIUHE  999 

value 

S9. 

C46470 

31U40 

02 

filler 

picture  9‘i'l 

value 

90. 

€46470 

6-41 


31050 

02 

FILLER 

picture 

999 

valuc 

120. 

C96970 

31060 

02 

FILLER 

PICTURE 

999 

value 

151. 

C96970 

31070 

02 

FILLER 

PICTURE 

999 

value 

lai. 

C96970 

31060 

02 

FILLER 

PICTURE 

999 

VALUC 

212. 

C96970 

31090 

02 

filler 

PICTURE 

999 

value 

2*3. 

C96970 

31100 

02 

FILLER 

PICTURE 

999 

VALUE 

2rs. 

C98970 

31110 

02 

FILLER 

PICTURE 

999 

value 

30*. 

C98970 

31120 

02 

FILLER 

PICTURE 

999 

value 

33*. 

C96970 

31130 

01 

NO- 

U»YS-IN-YE»R  REOEFtNES  0*YS-IN-TE*R  SYNC. 

C96970 

3imo 

02 

KUATS  occurs  12 

TIMES 

C96970 

31150 

PICTURE 

999. 

C98970 

32000 

01 

0*YS-IM-rE*RS  SYNCt 

C96970 

32010 

02 

FILLER 

PICTURE 

9999 

VALUE 

0. 

C96970 

32020 

02 

FILLER 

PICTURE 

9999 

VALUE 

365. 

C96970 

32030 

02 

FILLER 

PICTURE 

9999 

VALUE 

730. 

C96970 

32040 

02 

FILLER 

PICTURE 

9999 

VALUE 

1095. 

C96970 

32050 

02 

filler 

PICTURE 

9999 

VALUE 

1*61. 

C96970 

32060 

02 

FILLER 

PICTURE 

9999 

VALUE 

1626. 

C96970 

32070 

02 

FILLER 

PICTURE 

9999 

VALUE 

2191. 

C96970 

32060 

02 

FILLER 

PICTURE 

9999 

VALUE 

2556. 

C96970 

32090 

02 

filler 

PICTURE 

9999 

VALOr 

2922. 

C96970 

32100 

02 

filler 

PICTURE 

9999 

value 

3267. 

C96970 

32110 

02 

filler 

PICTURE 

9999 

VALUE 

3652. 

C96970 

32120 

02 

filler 

PICTURE 

9999 

VALUE 

*017. 

C96970 

32130 

02 

filler 

PICTURE 

9999 

value 

*363. 

C96970 

32140 

02 

filler 

PICTURE 

9999 

VALUC 

*7*6. 

C96970 

32150 

02 

filler 

PICTURE 

9999 

value 

5113. 

C96970 

32160 

02 

filler 

PICTURE 

9999 

VALUC 

5*76. 

C98970 

32170 

02 

FILLER 

PICTURE 

9999 

VALUC 

56**. 

C98970 

32180 

02 

filler 

PICTURE 

9999 

VALUC 

6209. 

C96970 

32190 

02 

FILLER 

PICTURE 

9999 

VALUC 

657*. 

C98970 

32200 

02 

filler 

PICTURE 

9999 

VALUC 

6939. 

C98970 

32210 

02 

FILLER 

PICTURE 

9999 

valuc 

7305. 

C98970 

32220 

01 

oat 

•lN-rEAR«TABLE  REDEFINES 

nAYS- 

IN>TCARS 

SYNC. 

C98970 

32230 

02 

oat-ycar  occurs 

21  times 

098970 

32235 

PICrUHE 

9999* 

C98970 

33000 

01 

Fli.tEVEHT<-lRAN«.|<ORK2  STNC« 

C96970 

33010 

02 

SEW-l-2-2 

PICTURE 

«»9. 

C98970 

33020 

02 

StH-3-6-2 

PICTURE 

9999* 

C98970 

33030 

02 

StHIES-2 

PICTURE 

C96970 

33040 

02 

filueh 

PICTURE 

C98970 

33050 

02 

MO-STUT-2 

PICTURE 

99, 

C96970 

33060 

02 

0*-bTRT-2 

PICTURE 

99* 

C98970 

33070 

02 

YH-STHT-2 

PICTURE 

99* 

C96970 

33080 

02 

FILLER 

PICTURE 

C96970 

33090 

02 

t>a-uont‘Z 

PICTURE 

99* 

C96970 

33100 

02 

r*-iJONE-2 

PICTURE 

99, 

C98970 

33110 

02 

Ym-LiONE-2 

PICTURE 

99, 

C98970 

33120 

02 

FILLER 

PICTURE 

xxxx. 

C96970 

33130 

02 

FL-hRS-CUM-c 

PICTURE 

9999, 

C96970 

33140 

02 

FL-uEC-2 

PICTURE 

X, 

C96970 

33150 

02 

Fl-U-TENTH-2 

«>1CTUHE 

9, 

096970 

33160 

02 

filler 

PICTURE 

XX, 

096970 

33170 

02 

TYPt-COOE-2 

PICTURE 

99. 

096970 

33180 

02 

FILLER 

PICTURE 

XI  33) 

. 

096970 

33190 

02 

Mm-L»OOR-2 

PICTURE 

9999. 

C96970 

33200 

02 

filler 

PICTURE 

XC7). 

C96970 

34000 

01 

IRAN-OUr-WORKT  LYNC 

• 

096970 

34010 

02 

SEH1»L-T 

PICTURE 

9C6) 

VALUE 

ZEROS. 

096970 

34020 

02 

StHlES-T 

PICTURE 

X 

VALUE 

SPACE. 

096970 

34030 

02 

filler 

PICTURE 

X 

VALUE 

SPACE. 

C96970 

34040 

02 

FCCHI-OA-T 

PICTURE 

9C5) 

VALUE 

ZEROS. 

096970 

34050 

02 

filler 

PICTURE 

X 

VALUE 

SPACE. 

096970 

34060 

02 

VIMI-T 

PICTURE 

9 

VALUE 

ZEROS. 

C98970 

34065 

02 

filler 

PICTURE 

X 

VALUE 

SPACE. 

C96970 

34070 

02 

TyRL-COOE-T 

PICTURE 

99 

VALUE 

ZtROS. 

096970 

34U60 

02 

filler 

PICTURE 

X 

VALUE 

SPACE. 

C96970 

34090 

02 

fl-hrs-c-t 

PICTURE 

9C5) 

VALUC 

ZEROS. 

C96970 

34100 

02 

FILLER 

PICTURE 

y 

VALUE 

SPACE. 

096970 

34110 

02 

A6t-STRT-T 

PICTURE 

999 

VALUE 

ZEROS. 

C96970 

34120 

02 

filler 

PICTURE 

X 

VALUC 

SPACE. 

C96970 

34130 

02 

OA-NO-ST-T 

PICTURE 

9999 

value 

ZEROS. 

C96970 

34140 

02 

Filler 

PICTURE 

X 

value 

SPACE. 

C96970 

34150 

02 

DA-NO-FN-T 

PICTURE 

S9999 

VALUC 

ZEROS. 

C96970 

34160 

02 

FILLER 

PICTURE 

X 

VALUC 

SPACE. 

096970 

34170 

02 

ouration-oa-  t 

PICTURE 

999 

VALUC 

ZEROS. 

096970 

34160 

02 

FILLER 

PICTURE 

X 

VALUC 

SPACE. 

096970 

34190 

02 

nm-labor-t 

PICTURE 

9999 

VALUC 

ZEROS. 

096970 

34200 

02 

FILLER 

PICTURE 

X 

VALUC 

SPACE. 

096970 

34210 

02 

TYPE-COOE-N;  T-S 

PICTURE 

99 

VALUC 

ZEROS. 

096970 

34220 

02 

filler 

PICTURE 

X 

VALUC 

SPACE, 

096970 

34230 

02 

fl-hrs-c-nxt-s 

PICTURE 

915) 

VALUC 

ZEROS. 

096970 

34240 

02 

filler 

picture 

X 

value 

SPACE . 

096970 

34250 

02 

OA-tJO.ST-NX*-S 

PICTURE 

S9999 

VALUC 

ZEROS. 

096970 

34260 

02 

filler 

PICTURE 

X 

VALUC 

SPACE. 

096970 

34270 

02 

INrtRVAL-OAl-T 

PICTURE 

9999 

value 

ZEROS. 

096970 

34^60 

02 

FILLER 

PICTURE 

X 

value 

SPACE, 

C98970 

34<»90 

OZ 

int-mo-t 

PICTURE 

999 

value 

ZEROS, 

C98970 

34^00 

OZ 

filler 

picture 

X 

VALUE 

SPACE, 

C98970 

^4^10 

OZ 

INI-Fl-HRS-1 

PICTURE 

9t5l 

value 

2LR0S, 

C98970 

34^20 

02 

FILLER 

PlCIUHE 

X 

VALUE 

SPACE, 

C98970 

i4JiU 

02 

r-mark-t 

PICTURE 

X 

value 

SPACE, 

C98970 

^4400 

01 

IRAN-OUr-WOKKO  SYNC 

• 

. C98970 

^4410 

02 

serial-0 

PICTURE 

9C8  } 

value 

ZEROS, 

C98970 

^4420 

02 

SLRlES-0 

PICTURE 

X 

value 

SPACE, 

C98970 

i4Hi0 

02 

fillfr 

PICTURE 

XX 

value 

SPACE, 

096970 

i444U 

02 

Al<  HT-nA-0 

PlCtURF 

S9tH  J 

vALur 

ZEROS, 

C98970 

i44SU 

02 

riLLiR 

PicfuHr. 

X 

VALUr 

SPACE , 

098970 

i44M) 

02 

VlMl-O 

PICTURI 

9 

value 

ZcHoS, 

098970 

444  65 

02 

^ ILuLr 

picture 

X 

VALUE 

SPACE. 

098970 

4447U 

02 

tyrl-cooe-o 

PlCfU*IE 

99 

value 

ZEROS. 

096970 

444P0 

02 

filler 

PICTURE 

X 

value 

SPACE. 

098970 

44490 

02 

Fl-hRS-C-O 

PICTURE 

0(51 

value 

ZEROS. 

C98970 

44500 

02 

F ILlER 

PICTURE 

X 

value 

SPACE. 

096970 

44510 

02 

Abt-STRT-O 

PICTURE 

999 

VALUE 

ZEROS. 

098970 

44520 

02 

F ILlER 

PICTURE 

V 

value 

SPACE. 

098970 

44540 

02 

CA-ImO-ST-0 

PICTURE 

S9999 

VALUE 

ZEROS. 

C96970 

44540 

02 

filler 

PICTURE 

X 

VALUE 

space. 

098970 

44550 

02 

rA-t,0-FN-0 

PICTURE 

S9999 

VALUE 

ZEROS. 

098970 

44560 

02 

filler 

PICTURE 

X 

VALUE 

SPACE. 

098970 

44570 

02 

CUKATION-OA-O 

PICIURE 

999 

VALUE 

ZEROS. 

098970 

44580 

02 

filler 

PICTURE 

X 

VALUE 

SPACE. 

098970 

44590 

02 

«M-LAtjOR-0 

PICTURE 

9999 

VALUE 

ZEROS. 

C98970 

44b00 

02 

FILlEr 

PICTURE 

V 

VALUE 

SPACE, 

098970 

44610 

02 

TYRc-CODF-NaT-O 

PICIURE 

99 

VALUE 

ZEROS. 

096970 

44620 

02 

filler 

PICTURE 

X 

VALUE 

SPACE. 

C98970 

44640 

02 

Fl-mRS-C-NX»-0 

PICTURE 

9f  51 

VALUE 

ZEROS. 

008970 

44b40 

02 

filler 

PICTURE 

X 

value 

SPACE. 

C98970 

44650 

02 

OA-f^O-ST-NX.-O 

PICTURE 

S9999 

VALUE 

ZEROS. 

098970 

44660 

02 

F ILLF.R 

PICTURE 

X 

value 

SPACE. 

098970 

44670 

02 

1NTlRvAL-OA-0 

PICTURE 

0999 

VALUE 

ZEROS. 

098970 

44680 

02 

filler 

PICTURE 

X 

VALUE 

SPACE. 

096970 

44690 

02 

1NTlRvAL-WK-  0 

FICIURE 

999 

value 

ZEROS, 

C98970 

44700 

02 

filler 

picture 

X 

VALUE 

SPACE. 

098970 

44M0 

02 

INT-Fl-HRS<-0 

PICTURE 

9(51 

value 

ZEROS, 

098970 

44720 

02 

filler 

PICTURE 

X 

value 

SPACE. 

098970 

44740 

02 

R.VARk-0 

PICTURE 

X 

VALUE 

1*1, 

098970 

45000 

01 

lMANRtPORT«N0RKP  SYNC, 

C96970 

45010 

02 

filler 

PICTURE 

XC51 

VALUE 

SPACE, 

098970 

45020 

02 

StRlAL«R 

PICTURE 

nsi 

VALUE 

SPACE, 

C96970 

45040 

OZ 

StRIEs-R 

PICTURE 

X 

VALUE 

SPACE, 

C98970 

45040 

02 

filler 

PICTURE 

X 

VALUE 

SPACE, 

C9S970 

45050 

OZ 

ACCPT-OA-H 

PICTURE 

-(5  3. 

C96970 

45060 

02 

filler 

PICTURE 

X 

VALUE 

SPACE. 

096970 

45070 

02 

visit-r 

PICTURE 

X 

VALUE 

SPACE, 

C96970 

45080 

02 

filler 

PICTURE 

X 

VALUE  SPACE, 

096970 

45u90 

02 

Ty:>l-COOE-R 

PICTURE 

Z9* 

C96970 

451(Ul 

02 

E n LEM 

PICTURE 

X 

VALUE  SPACE, 

098970 

45110 

12 

FL-hHs-C-R 

PICIURE 

ZZZZ9. 

098970 

45120 

02 

F 1 lEh 

PICTURE 

X 

VALUE 

SPACE. 

096970 

45140 

02 

Air  -StpT-R 

PICTURE 

ZZ9. 

096970 

45150 

02 

rA-.40-ST-R 

PICTURE 

-(53. 

096970 

45170 

02 

r>A-  jo-fn-r 

PICTURE 

-C51. 

096970 

02 

FILcER 

picture 

X 

VALUE 

SPACE, 

096970 

02 

C\JRATI0N-0A.  R 

PICTURE 

ZZ9, 

096970 

45^?00 

02 

filler 

PICTURE 

X 

VALUE 

SPACE, 

098970 

45210 

02 

*'f1-LAH0H-R 

PICTURE 

XC4] 

VALUE 

SPACE. 

096970 

45^20 

02 

filler 

PICTURE 

X 

VALUE 

SPACE. 

098970 

45240 

OZ 

TrPL-COOE-N«T-R 

PICTURE 

Z9. 

098970 

45240 

OZ 

filler 

PICTURE 

X 

VALUE 

SPACE, 

096970 

45250 

OZ 

FL-HRS-C-NXT-R 

PICTURE 

ZZZZ9. 

098970 

45260 

02 

filler 

PICTURE 

X 

value 

SPACE, 

098970 

45270 

OZ 

TA-iiO-Sl-NX  '-R 

PICTURE 

ZZZ9, 

096970 

45280 

02 

filler 

PICTURE 

X 

value 

SPACE, 

098970 

45290 

02 

ffjfLRvAL-OA-R 

PICTURE 

/ZZ9. 

096970 

45400 

02 

FiLLfH 

PICTURE 

X 

VALUE 

SPACE. 

098970 

45410 

02 

ir^LRyAL-WK  'R 

PICTURE 

ZZ9. 

096970 

45420 

02 

FK.LfR 

PICTURE 

X 

value 

SPACE, 

098970 

45440 

02 

irn-rt-HRS-H 

pilture 

ZZZZ9. 

098970 

45440 

02 

FILL*  R 

PICTURE 

XX 

value 

SPACE, 

098970 

45450 

02 

MO-’.rHT-P 

PiC  rUME 

XX 

VALUE 

SPACE, 

098970 

35460 

02 

FiLLf  H 

PICTURE 

X 

value 

SPACE, 

098970 

45470 

02 

r A- jThT-R 

I'lCTUHE 

XX 

VALUE 

SPACE, 

098970 

45480 

02 

filler 

PICTURE 

X 

VALUE 

SPACE, 

096970 

45490 

02 

Yh-SIRT-R 

PICTURE 

XX 

value 

SPACE, 

096970 

4540U 

02 

F ILLEr 

PICTURE 

XX 

value 

SPACE, 

096970 

4541U 

02 

^o-i,orvr-P 

PICTURE 

XX 

value 

SPACE, 

098970 

45420 

02 

FILlEh 

PICTURE 

X 

value 

SPACE. 

C98970 

454  40 

02 

nA-JOr4E-R 

PICTURE 

XX 

VALUE 

SPACE, 

098970 

45440 

02 

filler 

PlCTiiRE 

X 

VALUE 

SPACE, 

098970 

454  50 

02 

YR-oOf4r*R 

PICTURE 

XX 

VALUE 

SPACE. 

098970 

45460 

02 

F ILLf  H 

picture 

«(  16) 

VAH  r 

SPACE. 

098970 

454  70 

02 

4KtLX.M.H 

PK  TURE 

X 

098970 

3bb00  01 

FILtAC0PT*IRAN9 

SYNOb 

3bbl0 

02 

serial 

PIOTUHE 

<ic  a 1 

VALUE 

ZEROS 

35b20 

02 

filler 

PIOTUPE 

XX. 

*3bb30 

02 

OAY-NO-A 

PIOTURE 

S9t4  1 

value 

ZEROS 

3bb90 

02 

filler 

PIOTUKE 

XC65]. 

3bbb0 

02 

RCOMX.O 

PIOTURE 

X. 

J7000  01  IR*NRfcPURT-TITLE-A  SYNC. 


37010 

02 

CAR-COOE-A 

PICTURE 

X 

value 

ti:. 

37020 

02 

filler 

PICTURE 

XC141 

VALUE 

SPACE. 

37030 

02 

T-Io-24-A 

PICTURE 

Xt93 

value 

lACCPT  V 71 

• 

37U40 

02 

filler 

PICTURE 

Xtl2] 

VALUE 

SPACE. 

37U50 

02 

T-37-55-A 

PICTURE 

XC  191 

value 

ISTRT  CHPL 

oats 

1. 

37060 

37070 

02 

T-bo-Tl-A 

PICTURE 

PICTURE 

xc  161 
Xtl91 

VALUE 

VALUE 

1— NEXT  IRAN— 

— 1. 

02 

T-72-90-A 

1 inTEKVALft- 

t. 

37060 

02 

T-91-99-A 

PICTURE 

XC91 

VALUE 

t PAGE! 

* 

37090 

02 

page-no-a 

PICTURE 

ZZZ9. 

37U95 

02 

filler 

PICTURE 

XCIO  1 

VALUE 

SPACE. 

37100 

02 

T-114-I20-A 

PICTURE 

Xt71 

VALUE 

1 >t. 

37200 

01 

IRANREPORT-TITLL>a  SYNCi 

37210 

02 

CAR-COOE-a 

PICTURE 

X 

VALUE 

shale. 

37220 

02 

filler 

PICTURE 

XCI4  1 

VALUE 

SPACE. 

37230 

02 

T-lo-32-B 

PICTURE 

Xt  171 

value 

lOATE  I Y 

F/M 

1. 

37240 

02 

T-JJ-49-B 

PICTURE 

Xtl71 

value 

lAGE  date  date 

INI. 

37250 

02 

FILLER 

PICTURE 

XC6l 

VALUE 

space. 

37260 

02 

T-50-71-B 

PICTURE 

XC  161 

VALUE 

IT  F/H  STRT 

1. 

37270 

02 

T-7.:-fl0-B 

PICTURE 

XC91 

VALUE 

: WK  Fhs 

• 

37260 

02 

filler 

PICTURE 

XCbl 

VALUE 

SPACE. 

37290 

02 

T-8o-95-fl 

PICTURE 

XC  101 

value 

ISTART 

u 

37300 

02 

T-9O-105-B 

PICTURE 

XC  101 

VALUE 

icomplete 

1* 

37310 

02 

filler 

PICTURE 

XC  14  1 

value 

SPACE. 

37320 

02 

T-120-B 

PICTURE 

X 

VALUE 

1*:. 

37400 

01 

1RANREPORT-TI7LF-C  SYNC. 

37410 

02 

CAR-COOE-C 

PICTURE 

X 

value 

space. 

37420 

02 

filler 

PICTURE 

XC41 

VALUE 

space. 

374  30 

02 

T-6-15-C 

PICTURE 

xcioi 

VALUE 

ISERIAL 

:• 

37440 

02 

T-10-J2-C 

PICTURE 

XC171 

VALUE 

ICOOE  S P 

XIO 

1. 

374b0 

02 

T-JJ-49-C 

PICTURE 

XC171 

value 

IMX.  code  code 

IRAt. 

37460 

02 

T-bU-55-C 

PICTURE 

XC61 

VALUE 

IN  M/H  1. 

37470 

02 

T-50-74-C 

PICTURE 

XC191 

VALUE 

lY  XIO  DATE 

days  1. 

37460 

02 

T-75-eS-C 

PICTURE 

XCll  1 

VALUE 

1X10  XIO 

1. 

37482 

02 

T-eo-95-C 

PICTURE 

XClOl 

VALUE 

iMO  OA  yR 

1. 

37465 

02 

T-9O-105-C 

PICTURE 

xc  lol 

value 

iMO  OA  yR 

1. 

37490 

02 

FILLER 

PICTURE 

XCl4l 

VALUE 

space. 

37b00 

02 

T-I2O-C 

PICTURE 

X 

VALUE 

1*1. 

37600 

01 

IRAnPEPORT-TIILe-O  sync, 

37610 

02 

CAR-COOE-0 

PICTUHE 

X 

value 

SPACE. 

37b20 

02 

FILLER 

PICTURE 

xciiai 

VALUE 

SPACE. 

37630 

02 

T-120-0 

PICTURE 

X 

VALUE 

ttt. 

46U00 

01 

NINt5-6  PIC 

.l»HE  9tel  SYNC 

VALUE 

999999 S9. 

46U10 

01 

JFLAG  PIC 

'UHE  9 

SYNC 

VALUE 

ZERO. 

46U20 

01 

IFLAC  PICtUHE  « 

SYNC 

VALUE 

ZERO. 

46U30 

01 

PAOfCNf  PIC 

lURt  «999  SYNC 

VALUE 

ZERO. 

46Ub0 

01 

LINt-CNT  PIC 

'URE  99 

SYNC 

value 

zero. 

46U60 

01 

LiNfc-MAX-sn  PICTURE  99 

SYNC 

value 

50. 

4bU70 

01 

LAST-1  picture  9 

SYNC 

VALUE 

0. 

46060 

01 

DAY 

-NO  PIC.URE  S9t91. 

4bU90 

01 

OA* 

no-fh-s  pic 

'URE  S9141  value  zeros. 

46100 

01 

RCOS-ACCEPT  PICTURE  9163  SYNC 

VALUE 

0. 

46110 

01 

SPACE-CUT  PICiURE  9C63  SYNC 

VALUL 

0. 

46120 

01 

lines-out  pic 

sURE  9C6  3 SYNC 

VALUE 

0. 

bOUOO  PROCCOUKE  DIVISION. 

bouio  open-files. 

50020  OPEN  INPUT  FILfcACCPT. 

50030  OPEN  INPUT  FILtEVENT. 

500UO  OPEN  OUTPUT  IRRNOUT. 

50050  OPEN  OUTPUT  IRANREPORT. 

50090  |NlTI*LlZt-P*CE. 

50IIO  perform  title-s  thru  title-s-eno. 

50200  REAU-FIrST-EVENT. 

50210  READ  FILEEVENT  INTO  FlLEEVENT-IRAN-llORKZ 

50220  at  end  iO  TO  EOF-FIRST-EVENT. 

50225  MOVE  TYPE-COOE-2  TO  TyPE-COOE-NRT-O. 

50227  ADO  I To  RECOROS-REAO. 

50230  COMPUTE  serial-/  > 5ER-I-2-2  • lOOOOoO  < SfR-3-6-2. 

50240  CALC-START-F  INISM-U•^Tb. 

50250  PERFORM  OAY-UUMoEHS  THRU  OAY-NuMBERS-ENO. 

50300  NbH-SERJAL-/0. 

50310  IF  serial  equal  SERUl-T  00  TO  SAMe>I20. 

50320  IF  serial  equal  NtNES-e  60  TO  SAME.SERIAL-TEST-IOO, 

50330  GO  TO  RLAD-NEXT-ACCEPTANCE-OATE-RO. 

50700  OAY-HUMbFRS. 

50710  MOVE  2ErO  to  OA  NO-ST-NKT-0  OA^NO.FAt*! . 

50715  IF  yR-SIRI-2  is  LESS  THAN  1 00  TO  FINISH-DAtS. 

50720  MOVE  MO-STPT-2  TO  IMO, 

50730  MOVE  u«-STRT-2  TO  lOA. 


G-44 


C96970 

098970 

CO6970 

C98970 

098970 

098970 

C98970 

096970 

096970 

096970 

096970 

096970 

098970 

096970 

096970 

096970 

096970 

096970 

096970 

096970 

096970 

096970 

096970 

C96970 

096970 

096970 

096970 

C96970 

C96970 

096970 

C96970 

C96970 

C96970 

096970 

C96970 

096970 

096970 

096970 

096970 

096970 

096970 

096970 

096970 

098970 

096970 

096970 

098970 

096970 

096970 

096970 

096970 

096970 

096970 

096970 

096970 

096970 

096970 

098970 

098970 

096970 

098970 

096970 

096970 

096970 

096970 

096970 

096970 

C96970 

096970 

C96970 

096970 

098970 

096970 

096970 

096970 

C98970 

096970 

096970 

096970 

096970 

096970 

096970 

096970 

096970 

096970 


MOVL  Y»-bTPT-2  TO  lY«. 

PEPPOH^^  nAYb-BLh0PC-ArrEP-0tC*31*6«  THPU  0*Y$*tN0« 

MOVL  UAY-r^O  TO  OA-NO-ST-NxT-0, 
finish*uays. 

IF  hO-OuNe-^  EQ'IAL  space  MOVE  ^EPOS  TO  MO-OOME^a, 

IF  uA-OOfJL-^  EOUAl  space  MOVE  eEPOS  TO  0A«-00NE*2. 

IF  EOJAL  SPACE  MOVE  2EP0S  TO  YP*OOME*2. 

IF  tP-DOfJE-2  IS  LESS  THAN  i GO  TO  CALC*FLIOHT*Hp$*NxT. 

MOVL  M0-00NL*2  TO  IMO. 

MOVE  UA-OONE-2  TO  lOA* 

move  yh-oone-2  to  iyp. 

PEPFOM^  OAYS-BE' 0HE-ApTEP-PEC-3i*6%  THRU  OAYS-ENO. 

HOVE  OAT-NO  TO  OA-NO-FN-T, 

C ALC-FL I GmT -HPS-NXT  • 

IF  FL-Hr<S-CUM-2  EOUAL  SPACE  MOVE  2EPOS  TO  rL-HPS«CUM*2* 

IF  FL-O-TENIH-a  EOUAL  SPACE  *<OVE  ZEROS  TO  FfO-TENTH-a. 
commute  Fl-HHS-C-NXT-0  > FL-HRS-CUM-2  • 10  < rt«0-TENTH»2* 
OAt-NUMdt  HS-ENO , EXIT. 

nAYS-BEFOHE-ApTEP-O:  C-31-64. 

COMHUTL  JYP  > lYH  - 56. 

COHPUIE  JUAY  > lOA  < KOAYS  CIMOJ. 

IF  JYH  EOUAL  0 GO  TO  LEAP.yEAR, 

IF  JYH  cOjAl  a go  to  leap-year. 

TF  JYH  EOuAL  8 GO  TO  LEAP-YEAR, 

IF  jYM  lOuAL  12  GO  TO  LtAP-YEAR. 

IF  jYM  tOuAL  16  GO  TO  leap-year, 

IF  JYH  lOUAl  20  GO  TO  EEAP-yEAR, 

GO  rO  JuLlAt^-OAYS. 

LLAP-YEAP. 

IF  iwu  IS  LESS  *HAN  3 GO  TO  JULlAN-UAYS. 

Aor  I ru  joay, 

JULlAfi-uAYS. 

COMPUTE  day-no  > OAY-YEAP  CjyRJ  < JOAY  - 2022. 

oays-enu.  Exit, 

TITEE-S. 

ADO  1 TO  PAGE-Ci.T. 

MOvL  PAoE-CNT  T PAGE-NO-A, 

VRITE  IkAnPEPOPT-PPE  FROM  I RANREP0RT«TI TLE*A. 

WRITE  Ih/NREPORi-PPE  FP0«  lRANREPORT*TlTLE-e* 

WRITE  IkAnpi  POP.-.PPE  FROM  IRANREP0RT*TITLE*C* 

WRITE  IkAn«.e:poP*-PPE  from  IRANREP0RT*T1TLE*0* 

TITEC*S-ENU.  exit. 

REAU-NEXT-ALCEPTANCfOATE-aO. 

PEAU  FIlEACCPT  into  FlLEACCPT*|PANil 
at  END  GO  TO  StT-Nl»€S*0*90. 

AOO  I fu  rcus-alcept. 

GO  TO  SAMe-SEPl  L-TEST-lOO, 

SET-NINlS-h-oo. 

•^OVl  TO  serial. 

SAHt-SFHl  L-T!‘T-|Oo. 

IF  sEhIAL  EgUAL  SERUl-T  GO  TO  SAMe.l2ft. 

IF  SEHIAL  IS  LE*<S  THAN  StHIAL-T 

oo  1C  klau-next-acceptance-uate-ao* 


C9ft970 

€98970 

C98970 

C9ft970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

C98970 

€98970 

€98970 

C98970 

C98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

C98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 


S2100 

MOVE 

: 1 : TO  jFL«G, 

€98970 

S211U 

SAME-12U. 

€98970 

i>2J20 

IF  IFlAu  j OuAL  >'ER0  00 

TO  «ClPT>0*TL-C00e>|}0. 

€98970 

b2l30 

MOVL 

TY»F-COOC-NxT-S 

TO 

TYPL-C00E-N*t-0, 

€98970 

52140 

MOVL 

UA-NO-ST-N-T-S 

TO 

o«.no-st-nxt>o. 

€98970 

52150 

MOVE 

QA-NO-FN-S 

TO 

D*.l(0>FFt>T. 

€98970 

S2160 

MOVL 

FL-hmS-C-NaT-S 

TO 

FL-MBS-C-NXT-0, 

€98970 

52170 

MOVE 

2c  >'0 

TO 

VISlT-0  1FL»0, 

€98970 

5220U 

A€CPT-OATt-LOor-l30  . 

€98970 

52210 

MOVL 

^tHO 

TO 

*CCPT-P*-0. 

€98970 

52220 

IF  jFLAg  equal  2EPO  MqvE  OAY-No<-A  TO  A€€PT*UA-0 

€98970 

52230 

ACCPT-OA.R, 

€98970 

52240 

Muvl  2EHO  TO  JFLAO 

, 

€98970 

52250 

pemlat-samt -slp-save-phiop 

-140, 

€98970 

52260 

MOVE 

SEhIal-T 

TO 

serial -0  serial -R. 

€98970 

52270 

MOVE 

SLmIL*^-? 

TO 

SERlES-0  SERIES-R. 

€98970 

52280 

“OVE 

mO-STPI-2 

TO 

•'0-stht-p, 

€98970 

52290 

MOVL 

UA-STPT-2 

TO 

nA-STRT-P. 

€98970 

52300 

MOVE 

yH-STRT-2 

TO 

YR-STHT-H. 

€98970 

52310 

MOVE 

mO-DONE-4. 

TO 

MO-OONE-R. 

€98970 

52320 

MOVE 

UA-OONE-2 

TO 

oa-oonf-r. 

€98970 

52330 

MOVL 

YP-OONE-2 

TO 

yr-oone-r. 

€98970 

52340 

MOVE 

TYPE-COrt-'iMT-0 

TO 

TYPE-COUE-0  TYRt-€00E*8* 

€98970 

52350 

MOVE 

mm-LAROw-2 

TO 

mh-lahoh-0  mh-laboR-R. 

€98970 

52360 

move 

FL-HMS-C-NuT-O 

TO 

FL-MRS-C-0  FL-HHS-C-R. 

€98970 

52370 

MOVL 

UA-NO-ST-rUT-0 

TO 

oa-no-st-o  oa-no-st-r. 

€98970 

52380 

MOVL 

ua-no-fn-t 

TO 

OA-NO-EN-O  OA-NO-fN.R, 

€98970 

52385 

age -CALC. 

€98970 

52390 

MOVE 

ZEnO  TO  AOL-STHT* 

0 OURATlON-O.-O. 

€98970 

52410 

IF  ACLPI-OA-O  EOUAL 

ZERO 

GO  TO  OURA-OA-CALC* 

€98970 

52420 

IF  Y" 

-STPT-H  equal 

ZERO 

GO  TO  nuRA-OA-€AL€« 

€98970 

524  50 

COMPUTE  AG€-ST«*-0  > COA-NO 

-ST-O  - ACCPT-OA-OJ  / 7. 

€98970 

52440 

ouha-oa-caec . 

€98970 

524S0 

IF  Y" 

-STPT-R  EQUAL 

/LRO 

f .J  REAO-NEKT-IRAn-CVENT, 

€98970 

G-jr> 


!>2<t60  IF  YR«OONe.R  COUAt  ZERO  00  tO  RCAO^NCXT^Ift An-CVCNT.  C96970 
52470  COMPUTE  0URATI0N«0A«0  > 0A«N0*rN*0  • 0A«N0*ST«0,  C98970 
52500  RCAO-NCxT-IHAn-EvENT.  C96970 
52510  RCAU  FlLEevENT  •NTO  FlLEeveNT«|RAN«MORI(2  C9S970 
52520  At  end  ^0  TO  LAST«I*150*  C98970 
52525  ADO  i TO  RECOROS«RCAO»  C98970 
52530  00  TO  NtXT-VlSl 1-160.  C98970 
52540  tAST-I-i5U.  C98970 
52550  MOVE  MS  TO  LAS^-l.  C98970 
52560  NEXT-VlSlT-160.  C9S970 
52570  ADO  i TO  VlSlT-w.  C9S970 
52580  IF  lAsT-I  EOOAl  ^ERO  MOVE  TYPC-COOe-2  TO  TTPC-COOC-NKT-0.  C98970 
52000  OAy-NOS-AnO-FlIGHT-MRS.  C98970 
52oi0  PERFOHM  OAY-^JUMliERS  THRU  OAY-NuMeERS-ENO.  C98970 
52o20  COMPUTE  SERIAL-.  > SER-1-2-2  4 1000000  < SER-3-6-2.  C98970 
52O30  IF  SEHlAL-T  EQUAL  SERIAL -0  60  TO  SEH-SAME-tdO.  C98970 
52040  NE«-SERlAL-l70.bAvE-NULL-OUTP.  C98970 


52650 

MOVE 

TYPt-COLE-lmT-O 

TO 

type-cooe-nxt-s. 

C98970 

52660 

T'OVL 

0»-N0-S'-NXt-0 

TO 

OA-NO-ST-NXT-S. 

C9S970 

52670 

HOVE 

0*-NO-FM-T 

TO 

OA-NO-FN-S. 

C98970 

52680 

MOVE 

PL-HWS-l—NXt-O 

TO 

FL-MRS-C-NxT-S. 

C9S970 

52690 

ENU-FlLE- 

MOvES-ITS. 

C98970 

52/00 
52/10 
52  720 
52730 
5274U 
52750 
527b0 
52  770 
52775 
52780 
52000 
52010 
52020 
52O30 
52040 
52050 
52000 
52070 
52080 
52O90 
52V00 
52^/10 
52920 
52V30 
52940 
52950 
52960 
52970 
52980 
53000 
53U90 
53U95 


OA-NO-ST-NXT-0. 

OA-NO-ST-NXT<^R. 

FL-HRS-C-NXT-R. 

1NT«FL-HRS-0. 

INT-FL-HRS-R. 


MOVE  2LmO  to  TYPF-CODE-NXT-O 
MOVE  ZE«0  TO  TVPE-COOE-NXT-R 
MOVL  zero  to  FL-HHS-C-NXT-0 
MOVE  ZERO  TO  INI :rvAL-OA-0 
HOVE  ZERO  TO  INTERVAL-OA-R 

HOVE  zeko  to  interval««k-r, 

MOVE  ZERO  TO  |N,EHvAL-«K-0, 

MOVE  :i:  TO  IFL'6. 

IF  LAsT-I  equal  Ji:  oo  to  last-output-195. 

60  TO  «I<1TE-OUTPUT-190. 

SEH-SAHE-IRu. 

MOVE  ZEkOS  to  INTERvAl-QA-O. 

MOVE  zeros  to  1NTERVAl-«K«0  INT-FL-HRS-O. 

IF  YR-SrRT-2  equal  ZERO  60  TO  C AtC-INTERVAE-«K. 

IF  YR-nONE-R  EQ  Al  ZERO  60  TO  CALC-1NTCRVAE-9K • 

calc-intehval-oay. 

COMPUTE  INTERvAl-OA-O  > OA-NO-ST-NXT-O  • OA-NO-FN-O. 

calc-intehval-hk, 

JF  JNTEHVAL-OA-r  1$  NOT  GREATER  THAN  ZERO 
GO  TO  CALC-INT-FL-MRS* 

COMPUTE  1NTERVAL-4R-0  > INTERVAt-OA-O  ♦ 7 / 10. 

calc-ini-fl-mhs. 

IF  FL-mkS-C-NxT-0  is  6RE*TER  THAN  ZERO  60  TO  TCST-2, 

60  TO  MRITE-OUTPUT-190. 

TE5T-2. 

IF  FL-mhS-C-0  r GREATER  THAN  ZERO  60  TO  CAEC»INTERVAL. 
GO  TO  «M1TE-OUTPUT-190. 

calc-intehval. 

COMPUTE  1NT-FL-»RS-0  > FL-HRS-C-NxT-0  • FL-HRS*C-0. 
9RITE-OuTPUf-190. 

IF  last- I equal  ;i:  go  to  CN0-fILE-M0VCS-175. 
LAST-0UTPUT-I‘I5. 


C98970 

C98970 

C98970 

C98970 

C98970 

098970 

C98970 

C98970 

C989T0 

C98970 

C98970 

C96970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C96970 

C98970 

C98970 

C98970 

C98970 

C96970 


53100 

MOVL 

VlilT-O 

TO 

VISIT-R. 

C98.70 

53110 

MOVL 

»6t-STf<T-0 

TO 

*GE-STRT-R. 

C989T0 

53120 

MOVL 

OUf<»TI0N-0*-0 

TO 

0UR»TI0N-0»-R. 

C989T0 

53130 

MOVL 

type-cooe-nxt-o 

TO 

TYPE-COOE-NXT-R, 

C989T0 

531*0 

MOVL 

fl-hrs-c-n.  T-0 

TO 

FL-tTRS-C-M*T-R, 

C989T0 

63150 

MOVL 

0*>N0*5T-N«T-0 

TO 

0»-N0-ST-N*T-., 

098970 

.3160 

MOVE 

iNrcHv*L>o*-o 

TO 

INTERV»L-0»-". 

098970 

53170 

MOVL 

1NIERV*L>«|<>0 

TO 

INTCRv*L-.R-«. 

098970 

53180 

MOVE 

INT-FL-MRS  0 

TO 

int-fl-mrs-r. 

098970 

53500 

.RITE 

ir»nout-phe 

FROM 

IR»N-OOT-»lORItO, 

C989T0 

53510 

«RITE 

IRANRCPORT-PRE 

FROM 

IR*NREPORT-.ORItR, 

09S9T0 

53520 

*00  1 

TO  RFCORO.-P*S5. 

1 

C989T0 

5353U  IF  last-1  EQUAL  21!  OO  *0  ENO-F ILC-Z-aRO.  C98970 
53540  AOO  1 TO  LINE-CNT.  C98970 
53550  IF  1FlAi»  EQUAL  ^EHO  C98970 
53560  60  10  RLPEAT-SA  ^E-SER«SAVE-PR10R-140.  C98970 
53570  IF  lINE-CNT  IS  I ESS  THAN  50  60  TO  PR 1NT-BLANR«E1NC*220*  C98970 
5358U  NEh-PAOL.  C98970 
53590  PERFORM  TITLf-S  THRU  TITEC-S-ENO.  C90970 
53t»00  MOVE  ZERO  T''  LINE-CNT.  C98970 
53t>10  00  TO  rjLM-SERlAl  .70.  C98970 
53620  PHlNr-PLANK-LlNE-Z2U.  C98970 
53630  WRITE  IhANREPOR .-PRE  FROM  iRANREPORT-TlTtE-U*  C9S970 
53640  AOn  1 TO  LINE-C/'T.  C98970 
53645  AOO  1 TO  SPACE-CNT.  C98970 
53650  GO  TO  NEW-SEKIAl-70.  C98970 
53660  ENU-F1LE-2-Z40,  C9A970 
62000  RLOCK-ChELK,  C98970 
62010  compute  KOUNT  > RECOROS-PASS  • ( C RECOROS-PASS  / 30l  • 30 1.  C9A970 
62U20  IF  KOUUT  equal  ..EHO  GO  TO  BLOCK-CHECR-a.  C98970 
62040  LOOP3.  C9A970 
62050  wRIfF  IkAnOuT-PHE  FROM  NINE.  C98970 


f.-4G 


b2U60 

AOO  1 TO  KOUNT 

. 

C90970 

62U70 

IF  KOUNT  is  LES--  than 

30  00  TO  L0OP3. 

C90970 

62100 

BLOCK-CHECK-2, 

C98970 

62110 

COMPUTE  lines- 

OUT  > 6 

* PA6E-CNT  < RCCOROS-PASS  < SPACE-CNT. 

C98970 

62115 

COMPUTE  KNT  > 

LINES-OUT  - ttLINES-OOT  / <51  • <81. 

C9<970 

6212U 

IF  kN[  Equal 

21  RO  60 

to  CLOSE-FXLeS. 

C98970 

62130 

L0OP«. 

C90970 

62160 

nrite  ikanreport-pre  from  iranreport-title-d. 

C98970 

62150 

AOO  1 TO  KNT. 

C98970 

62160 

IF  KNT  IS  LESS  THAN  25  60  TO  LOOP.. 

C98970 

62170 

60  TO  CLOSE-FILES. 

C90970 

63900 

EOF -first-event. 

090970 

63910 

oisplay  : NO  eve  NTS  : 

UPON  CONSOLE. 

C96970 

64U00 

CLOSE-FILLS. 

C90970 

64010 

CL05E  FlLEACCPT 

4ITH  LOCK. 

C96970 

6402U 

CLOSE  riLEEWENT 

MITH  LOCK. 

C96970 

64030 

CLOSE  XHANOmt 

KITH  LOCK. 

C90970 

64U40 

CLOSE  XRANREPOPT 

KITH  lock. 

C98970 

64100 

OISPLAY  : ACCePi  XN  : 

RCOS-ACCEPT  UPON  CONSOLE. 

C90970 

64110 

OISPLAY  ! event  XN  : 

recoros-reao  upon  console. 

C90970 

64120 

OISPLAY  ! XRAN 

OUT  : 

RECOROS-PASS  upon  console. 

C96970 

64140 

OX SPLAY  : EOJ 

coaoT  : 

UPON  CONSOLE. 

C90970 

64150 

GO0ACK. 

C98970 

/• 

PLACE  COBOL  SOURCE  BEFORE  THIS  CARO 

//CHC.TF61N  00  #»SPACf>CCYL 

Cl. Ill 

1440  COS 

TF6  Tum  11  0012080 

57  230A 

091064  111664 

834.7 

1065 

01 

29  66 

57  230A 

10046S  11U96S 

;o4i.i 

2066 

01 

00  74 

57  230A 

100768  122460 

1924.0 

1060 

01 

4245 

124  35 

57  231A 

092864  12Ul6« 

920.5 

1065 

01 

79  63 

57  231A 

101465  111765 

.109.1 

2066 

01 

60  33 

57  231A 

112068  00U669 

■1004.7 

1069 

01 

450? 

128  79 

570231A 

042071 

<600.0 

10 

57  232A 

111565  011766 

909.6 

2066 

Ot 

90  52 

57  232A 

112067  022168 

•478.7 

1060 

02 

114  92 

57  232A 

021670  002970 

2036.6 

1070 

02 

4140 

140  73 

57  235A 

070665  080665 

1002.3 

2066 

03 

05  30 

57  245A 

072666  091966 

1211.0 

3066 

03 

96  63 

57  235A 

100266  123066 

'233.1 

2066 

03 

3676 

100  60 

57  235A 

032169  0S2969 

1749.3 

1069  iJJl 

03 

4463 

129  67 

57  236A 

120965  012266 

1307.4 

2066 

04 

06  43 

57  236A 

110267  011860 

1788. 8 

1068 

04 

4117 

112  76 

57  236A 

012270  032570 

.'292.9 

10  70 

04 

3906 

126  33 

57  237A 

113065  OI2O66 

1128.6 

2066 

04 

00  50 

57  237A 

110467  021468 

1548.1 

1068 

04 

4110 

113  69 

57  237A 

103069  011270 

2106.0 

1070 

04 

4145 

136  72 

57  241A 

031565  042165 

'134.6 

2065 

05 

90  37 

57  241A 

0ol466  000366 

1521.5 

3067 

05 

105  50 

57  241A 

112466  012767 

1593.7 

1067 

05 

4022 

124  63 

57  241A 

111960  020369 

.'047.0 

1069 

05 

4070 

136  74 

570241A 

042271 

2650.4 

10 

57  243A 

012165  022865 

1034.0 

2065 

05 

78  37 

57  243A 

022366  040166 

.198.1 

3066 

05 

90  30 

57  243A 

011960  040360 

'681.2 

1060 

05 

4334 

126  79 

57  243A 

032670  060170 

2251.0 

1070  11  11 

05 

4394 

150  65 

57  244A 

120665  012866 

1332.4 

6265 

04 

97  55 

57  244A 

121366  022867 

•552.1 

1067 

04 

3173 

110  75 

57  244A 

031169  050769 

2147.9 

1069 

04 

4507 

130  65 

57  24SA 

111765  010566 

1083.5 

2066 

02 

100  50 

57  24bA 

042260  071160 

•690 • 0 

1060 

02 

3966 

129  73 

57U245A 

071070  091670 

.-217.2 

10 

6096 

57  246A 

112764  022865 

1065 

00 

93 

57  246A 

092666  110866 

6267 

00 

33 

57  246A 

000768  101060 

;056.2 

1069 

00 

4345 

127  65 

570246A 

102170  011371 

2333.1 

10 

6770 

572453A 

071564  090964 

1065 

09 

70  54 

572453A 

123064  021565 

2066 

09 

93  46 

5724S3A 

041766  052366 

;i59.7 

3067 

09 

105  36 

5724S3A 

111667  021460  , 

>554.5 

1060 

09 

4564 

117  50 

572453A 

020570  051070 

1999.9 

6370 

09 

4433 

132  65 

57^4b5A 

122964  020765 

2065 

00 

69  39 

b724S5A 

041966  052666 

•246.0 

6366 

00 

05  37 

572465A 

103166  021367 

1395.0 

1067 

00 

4647 

94107 

57if455A 

052069  090369 

.054.0 

1060 

00 

5255 

124  43 

572456A 

121064  02u665 

2065 

09 

66  56 

5724b6A 

042766  060366 

>470.6 

6366 

09 

05  36 

572456A 

030267  053067 

1670.6 

1067 

0» 

4229 

96  29 

572456A 

063069  090869 

i.149.4 

1060 

09 

5051 

112  69 

572457A 

010665  020165 

2065 

09 
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6.  4,  3 IRAN  COPY  ACCEPTABLE  AIRCRAFT 


//C9697J  JOH  0l»:  G »<ANv»  : • PKTY>02»TYPRUN>HOL0 
//C9697  EXEC  PSbybL  TIMt>0l • ACCT>035323007 

//CHG,TU12  OU  U'SPX fPASSl*UNlT>(T4Fl»l»UEFEK)»DSN>^A,9e9S%22» 

//  VOL>5ER>(  ♦Flf A+Fl,b+Fl,C4Fl»04Ft»E*Fl,FfFl»04Fl»HfFl» 

//  l*F 1 »JrFl.K4Fl.L4Fl.M*Fl»N4Fl»04Fl»P*Fl»04Fi»RfFi»54Fl  ] 

//tHG,TU22  CU  n'SP>C*PASS)»UNlT>CT«Fb»l»0EFER]»0SN>4E*9695%22* 

//  VOL/SERX ♦Fb» A4F5»0^F5*C+FS*O4FS»E^P3#FiF5»6^FS»MfF5* 

//  l+Fy»j4Fb»K^Fb*L+FS»M*F5»N4F5»04FS»P*FS*0^P5*R^FS»5fFS3 

//CMG.lNPur  OU  •.SPACLXCYLXltl]} 

OOUOO  COPuUr  COMPILE  6,  wang, 

01U90  OATE-WRlTlEilt  71  OEC  71. 

OiUbO  remarks.  IRAN  COPY  ACCEPTAoLE  AIRCRAFT* 

02U00  ENvIHONMEra  OUlSlON, 

02U10  configukatiun  flction, 

02U20  SOURCE -computer,  IBM-jbU, 

02U30  ObJLCT-COMPuTEK.  IHM-jftO, 

02100  INPUT-OuTPur  SfCTlON, 

02110  F ILE-COriTHOL. 

02120  SELLCf  iNFiLE  ASSIGN  TO  UT-S-TU12 

02130  RESERVE  1 ALTERNATE  AREA* 

O2140  SELLCI  OUT-^UE  ASSIGN  TO  UT-S-TU22 

o2ibO  Reserve  i alternate  area. 

U216U  SELECI  ACClPT-FILE  ASSIGN  TO  OA*S*DT01 

02170  RESlRVw  I alternate  AREA* 

lOOOO  OATA  OlVlSluN, 

lOUlO  FILE  SEcTIOfu 

10U20  FU  INFlLE 

10U30  hlcuRuK.g  "ooe  is  F 

10U40  MLOCK  Contains  3o  REconos 

lOObO  RECORU  contains  60  CHARACTERS 


CT12  I 

CT12  2 

T12  3 

CT22  I 

CT22  2 

T22  3 

1440  CDS 

C96970 
C9B970 
C9S970 
C96970 
096970 
096970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C98970 
C9B970 
C96970 
C96970 
C96970 
C9B970 
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lOUbO  UAtiLU  HtCOI  OS  AhE  omitted 

10U7U  DATA  hElOHPS  AHL  INHEC. 

10U80  01  INHLC  SiNC. 

10U<90  02  FILlEM  picture  MCaOJ* 

10100  Fu  OUTFILL 

10110  RECORUING  MODE  IS  F 

10120  BLOCK  COnrAINS  30  KECOROS 

10130  RECONU  iONFAINS  AO  CHARACTERS 

10140  LAPLL  HlCO'^OS  ake  omitted 

loiso  DATA  H&COHDS  ARE  OUTREC* 

10160  01  OUTKEC  SYNC. 

10170  02  filler  picture  XCA03* 

11400  fd  acclpi-filf 

11410  recording  mode  is  f 

11420  block  Contains  20  records 

11430  RECORD  CONTAINS  60  CHARACTERS 

11440  LABEL  HtCORDS  ARE  STANDARD 

114S0  DATA  RLCOHUS  ARE  ACCEPT«REC* 

11460  01  acclpt-hec  sync. 

11470  02  ACClPT'UATA  PICTURE  XC60]* 

11460  02  filler  heuefines  accept«data« 

11460  03  Da;A.1  picture  996. 

llbOO  03  FILLER  PICTURE  Xt771. 

iibio  02  filler  redefines  accept-data* 

11620  Oj  Data. 2 PICTURE  XC6]. 

11630  03  FI  ILK  PICTURE  XC7^]* 

30U00  KUhKING-STOwAof  section. 

30I0U  01  data-in  sync. 

30110  02  SLR-NC  PICTURE  XC8]. 

30120  02  filled  PICTURE  XC72]. 

30130  01  kNT  Sync  COMPiitATIONAt  PICTURE  S999. 

30140  01  NUVbEM-HECORnS-HASS  SyNC  PICTURE  9t61  VALUE  ZERO. 

3bu00  01  NiNt  SYnC  picture  XC&O]  VALuC 

3bUlO  :n96999699969996999999969999*^4969996999999999999999 

3SU20  • : 6N99s9'^9699‘*6S9999999999699669t  . 

40UOO  01  TAPcE-ALClPI-A-C  sync, 

4UUIU  U2  AcLlPT ‘A-C  OCCURS  250  TIMES  DEPENDING  ON  No-ACCEPT->A.< 

40U20  PICTURE  XC6]* 

40U30  01  f,0-ACctHT-A-C  SYNC  PICTURE  999. 

40U40  01  TtPH-ACcEP.-A-C  SYNC  PICTURE  Xt83. 

40UbO  01  INC  SY  K C YMPUTATIONAc  PICTURE  S999  VALUE  <1. 

bOUOO  PMOCEOUHf  UiViSlON, 
bOUlO  I3L01N. 

b0020  OPfN  INPUT  INFILE*  ACCEPT-FILE. 

b0u30  OPEN  OUTPUT  OUTFILE. 

b0U40  PFR^OR^  Rf AO-ACCEPT-DATA  THRU  £ND-R«A*0. 

b0U90  REAU-^lLtb* 

bOlOO  MEAc  INUlS  at  LND  GO  TO  BLOCK«CHECK. 

bOlIO  MOVE  IN»<EC  TO  DATA-IN, 

b0120  TLSTl. 

60121  IF  SER-NO  IS  LESS  THAN  TEMP-ACCEPT^A-C  00  TO  READ*FILES. 

60122  IF  SEK-NO  IS  tUUAL  TO  TEMR-accCPT-A-C  GO  TO  VRITE-DATA. 

60123  ado  I To  INC, 

60124  IF  INC  IS  GREATER  THAN  NO-ACCEPT-A-C  GO  TO  BLOCk-CHECK, 

60125  MOVL  ACcEF.-A-C  C INC  1 TO  TEMP-ACCEPT-A-C • 

60126  00  TO  Test* . 

60200  white-data. 

60210  WRITE  OuTHrC  FROM  DATA-IN, 

60216  ADD  I TO  f,  JMREW-RECORDS-PAsS, 

60220  GO  TO  NlAd-FILES, 

60222  OLOCK-CrttCK. 

60224  COwpUTc  KM  > NUMUEK-KECORDS-PASS  - CtNUMeEH-REcOROS-PASS  / 

60226  303  • 303, 

60228  IF  Khl  IS  EOUAL  TO  ZERO  00  TO  CL0SE*F1LES, 

60230  LOOPl. 

60232  WRITE  OuTkEC  FROM  NINE. 

60234  ADD  I TO  kNT. 

60236  IF  kNT  is  LESS  THAN  30  GO  TO  LOOPl, 

50240  close-fills, 

60250  CLOSE  INFI.L  WllH  LOCK.  ACCEPT«FfLE  WITH  LOCK, 

60260  CLOSE  OuTFlLE  WITH  LOCK. 

60270  DISPLAY  Nu«BLR-KECORDS-PASS  UPON  CONSOL€. 

60280  DISPLAY  l^JJ  9897  T UPON  CONSOLE. 

50290  COT^ACk  • 

70000  READ-ACCEPT-DATA, 

70U10  read  accept-fill  at  end  go  to  eno*r*a-d*> 

70020  MOVE  DATA-I  TO  NO-ACCEPT-A-C. 

70U30  MOVE  ZLhO  to  KNI. 

70U40  RAU-1. 

70U50  ADO  I TU  KNT. 

;0060  read  accept-file  at  end  go  to  END-R-A-D. 

70U70  MOVE  DATA-2  TO  ACCEPT-A-C  CKNT3. 

70U80  IF  KNT  IS  cCSS  THAN  NO-ACCEPT-A-C  00  TO  RAD-f. 

70UQ0  MOVE  ACCEFT-A-C  C I 3 TO  TEMR.ACCCPT-A-C . 

70100  END-R-A-D.  tX*T. 


C98970 
C98970 
C98970 
C98970 
C98970 
098970 
098970 
098970 
C98970 
096970 
098970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C96970 
C98970 
C98970 
C98970 
C98970 
098970 
C96970 
C96970 
098970 
C98970 
C98970 
C96970 
C96970 
C90970 
C98970 
C98970 
C96970 
C98970 
C96970 
C98970 
C98970 
C98970 
C96970 
C9ft970 
C98970 
C98970 
C98970 
C98970 
C98970 
C96970 
C96970 
C96970 
C98970 
C 96970 
098970 
€96970 
€98970 
C98970 
C96970 
€98970 
€98970 
C98970 
C98970 
098970 
C96970 
€98970 
€98970 
C96970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C96970 
C98970 
C98970 
C98970 
C98970 


I 

1 


(1-59 


1 


/•  PLAcr  couuu  souRce  acFone  this  card 

//cHo.fFGlN  DO  vtSPACe>CCY(.«CI»i}I  IMO  COS 

TF6  Dful  11  0^07060 

15U 

!>7U002.31 

^7U002^2 

57U0U2^5 

57U002^b 

57U002^7 

57U00243 

b7U00244 

57U02Mb5 

!>7U024!>6 

b7U024be 

570024b9 

t>7U02M<>3 

57U02470 

b7U02473 

57U02476 

•>7002477 

57002462 

57002463 

57002465 

57002466 

57O02490 

570024V1 

57002493 

57002494 

57002496 

57O025U3 

57U025U4 

57O025O5 

57O025U8 

57002509 

57002515 

57002517 

57002520 

57O02524 

57002527 

57002526 

57002532 

57002533 

57002537 

57002536 

57002540 

57002543 

57002545 

57002546 

56000760 

56000766 

56000767 

56000772 

56O00773 

56000776 

56000777 

56000776 

56000760 

56000761 

56000763 

56000765 

56U00766 

56000766 

56000792 

56U00797 

56000900 

56000901 

56000903 

56000904 

59O000O2 

59000003 

59000004 

59000005 

59000006 

59000007 

59000006 

59000010 

59000012 

59000015 

59000016 

59000016 

59000019 

59000024 

59000025 

59000026 

59000027 

59000026 

59000030 


i 

i 


i 


i 


4 


()-G0 


b9u000^1 
b9U000^3 
b9u0003b 
b9U00043 
bQU00044 
b9U0U046 
b9U00046 
b90000bl 
b90000ba 
S9UOOOb3 
b9UOOOb4 
b90000b6 
b90000b7 
b9U000b6 
b9U000b9 
b9U000b0 
b9U000t>3 
b9U000b4 
b9U000ob 
b9U0U0b7 
b9U000o9 
bQU0U072 
b9U000  74 
b9U0007b 
b9u0U07d 
b9U000b0 

bououoba 

b9U0n0b4 

b9uOOOob 

b9UOUObQ 

b9U00090 

b9u00092 

b9u00094 

b9U0009S 

b9u0009b 

b9U0U099 

b9uOO|u3 

b9U001U4 

b9UOUlUb 

bVoOUtUH 

b9UUUtu4 


bOuOUl 10 
b9U00tlb 
b9U00llb 
b9U00ll9 
b9oOOUb 
b9U0Ul4i7 
b9uOOUA 
b9UOUt30 
b9U0Ut32 
b9U00l 33 

b9U0Ul37 

b9uOUl34 

b9u00l40 

b9U00t41 

b9U00143 

b«)J00144 


b9U0014b 

b9U00i4b 

b9U00147 

b9U00l49 

b9U00ibl 

b9U00lb2 

b9U001b3 

b9U001bb 

59U001b7 

b9000lb4 

•END 


/•  PLACE  TFG  O'TA  BEFQME  THIS 

//TPR.TU12  DU  D1SP>CULD»KEEP] 

//rP«,TU22  DO 

//rPR.TPHlN  DD 


ulSP>C OLDtKEEPJ 
«fSPAC&>C TKKfCI 


T/P  TU22 


i0boo6o;oeo 


CARD 

fVOL>SCR>^Fi»UNIT>TAFl 

»VOL>SER>AFb»WlT>TAFb 

M]} 


TXS 

JZZ 


3 


1 


I 


I 


T/P 

/• 


OTOl  10200002060 

PLACE  T/P  CONTROL  CAROS  BEFORE  THIS  CARO 


a 

a 

J 
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w 


6.  5 DATA  BANK  GENERATION  PROGRAMS 
6.  5. 1 SORT  ACC  EPTABLE  WUC 


//T9697A  Joe 

//C9697$  IkXEC 
//CHG*TU22 
// 

// 

//CH6.TFGIN 
TFG  TU22 

:iuoo 

iiCOO 

ilCAi 

iiCAA 

iicei 

ilCBA 

liCCi 

IICCA 

llCOl 

liCOA 

llCEi 

liCEA 

llcFl 

lltFA 


0i»:  9*  MAN9  t»PHTY>02»TYPRUN>HOtO 
C99U1N»T1MC>01»ACCT>03S323007 

OU  OlSP>C•KE£P)•UNIT>CT♦Fb*i•OEFER)»O&N>♦£•9^97ll0i» 
VOL>SeR>C^Fb»A4FS»b«F5»C4FS*0«Fb»C^FS»FtFb*6«rS»HtFb» 
lfFbtJ4F&»K4FS«L4Fb*HtFS*N«FS»0tFS»P4F5*0tFS»R«FS»S^F6J 

OU  «»SPAC£>CTRK»Cb*5)] 

11  0b02020 


UGl 

ICGA 

ICHI 

ICJl 

lUOU 


lUAO 

lUAA 

lUAb 

lUAC 

lUAO 

lUAE 

lUAF 


lUHU 

lUOA 


lUBb 

luBC 

lUBO 

1U6E 

lUCO 

lUCA 

lUCb 

lUCC 

ucu 

lUCE 

lUCF 

lUCG 

lUCH 

lUCJ 

luCK 

lUOO 

lUOA 

luob 

lUOC 

lUOO 

lUOE 

1006 

lUOF 

lUOH 

lUEO 

IDEA 

lUEB 

lUEC 

lUED 

lUEE 

lOEF 

lUEG 

lUEH 

lUFO 

lUFA 

lOFb 

lUFC 

lUFO 

lOFE 

lUFF 

1UF6 

lUFH 

lUFJ 

lUGO 

lOGA 


CT22  1 
CT22  2 
T22  3 

360  COS 


6-62 


.ataais; 


llUGb 
IIDGC 
llOGO 
llOGE 
llOGF 
IIUGG 
IIUHO 
llOHA 
IIUHU 
llOHC 
IIDHD 
HOME 
iiEno 
llEAO 
llEAA 
llEAB 
lltAC 
HEAD 
llEAE 
HEAP 
llEAG 
llEAH 
llEAJ 
llEAK 
HEAL 
llEBO 
llEBA 
llEBU 
llEBC 
llEBO 
HEBE 
llEBF 
llEBG 
llEBH 
HEBJ 
t JEBK 
lUCO 
ntcA 
ntcB 
llECC 

ntco 

lltCE 

lltCF 

UbCG 

llECH 

lUCJ 

HECK 

HLCL 

HtCM 

HtCN 

HEPO 

HtOA 

HE08 

HEDC 

HEOD 

HEOE 

HtOF 

HbOG 

HFOO 

HFAO 

HF*A 

HFAB 

HFAC 

HFAO 

Hf  *E 

HFAF 

HFAG 

HFAH 

HFAJ 

HFAK 

HFAL 

HFBO 

HFBA 

HFPB 

HFBC 

HFBO 

HFBE 

HFBF 

HFBG 

HFBM 

HFBJ 

HFBK 

HFCO 

IIFCA 

HFCB 


IIFCC 

llFCO 

IIFCE 

IIFCF 

11FC6 

IIFCH 

IIFCJ 

IIFCK 

llFCC 

IIFCM 

llFCN 

IIFOO 

IIFOA 

iiFoe 

IIFDC 

IIFDO 

IIFDE 

llFOF 

llFDC 

11600 

116*0 

116** 

116*a 

116*C 
116*0 
116*E 
116*F 
116*6 
IIHOO 
llMAl 
IIHA* 
11HA8 
llMBl 
lUOO 
llJAl 
lU** 
11  JAB 
IIJAC 
IIJAD 
11J*£ 
IIJAF 
llJfil 
ll«JCl 
11>I01 
llJCl 
llJFl 
llJOl 
llJHl 
llJOl 
llJFl 
11^1 
llJHl 
llJNl 
llJFl 
11«J01 
llJRl 
lUSl 
llJTl 
IIKOO 
llKAl 
llKSl 
llKCl 
11*01 
11*E1 
llKFl 
11*01 
llKHl 
llKJl 
11**1 
llKLl 
IILOO 
llLAl 
llLBl 
llLCl 
llLOl 
llLEl 
lltFl 
llLGl 
11*00 
llAAl 
11*** 
11**B 
llACl 
llACF 
11*01 
11*E1 
11*01 


6-64 


12UA1 

12BB1 

12UC1 

12BD1 

12BE1 


F 

f 

F 


i2uri 

12UG1 

12bHl 


12UJ1 

12bKl 

12UL1 

12bNl 

12oPl 

12b01 

12bSl 

12bRl 

12bUl 

12UV1 

12bWl 

12bTl 

12b)ll 

12brl 

12bZl 

X2BZ2 

X2bZH 

12UA1 

12UC1 

12U01 

13U00 

13*00 

13**1 

13*** 

13**B 

13**C 

13**0 

13**C 

13**P 

13**G 

13**H 

13**J 

13**K 

13*B1 

13*C1 

13*C* 

13*Cb 

13*CC 

13*CD 

13*CE 

13*CF 

13*C« 

13*01 

13*E1 

13*F1 

13AG1 

13AM1 

13AJ1 

ISbOO 

13BA1 

13bBl 

13bC* 

13bCl 

13d01 

13BE1 

13bFl 

13bGl 

13bHl 

13000 
130*1 
13CB1 

13001 
13001 
130E1 


1 


13CF1 

1SC61  I 

13CH1 

13CJ1 

13CK1 

13CL1 

13CM1 

13CN1 

13CP1 

13C01 

130A1 

13UB1 

13UC1 

13U01 

130C1 

13UCA 

13DCB 

13UCC 

13DeO 

13DCe 

130EF 

13UF1 

13U61 

13UH1 

130J1 

130K1 

13UL1 

i3eoo 

13tBl 

13tCl 

13eEl 

13EeA 

13fcFl 

13E01 

13CH1 

13EJ1 

13EF1 

13ELt 

13EM1 

13EN1 

13EPI 

13F00 

13FEI 

13FFI 

13F81 

13FHI 

13<>C1  ^ 

130E1 

13I>H1 

13(iTl 

13H00 

13HA1 

13HB1 

13HC1 

13H01 

13HE1 

i3HFl 

13H61 

13J00 

13JA1 

13JB1 

13JC1 

13J01 

13JE1 

13JF1 

13JC1 

13JH1 

13JJ1 

13JK1 

13JL1 

13JM1 

lAUOO 

1AAO0  , 

lAAAl  I 

lAABl 

14AC1 

14A01. 

14AE1 

14AF1 

14Aei 

14B00 

14BA1 

14BB1 

14BC1 

14B01 

14BE1 

14BF1 


6-66 


! 


I 

! 

[ 

I 

I 

r 


l<tCOO 

l<tCAl 

1*001 

1*CB1 

1*CC1 

1*CCA 

1*CCB 

1*C01 

1*CE1 

1*CF1 

1*C81 

1*CH1 

1*CJ1 

1*CK1 

14CL1 

14CM1 

14000 
140A1 
140B1 
140C1 
i40ei 
14UF1 
14E.00 
14tAl 
14E.B1 
14kCl 
14(:01 
14tEl 
14t.Fl 
14tGl 
14tHl 
14tJl 

14tKl 

14tLl 

14tMl 

14tNl 

14tPl 

14F00 

14FA1 

14FB1 

14FBA 

14FC1 

14b00 

140A1 

14GB1 

14tiCl 

14001 
14bEl 
140F1 
14bGl 
146H1 
14bLl 

14GM1 

14GN1 

14H00 

14HA1 

14HB1 

14MC1 

14H01 

14HE1 

14HF1 

14HG1 

14HH1 

14J00 

14JA1 

14JR1 

14JC1 

14JD1 

14Jtl 

14JF1 

14JG1 

14JM1 

14JJ1 

14JK1 

14JM1 

14JN1 

14JP1 

14J01 

14JB1 

23U00 

23H00 

23HA0 

23MAA 

23HAB 

23HAC 

23HAD 

23MAE 
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[ 


- ji 


23HAF 

23HA0 

23HAH 

«3HAJ 

23HAK 

23HAL 

23HAM 

23HflO 

23HBA 

23HBa 

23HBC 

23HB0 

23HRC 

23H0F 

23HB0 

23HBH 

23H00 

23H0A 

23H0B 

23H0C 

23H00 

23H0E 

23JOO 

230 AO 

23JAA 

230AB 

230AC 

230 AO 

230AE 

230AF 

230AB 

230AH 

230AO 

I30AK 

23060 

230BA 

230B8 

230BC 

230B0 

23000 

2300A 

23000 

2300C 

23000 

23006 

2300F 

23000 

2300H 

23000 

2300*.  ' 

2300M 

2300N 

2 30 OP 

23000 

2300R 

23K00 

23KA0 

23KAA 

23KAB 

23KAC 

23KA0 

23KAC 

23KAF 

23KA6 

23KAH 

23K00 

23K0A 

23K0B 

23K0C 

23K00 

23K0e 

23K0F 

23KOO 

23K0H 

23K00 

23K0K 

23K0(. 

23K0M 

23K0N 

23K0P 

23K00 

23K0R 

23K0S 

23LA0 

23i.AU 

23i.AC 


«H.*C 
«SI.«0 
<3M*0 
23M** 
23MA8 
23MAC 
23MB0 
23M8* 
23MO0 
23MO* 
g^MRU 
g.'IMRA 
t.1MNn 
83MS0 
23MS* 
23MSa 
23MSC 
23MT0 
23MT* 
23MT8 
23MUA 
23MVF 
23N00 
23NI>A 
i 3N»C 
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//  ^♦^i>^J♦FS^K.F4.L♦F5•*^♦F5»N♦F5.0♦F5.P♦F5^0♦F*,B♦F».S♦F•l•CT*l 

//  DCB>CLPLCL>  <020iHLK<>UC>1000JpLA(*CL>C>NM.>HETPO>0991 

//CHG.SORTOUT  do  DISP>C pKCCP)tUNIT>(T*Ft>liDCFERI>DSN>AA,9B97«02>  CTIt 

//  VOL>SEF>t»FipA»FlpBAFlpC*Fl»DAFI.E«F»*F*Fl»»*FIpHAFlp  CTll 

//  |aF1pJ*F1pK.F1pLAF1pW»F1pN*F1pO*FIpP*F1>OaF1,I|AF1pS*F1]pCT1> 

//  DCB>ClFECL>'<030pBLXSIZC>1000] 

//CMpSYSIN  DU  •pDCB>dLKSIZE>OOeOpSPACCKTRK,tltl}l 

SOFT  FlELDS>(001p00SpCHp..]pSI/e>C0003000 
MODS  eiS>CClSpOO«tS(WTLll'pN]pE16>CElBpOZ9pSOHTLIttN) 


t 

t 

s 

« 

I 

t 

9 
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/• 

//C9S97P  CXCC 
//CN6*TU12 
// 

// 

//CH0.TU22 
// 

// 

//CH9,TPPIN 
T/P  TU12  10500202020 

T/P  TU22  10500202020 

i%  PLACE  T/P  CONTROL  CAROS  KPORC  THIS  CARD 


//T9S97N  JOB  01*t  0 «ANO  t #PRTY>02#tTPRUN>H0LD 
//C9697M  EXEC  C96UlN«TlMe>05* ACCT>0S532S007 

//CHG.TU22  00  0$NMP«9097901*01SP>C  tPASS  J#$PACCKCTt»t  001  tOOl  3)  DOO-OUT 

//CHG.TFOIN  00  •tSPACcHCYLtC  1#  1]]  IMO  COS 


IPii  T022  11  0202000 

74AJ1  74AK1 
74AK1  74AL1 
74AKA  74ALA 
74AH1  74AN1 
74AN1  74AP1 
74ANB  74APA 
74ANC  74APB 
74AND  74APC 
74AN0  74APP 
74ANH  74AP0 
74ANJ  74APH 
74ANK  74APJ 
74ANL  74APK 
74ANH  74APL 
74ANN  74APM 
74ANQ  74APP 
74ANS  74APR 
74ANT  74APS 
74ANU  74APT 
74ANV  74APU 
74ANW  74APV 
74ANX  74APM 
74ANr  74APX 
74AN2  74APY 
74AN2  74AP2 
74AN3  74AP2 
74AN4  74APa 
74ANS  74AP4 
74AN6  74APS 
74AN7  74AP6 
74ANa  74AP7 
74AP1  74AQ1 
74AQ1  74AR1 
74A0B  74AHU 
74A0C  74AHC 
74AR1  74AS1 
74AS1  74ATI 
74ASA  74ATA 
74AT1  74AU1 
74BC1  74Bdl 
74BCA  74BbA 
74B01  74BC1 
74B01  74B01 
749E1  74BE1 
74BH1  74tiPl 
79BJ1  74B61 
74BK1  74BH1 
74BL1  74BJ1 
74BN1  74BK1 
74BMA  74BKA 
74BMB  74BKB 
74BN1  74BL1 
74ePl  74BNI 
74BPA  74aHA 
74BPB  74BMB 
74BQ1  74UN1 
74flHl  74aPl 
74BT1  74aui 
74BU1  74bHl 
74BUA  74aHA 
74BUe  74aHB 
74BV1  74abl 
74BH1  74ari 
74BX1  74UU1 
74CMI  74BV1 
74CN1  74a»l 
74B21  74axi 
74B2A  74eAA 
74CPI  74BT1 


C9603N«T1ME>01«ACCT>03S525007 

DO  OtSP>C*KeEP]»UNlT>€T^Pl*l«OefCR3#DSN>^A,9O97l»02*  CT12 
VOL>SeR>C^PSA4Pl*B^flfC^ri#O^Pl#C4fl«P^Pl»54Fl»H4ri»  CT12 
l^Fl*J4Pl*R4Pl*L4PltM^l*N4Pl#04Pl*P^Fl*0^Pl*R9Pl#S^PI)  T12 
DO  OtSP>C*KeeP3»UNlTXT4f5*l#OCfCR3#DSN>^e,9097llol*  CT22 
V0L>SeR>C4Pi«A4P5*e^f5#C4r5#0^f5>C^f5#r^P5*ftP5*H4P5*  CT22 
l4F&*J«PS*R«PS»L4fS«M^f5#M4P5»04FS*P^5»0^P5>R^P5»S^P53  T22 
DO  ••SPACe>CTRK«C 1*1)3 
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1 7HCAI  74b^l 

I 74CAA  7(lbZA 

74C01  74CA1 
74CQA  74CAA 

[ 74C0B  74CAB 

f 74CQC  7*ICAC 

I 74C00  7*ICA0 

\ 74CQE  7(ICAE 

P 74CR1  74CC1 

74CRA  74CCA 
74CRB  7HCCB 
7hCRC  74CCC 
74CR0  7‘4CC0 
74CRE  7HCCE 
74CRF  7*ICCF 

i 7HCR6  74CC6 

7hCRH  74CCH 

[ 74CRJ  74CCJ 

r 7HCRK  74CCK 

74CRL  74CCL 
7HCC1  74CU1 
74CS1  74CF1 
74CSA  74CFA 
7HCSB  7HCFB 
74CE1  74CG1 
74CF1  74CH1 
74CFA  74CHA 
74CTi  74CJ1 
7HCrA  74CJA 
74CrB  74CJB 
74CTC  74CJC 
7HCT0  74CJ0 
74CTE  74tJE 
74CG1  740bl 
74CHI  740C1 
74CHA  740CA 
74CHB  74UCB 
74CHC  74UCC 
7HCHE  74UC0 
7HCHF  7HUCE 
7HCKI  7HUUI 
74E00  74F00 
74E01  74FA0 
74FFI  74Fttl 
74FEI  74FCI 
74rEA  74FCA 
7HFeB  7HFCU 
74FEC  74FCC 
74FE0  74FC0 
74FEE  74FCE 
74FEF  74FCF 
74FCI  74FUI 
74rcA  74FUA 
74FCB  74FUB 
74FCC  74FUC 
74FC0  74FU0 
74FCE  74FUE 
74FCF  74FUF 
74FCG  74FUG 
74FCH  74FUH 
74FCJ  74FUJ 
74FCK  74FUK 
74FCL  74FUL 
74FCM  74FUM 
74FCN  74FUrJ 
74FCP  74FUP 
74FC0  74FUQ 
74FCR  74FUR 
74FtS  74FUS 
74FCT  74FUT 
74FCU  74FUU 
74FCV  74FbV 
74FCM  74FUtil 
74FCX  74FUX 
74FCY  74FUY 
74FC2  74F02 
74FC2  74FU2 
74FC3  74FU3 
74FC4  74FU4 
74FC5  74FU5 
74FC6  74F06 
74FC7  74FU7 
74FCB  74FUe 
74FC9  74F09 
74F0A  74FtA 
74F0B  74FtB 
74rBl  74FF1 
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74F0A  74FFA 
74F00  74FF0 
74F0C  74FFC 
74FU0  74FF0 
74FBE  74hFE 
74FUF  74FFF 
74FB6  74FF6 
74FBH  74FFH 
74F0J  74FFJ 
74FBK  74FFK 
74FiJL  74FFL 
74F0M  74FFM 
74EV1  74F61 
74EW1  74FM1 
74EX1  74FJ1 
74EU1  74FK1 
74KM1  74Kdl 
74KB1  74KC1 
74Kb0  74KC0 
74KC1  74KU1 
74K01  74KE1 
74KO0  74KE0 
74KDC  74KtC 
74KE1  74KF1 
74KE0  74KF0 
74KF1  74K01 
74KFA  74KbA 
74KF0  74KbB 
74KFC  74K0C 
7*4KFD  74K(»0 
74KFE  74KoE 
74KFF  74KbF 
74KF6  74KGG 
74KFH  74K0H 
74KFJ  74K6J 
74KFK  74K<jK 
74KFL  74K6L 
74K61  74Khl 
74KMA  74KJA 
74KP1  74KK1 
74KG1  74KLI 

74KR1  74KM1 
74KS1  74KNI 
74KT1  74KP1 
74KU1  74Kgi' 
74CEA  74C<4A 
74KV1  74KK1 
74GQQ  74PU0 
74GA1  74PA1 
746B1  74PB1 
74G01  74PCI 
740F1  74P01 
74GF1  7HPtl 
74GG1  74PF1 
74GGA  74PFA 
74GHI  74pei 
74GJ1  74PH1 
74GK1  74PJ1 
7401.1  74PK1 
746M1  74PL1 
74GP1  74PM1 
74GQ1  74PN1 
74GR1  74PP1 
746N1  74QA1 
74GNA  740AA 
«EM) 


6.  5. 2 SORT  WUC  FOR  CONVERSION  - MERGE 


/* 

//C9S97N  LXEC  P9622N.W>010»TIME>02>*CCT>f)9SU9007 

//CHG.SORTIN  DO  OSN»P.9S97»Ot>OtSPK(H.DrOELETE  If  COII/tS  1 

//  OCe>(LRECLV}0«««BLKSI2E>t*00 ItLABELK  fNSC«KCTPO>etO J 

//CH9.S0RT0UT  00  OSN>*P.fS97*09fOISP>f  «P*SSJf$P*CEXCTL«(e01«0|llJ»  COll/lS  1 

//  0CB>CLPECL>00S0«aLKSIZE>t»«01 

//CH9.STSIN  DO  •tOCB><H.KStZE>tO*««SP«CEXTRKttl«lJJ 

SORT  FlEL0S>[002f009>CHf  «JfSIZEH00BB«00 
HODS  ElS>tEIB>00S>S0RTL'B«N]>EtSXEia>BI9«S0RTUBtN3 
/* 


I 
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6,5.3  WUC  MERGE 


01 


FO 


//C96970  LXCC 
//CH6.TU12 
//CH6.TU14 
ft 
// 

//CHG, rU24 
// 

// 

//CHG. INPUT 
00000 
01040 
01050 
01060 
02000 
02U10 
02020 
02030 
02100 
02110 
02120 
02130 
02160 
02190 
02200 
02210 
lOUOO 
10010 
10100 
10120 
10130 
10140 
lOlSO 
10160 
10170 
lOlAO 
10190 
13100 
13110 
13120 
13130 
131«*0 
131S0 
13160 
13170 
131*10 
13200 
14100 
14120 
14X30 
14140 
14150 
14160 
14170 
14180 
14190 
30000 
30400 
30420 
30440 
30500 
30600 
50000 
50010 
50020 
50030 
50040 
50050 
50060 
50U70 
50080 
50090 
50100 
50110 
50120 
50130 
50140 
50150 
50160 
50170 
50180 
50190 
50200 


P96551.*T1HF>01«ACCT>035323007 
DU  OSN>^P.9897403>01SP>COLO*PASS1 
OU  01SP>C  tPASS]»UNtT>CT^F3*t#OCFCR3*OSN>^C.9897402» 
VOL>SEP>C 3>A4F3>e4F3*C4F3*0^F3*C^F3>F^F3'G^F3»H4r3» 
14FJ»J4F3*i*4F3»L4F3»M4F3»N4F3»04F3>P4F3#94F3»R^F3»S4F33 
nu  01SP>C •PASS]»UNlT>CT4F7*t»O£FCR3»OSN>i8.969740%» 
V0L>SER>C4r  7> A4F7»e4F7*C4F7*04F7»C4F7»F4F7>G4F7»H4F7» 
I4F/»J4F7.» 4F7>L4F7#H4F7*N4F7*04F7*P4F7»04F7»R4F7»S^P73 
DO  4*SPACl>CCYL*C1»I13 

COMulNE  compile  G.  mAnO 

DATt-WRlTTtN.  17  M/ Y 72. 

remarks.  • 

MODIFY  MUC  file  TO  CONSIDER  MUC  COHVCRStON. 
environment  01V1S1C.'4. 
configuration  section, 
source-computer.  IPM-J60. 

ObJECT-COMPuTER.  IBM-360. 

INPUT-OuTPUI  SECTIC.4. 

file-control. 

SELECT  iN-FlLE-65-110  ASSIGN  TO  UT-S->TUt4 

RESlRvE  1 alternate  area, 
select  in-file  66-1  ASSIGN  TO  UT-S->TUt2 

REScRvE  1 alternate  AREA* 

SELECT  IN-FILE-nUC  ASSIGN  TO  UT-S-TU24 

RESlRvE  1 *<lternate  area, 
data  OlvlSluN, 
fill  section. 

FO  lN-FlLt-65-110 

RECORUINO  MODE  IS  F 
BLOCK  CONTAINS  50  RECORDS 
RECORD  CONTAINS  20  CHARACTERS 

LABtL  RECORDS  ARE  OMITTED 
DATA  records  AFv  IN-REC-65-1 10. 

IN-RtC-eS-llO  SYNC. 

02  OlU-REC-AUC  picture  XCS3. 

Q2  FIClER  picture  XC153. 

IN-FILP--66-1 
RECORDING  MODE  IS  F 
BLOCK  CONIAINS  20  RECORDS 
RECORU  CONTAIN!  80  CHARACTERS 

LAPlL  records  are  omitted 

DATA  RECORDS  are  1N-REC-66«1. 

01  lN-RfC-06-1  SYEC. 

02  filler  picture  X. 

02  TA02-WUC  PICTURE  XC53. 

02  FILLER  picture  XC74  3. 

IN-FILE-WUC 
RECORUING  MODE  IS  F 
BLOCK  contains  50  RECORDS 
RECORU  CONTAINS  20  CHARACTERS 

label  records  omitted 

DATA  RECORDS  ARE  REC-IN-WUC* 

REC-IN-nUC  SYNC. 

02  IN-REC-WUC  PICTURE  XXXXX* 

02  FILLER  picture  XCI53» 

working-storage  seClION. 

01  f^O-wUt-PROC  PICTURE  9999  VALUE  ZERO  SYNC. 

N0-rAu2-PR0C  PICTURE  9999  VALUE  ZERO  SYNC. 

TABlE4-hUC  svnc. 

02  table-wuc  picture  XtSJ. 

02  filler  picture  XCI53. 

PROCEDURE  DIVISION. 

open-files. 

OPEN  INPUT  lN-FlLe-65-110»  1N«fILE«66*I* 

OPEN  OUTPUT  IN-FILE-WUC. 

MOVE  zero  to  NL-WUC-PROC. 
move  zero  to  NC-TA82-PR0C. 

REAu  lN-FlLE-65-llO  AT  END  GO  TO  CLOSE*FlLES« 
read  IN-FILE-66-1  AT  EMO  GO  TO  CLOSE*FlLES« 

MOVE  TAD2-WUC  TO  TABLE-VUC. 

COMPARE-F ills. 

IF  OLU-REC-WUC  LESS  THAN  TABLE«VUC  GO  TO  TUI4-LESS. 

IF  OLU-kEC-wUC  not  equal  TO  TABLE^MUC  GO  TO  TUlf-CESS* 
write  HtC-lN-Wl‘C  FROM  lN-RCC-65*i I0« 

ADO  1 TO  NO-WUC-PROC. 

REAU  IN-FlLE-65-110  AT  END  GO  TO  CLOSE-FILES. 

60  TO  R-TU12. 

TU12-LESS. 

write  RLC-IN-wUC  from  TABLE4-VUC. 

ADD  1 TO  N0-TAb2-PR0C, 

GO  TO  R-TU12. 

TU14-LESS. 


FO 


01 


01 

01 


0t2-tN 
CTI4  1 

CTt4  2 

T14  3 

CT24  1 

CT24  2 

T24  3 

1440  COS 

C98970 
C98970 
C98970 
C98970 
C98970 


C98970 
C96970 
C98970 
C98970 
C96970 
C96970 
C98970 
C98970 
C98970 
C98970 
C98970 
C96970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C96970 
C98970 
098970 
C98970 
C98970 
C90970 
C90970 
C98970 
C90970 
C90970 
C90970 
C90970 
C90970 
C98970 
C90970 
C90970 
C90970 
C90970 
C90970 
€96970 
C96970 
C98970 
C98970 
C96970 
C90970 
C90970 
C98970 
C96970 
C98970 
C98970 
C98970 
C98970 
C96970 
C98970 

C98970  1 

C98970 

C98970 

C98970 

C98970 

C98970 

C 98970 

C98970 

C98970 

C98970 

C98970 

C98970 


6-89 


C9S9T0 

098970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

098970 

098970 

098970 

090970 

098970 

098970 

098970 

098970 

098970 

098970 

098970 

098970 

C9S970 

CM9T0 

C«i9T0 

C98970 

14«0  COS 

Tl* 

TtO 


6.  5.  4 DATA  BANK  PROGRAM 


//09097r  JOB  Ol>i  G.  iiANu  : •»'HTY>O2»7TPRUN>H0L0 
//(.9897E  ixeC  F i()95L.nME>30.*C0I>0353?3007 

//CHC.TUli!  CM  OISP>C  •P*SS1>UNIT>CAaF1>Z>OCFCH]>D!>N>*A.98954«0>  OTIZ/13  I 
//  VOL>StR>t*Fl»A*Fl,B*Fl,0*Fl,O»Fl.EtFl*FtFl.0*Fl.H*Fl»  CTIZ  Z 
//  I*Fl.J*Fl.K«Fl.L*FI.M*Fl.N»FI,0«FI,P*Fl.a*ri,H*Fl»s*Fl  J TU  3 
//bHC.TUlA  Cj  i)lSP>C>PASS)>UNIT>tT7F3M>UEFeH]>n!,N>*0.989'>43b»  OTI*  1 
//  V7L>StR>C  •F'3iA*F3.0«F3f0*F3,0«F3»E»F3»F*F3»0*F3»M»F3.  OTIK  Z 
//  l♦F3lJ♦F3lA♦F3»L♦F3^H♦F3.N♦F3»0♦F3.P♦F3^0♦F3,R♦F3.S♦F33  Tl»  3 
//OHO.TUlb  OJ  (1IbP>C  •PASS]>UNtT>l  T*F9>l>oeFCP]>DbN>A0.989S>(5b>  0T15  1 
//  V1L>SER>C  ♦F4,A*Fi<,0*F4,C*F<i.0»F9*E*Fit.FAF*»0*F<t»H»Flt»  OTIS  Z’ 
//  I*F«>J*F4.A*F<t»L*F9«R*F9fN7F9t0*FI(tPAFIt»0AF(t,R»Flt»5+F*J  Tib  3 
//CHCfTUZZ  OU  OlbPXCtPASSltUNITbCAAFSvZfOCFERl^PbNbAL. 9897408#  0TZZ/Z3  1 
//  V0L>SER>C*F3.AAFb»BtFSfC*F5.0AFS*E»F5»FAF5»0+F5»H4F5»  OTZZ  Z 
//  I 'Fb>J*F5tX*F5il.*FSfM*FS»N4F5»0*F5»P*F5»0AFS»RAF5»S*F5)  TZZ  3 
//ONG.rUZM  PJ  U1SP>C fPASS3tUNIT>tT*F7>l>DCFCR]#DSN>«e. 9897404#  0TZ4  1 
//  VOL7SEB>C*F3,A4F7#B+F7#C«F7#0»F7#E»F7#F4F7»04F7#H4F7#  0TZ4  Z 
//  I#F/#j*F7#R#F7#L*F7#M*F7#N*F7#0»F7#P4F7#04F7#R4F7#5*F73  TZ4  3 
//OHG.TUZb  C)  OISP>C #PASS1#UNIT>CT*F0#l#0EFER)#DSN>TH.98954zt#  OTZS  1 
//  VOL>SER>C ♦F8#A*FR#B4Fe#C«Fe#04F8#E»F8#F+F8#04F8#M+F8#  OTZS  Z 
//  l*FO#J#F8#K#F8#LFF8#M#F8#N«F8#04F8#PFFe#04FS#R4Fe#STFB]  TZS  3 


//CHOb 

INPUT  0)  ..SPACElCCYL.Cl.IIl 

1440  CDS 

oouoo 

CGMuINE  COMPILE 

0.  WANO 

096970 

01U40 

DATE-WRITTEN.  7 FEB  7Z. 

€96970 

0iU50 

REMARKS. 

C96970 

01U60 

UA'A  DANK  PROGRAM 

FOR  VE-IZ. 

€96970 

o?uoo 

ENVIKONMFNT  DIVISION, 

€96970 

02U10 

CONFIGUkAI luN  SECTION. 

€96970 

U2U20 

SOUHCE-CO.IPUTER.  1QM-J60. 

€96970 

02U3U 

OBJECT-lO'IPuTER.  IBM.360. 

€96970 

02100 

INPUT-OuTPUT  SECTION. 

€96970 

02110 

FlLE-CONTKOL. 

€96970 

02120 

SELEC.  IN-FILE-GS-IIO 

ASSIGN 

TO 

UT-S-TU14 

€96970 

02130 

R'.StRVE  Z alternate 

AREA. 

€96970 

02140 

SELECT  IN-FILE-IRAN 

assign 

TO 

UT-S-TUZ5 

€96970 

021S0 

RtStRvE  I alternate 

AREA. 

€96970 

02160 

SELEC’  IN-fILE-AIE 

ASSIGN 

TO 

UT-S-TU15 

€96970 

02170 

RESERVE  1 alternate 

AREA. 

€96970 

021A0 

SELECT  IN-fILE-66-1 

ASSIGN 

TO 

UT-S-TUIZ 

€96970 

02190 

RwSERvE  Z alternate 

area. 

€96970 

02200 

selec  in-FI le-woc 

ASSIGN 

TO 

UT-S-TUZ4 

€96970 

02210 

RESERVE  1 alternate 

area. 

€96970 

02220 

SELEC 1 OUT-FILE 

ASSIGN 

TO 

UT-S-TUZZ 

€96970 

02230 

ri.seRve  z alternate 

area. 

€96970 

02240 

SELEC'  UATA-IN-FILE 

ASSIGN 

TO 

DA-S-OTOI 

€96970 

02250 

RESERVE  I alternate 

AREA. 

€96970 

bOZlO  nRITE  REO-IN-WUC  FROM  1N-RC0-6S-110# 

SOZZO  ADO  1 TO  NO-MUt-PROO. 

S0Z30  read  IN-FILE-65-110  At  eno  go  to  close-files. 
S0Z40  GO  TO  OOMpare-FIlES. 

SOZSO  R-TUIZ. 

S0Z60  REAU  IN-FILt-6l-l  AT  ENO  GO  TO  R-TU14. 

S0Z70  MOVE  TABZ-4UC  TO  TABLE -400. 

bOZSO  GO  TO  compare-files. 

S0Z90  R-TU14. 

b0300  4R1TC  RtC-lN-Ml'C  FROM  IN-REC-6S-110. 

S030S  AOO  1 TO  NO-WUO-PROC. 

50310  read  lN-FILE-6b-110  AT  ENO  GO  TO  CLOSE-FILES. 

S03Z0  GO  TO  R-TU14. 

S07Z0  CLOSE-FILLS. 

S0730  CLOSE  lN-FILE-6b-llO  WITH  LOCK, 

S0760  lN-FILE-tb-1  WITH  LOCK, 

50780  IN-FlLE-tOC  WITH  LOCK. 

50790  messages. 

50791  DISPLAY  : RECS  COPIEO  FROM  WUC  FILE  1 NO-WOC-PROC 

SOBOO  UF3N  CONSOLE. 

S08I0  DISPLAY  1 RECS  COPIEO  FROM  TABLE  Z I NO-TABZ-PROC 

BOBZO  UPON  console. 

bOB3S  DISPLAY  1 EOJ  09897  I UPON  CONSOLE. 

S0840  GOBACK. 

/•  PLACE  COBOL  SOURCC  BEFORE  THIS  CARO 

//CHG.TFGIN  DO  •.SPACEbtCYL.t 1.1 11 

/•  PLACE  tfg  data  before  This  card 

//IPR.TU14  00  01SP>CaL0#KEEPl.V0L>SER>*F3#UNIT>T*F3 

//TPR.TUZ4  DO  01SP>C0L0.KEEP]#V0L>SER>*F7#UN1T>TaPT 

//TPR.TPRIN  OU  •.SPACOtTRK.Cl.lll 

T/P  TUIZ  I99B0B02080 

T/P  TU14  I9980Z020Z0 

T/P  TUZ4  I9980Z020Z0 

/•  PLACE  T/P  control  CAROS  BEFORE  THIS  CARD 
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loooo 

DATA  OIvIsIUN. 

€96970 

-lOUlO 

FILE  SECI-ON. 

C96970 

10100 

FD 

IN-fIi  E-6S-110 

C96970 

10120 

RECOPUING  MODE  IS  F 

C96970 

10130 

BLOCH  contains  so  records 

C96970 

10140 

RECOR)  CONTAINS  60 

characters 

C96970 

10150 

label  rlcorus  ahe  omitted 

C96970 

10160 

DATA  records  ARL  1N-REC>6S> 

110. 

€96970 

10170 

01 

IN-HE:-b5-llO  STMC. 

€96970 

lOlAU 

02 

M‘IS-6S-110« 

€96970 

10190 

03  MiSSION«65-110 

PICTURE  X. 

€96970 

10200 

OeSI6N.65-110 

PICTURE  XXX. 

€96970 

10210 

0*  series-65-110 

PICTURE  X. 

€96970 

10220 

02 

F ILLe.H 

PICTURE  XC231. 

€96970 

10230 

02 

M..lNT-CODE-b5-MO 

PICTURE  X. 

€96970 

10240 

02 

F*LLEK 

PICTURE  X, 

€96970 

10250 

02 

TU'L-ttS-110 

PICTURE  999. 

€96970 

1O2A0 

02 

WuC-bS-llO 

PICTURE  KCSl. 

€96970 

10340 

02 

r*L-2-65-110  REDEFINES 

■UC-6S-110. 

€96970 

103S0 

03  LANOINGb-65-110 

PICTURE  99. 

€96970 

10360 

03  SORTIES-6S-110 

PICTURE  99. 

€96970 

10370 

o:  FILLER 

PICTURE  X. 

€96970 

10380 

02 

SfcK-NO-b5-110 

PICTURE  XCSJ. 

€96970 

10390 

02 

FILLER 

PICTURE  XX. 

€96970 

10400 

02 

J-UAY-6b-llU 

PICTURE  91*1. 

€96970 

10410 

02 

FILLER 

PICTURE  XC61. 

€96970 

10420 

02 

RfcC-ID-bS-110 

PICTURE  X. 

€96970 

10430 

02 

filler 

PICTURE  X. 

€96970 

11100 

FO 

IN-FlLc-lHAN 

€96970 

11120 

recoplino  mode  is  f 

€96970 

11130 

BLOCK  CONTAINS  30  RECOKOS 

€96970 

11140 

PECORU  CONTAINS  60 

characters 

€96970 

11150 

label  NtCOROS  AhE  OMITTED 

€96970 

11160 

DATA  iECORDS  are  IN*R£C*IRAN« 

€96970 

11170 

01 

IN-kEC-IRAN  SYNt. 

€96970 

11160 

02 

SEH-NO-IHAN 

PICTURE  XCSl. 

€96970 

11190 

02 

SLIUES-IKAN 

PICTURE  X. 

€96970 

11200 

02 

FJLlEk 

PICTURE  XCTl. 

€96970 

11210 

02 

Ihan-vis-no 

PICTURE  9. 

€96970 

11220 

02 

filler 

PICTURE  X. 

€96970 

11230 

02 

U A.h-COUE 

PICTURE  99. 

€96970 

11240 

02 

filler 

PICTURE  XIllJ. 

€96970 

11250 

02 

IkAn-START-UAY 

PICTURE  S9999. 

€96970 

11260 

02 

FULEh 

PICTURE  X. 

C96970 

11270 

02 

ITAK-ENO-DAY 

PICTURE  S9999. 

€96970 

11280 

02 

filler 

PICTURE  Xt40l. 

€96970 

12100 

FO 

IN-ULt-AU 

€96970 

12120 

RECuPciNO  MODE  IS  F 

€96970 

12130 

BLOCK  Contains  6o  records 

€96970 

12140 

RECyPU  OOfnAINS  50 

CHARACTERS 

€96970 

12150 

label  heCOROS  ahe  omitted 

€96970 

12160 

DATA  . ELOKOS  AHE  IN-REC-AIE 

* 

€96970 

12200 

01 

In-ke^-aie  sync. 

€96970 

12210 

02 

FILlEH 

PICTURE  XE91. 

€96970 

12220 

02 

WLC-Aie 

PICTURE  XE51. 

€96970 

12260 

02 

filler 

PICTURE  XCIOJ. 

€96970 

122Q0 

02 

Sf R-Nu-AIE 

PICTURE  XC61. 

€96970 

12300 

02 

filleh 

PICTURE  XIIOJ. 

€96970 

12310 

02 

J-OAY-AIE 

PICTURE  9999. 

€96970 

12320 

02 

filleh 

PICTURE  XX. 

€96970 

13100 

FD 

IN-FILt-66-l 

€96970 

13110 

RECORDING  MODE  IS  F 

€96970 

13120 

BLOCK  CONTAINS  30  RECORDS 

€96970 

13130 

RECORf'  CONTAINS  90 

CHARACTERS 

€96970 

13140 

LABLL  RECORDS  ARE  OMITTED 

€96970 

13150 

DATA  hECOHDS  ARE  IN-REC-66- 

1. 

€96970 

13160 

01 

IN- 

■KEf^-to6-l  SYNC* 

€96970 

13170 

02 

M|>S-6b-l. 

€96970 

13180 

03  MlSSION-66-1 

PICTURE  XXX. 

€96970 

13190 

0^  0ESIGN-66«1 

PICTURE  XXX. 

€96970 

13200 

0/  SERIES-66-1 

PICTURE  X. 

€96970 

13210 

02 

Filler 

PICTURE  XCTJ. 

€96970 

13220 

02 

ScH-No-66-I 

PICTURE  XC«J. 

€96970 

13230 

02 

F'LlEh 

PICTURE  XC231. 

€96970 

13240 

02 

WUC-6b-l 

PICTURE  XtSJ. 

€96970 

13300 

02 

A,C-66-1 

PICTURE  X. 

€96970 

13310 

02 

w; c-6b-l 

PICTURE  X. 

€96970 

13320 

02 

hi-'C-bb-l 

PICTURE  XXX. 

€96970 

13330 

0? 

UNI IS-66-1 

PICTURE  99. 

€96970 

13340 

02 

Li  ljOR-6b-l 

PICTURE  91*1. 

€96970 

13370 

02 

fjlleh 

PICTURE  XC2*1. 

€96970 

13380 

02 

d-UAY-66-l 

PICTURE  9C*J. 

€96970 

13390 

02 

filler 

PICTURE  X. 

€96970 

14100 

FD 

IN. 

> lLL-4ijC 

€96970 

14120 

RECOPl'ING  MODE  IS  F 

€96970 

14130 

BLOCK  Contains  so  records 

€96970 
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IHIHO 

KECOf^U  contains  20 

CHARACTERS 

C46470 

14150 

LABtt  HlCOROS  AKC 

omitted 

C46470 

14160 

data  wtCOROS  AHt  1 

KEC-IN-WUC 

. 

C46470 

14170 

01 

RbC»lN*«UC  SYNC. 

C48470 

14160 

02  Ii.-KE;c-irUC 

PICTURE 

AXXXX. 

C46470 

14190 

02  F'LLER 

PICTURE 

XC153. 

C46470 

15100 

FO 

OUT-FJLt 

C48470 

15120 

recofoing  mode  is 

F 

C46470 

IblJO 

BLOCK  contains  60 

RECORDS 

C46470 

15140 

KECORO  contains  50 

characters 

C96470 

15150 

label  records  are 

omitted 

C96470 

15160 

data  kelokos  are 

OUT-REC. 

C96970 

15170 

01 

OUT-RlC  STNC. 

C96970 

15160 

02  filler 

PICTURE 

xcsoi. 

C96970 

1610U 

FO 

data-in-file 

C98970 

16110 

KECCIRLING  MODE  IS 

F 

C96970 

16130 

BLOCK  CUNTAINS  20 

RECORDS 

C96970 

16140 

RECOPl»  CONTAINS  60 

characters 

C96970 

16150 

label  records  ake 

STANDARD 

C9e970 

16160 

data  i.ELOROS  are 

DATA-lN-ReC. 

C96970 

16200 

01 

OATA-’N-REC 

PICTURE 

XC803. 

C98970 

30000 

norking-stohage  section. 

C96970 

30020 

77 

cur-vlek 

SYNC 

picture 

999 

value 

ZERO. 

C98970 

30030 

77 

IRAn-I  lag 

SYNC 

PICTURE 

9 

VALUE 

ZERO. 

C96970 

30040 

77 

FILE-l O.-OATA 

SYNC 

PICTUKC 

9 

VALUE 

ZERO. 

C96970 

30050 

77 

CUR-S-N 

SYNC 

picture 

XC63 

VALUE 

SPACE. 

C96970 

30060 

77 

oata-ivail-cooe 

SYNC 

PICTURE 

9C4  3 

VALUE 

ZERO. 

C96970 

30070 

77 

INoIRAN 

SYNC 

PICTURE 

9 

VALUE 

ZERO. 

C96970 

30060 

77 

. start-ikan-oat 

sy^k: 

picture 

S9999 

VALUE 

ZERO. 

C96970 

30O90 

77 

ENO-IRAn-OAT 

SYNC 

picture 

S9999 

VALUE 

ZERO. 

C96970 

30100 

77 

JOAT 

Sync 

picture 

9449 

VALUE 

ZERO. 

C98970 

30110 

77 

VUC-TTPE 

SYNC 

picture 

9 

value 

ZERO. 

C98970 

30140 

77 

POS-IAOCE-3 

SYNC 

picture 

949 

value 

ZERO. 

C98970 

30150 

77 

P0S-TAdC£-4 

SYNC 

picture 

999 

value 

ZERO. 

C96970 

30160 

77 

EOF-S-  N 

SYNC 

picture 

XC63 

value 

1999999991. 

C98970 

30170 

77 

EOF-JI'Ay 

SY^K 

PICTURE 

9C4  3 

VALUE 

9999. 

C98970 

30210 

77 

WUC-OV 

SYNC 

picture 

XX 

VALUE 

1091. 

C96970 

30220 

77 

NINt-„l 

SYNC 

picture 

X 

value 

191. 

C98970 

30230 

77 

N1NE-/3 

SYNC 

PICTURE 

XXX 

VALUE 

S999I. 

C98970 

30240 

77 

NINE-XS 

Sync 

picture 

Xt53 

VALUE 

199999:. 

C96970 

30260 

77 

NINt-9<* 

SYNC 

picture 

S9999 

VALUE 

-9999. 

C98970 

30270 

77 

NlNt-E3 

SYNC 

PICTURE 

S999 

VALUE 

-999. 

C96970 

30260 

77 

TAPCf-SI2E 

SYNC 

PICTURE 

999 

value 

250. 

C98970 

30290 

77 

TAB-SlZ-1 

SYNC 

picture 

999 

VALUE 

2SI. 

C96970 

30330 

77 

REC-6C-U0-TTPE-I 

-only  sync 

picture 

X VALUE 

Space. 

C96970 

30331 

77 

HAX-T^B-3  STNC 

computational  PICTURE  S999  VALUE 

ZERO, 

C98O70 

30332 

77 

MAX-TAll-4  STNC 

computational  picture  S999 

VALUE 

zero. 

C96970 

77  R-B  SMK  computational  PICTURE  S99 

77  ATC-ll  ULX  COMPUTATIONAL  PICTURE  S999 

01  NO-A-C-CROC  PICTURE  999 

01  LIST-bEK-NO  STNC. 

02  St^-No  OCCURS  <•  TIMES  PICTURE  Xt63. 

01  LlST-HEtK-NO  STNC. 

02  »£tK-N0  OCCURS  <»  TIMES  PICTURE  999. 

01  NO-»EtX-PKOC  picture  999 

01  WUC-Tt'tP  STNC. 

02  ruc-mjr  picture  XX. 

02  FILCEK  picture  XXX. 


PICTURE  S999  VALu€  <60. 
picture  S999  value  EERO  STNC. 


picture  999 


VALUE  zero  STNC. 


VALUE  ZERO  STNC. 


VUC-1  TEOEFINES  VUC-TEMP  STNC. 


picture  XX. 
PICTURE  XXX. 


02  VIC-3-01G  PICTURE  XXX. 

02  WUC-2-OIG  picture  XX. 

01  KN7  computational  picture  S9999  VAL 

01  XNA  COMPUTATIONAL  PICTURE  S9999  VAL 

01  RNB  COMPUTATIONAL  PICTURE  S9999  VAL 

01  VEEA-NO-COHP  picture  999 

01  TEMR  STNC  PICTURE  S999. 

LIST-C*TA-VEEX  STNC. 

02  CATA-WEEK  OCCURS  » TIMES  PICTURE  S9. 

list-uaia-reek-a  redefines  list -oat a-veex  stnc. 


VALUE  ZERO  STNC. 
VALUE  ZERO  STNC. 
VALUE  ZERO  STNC. 

STNC. 


02  DATA-wEEK-I  PICTURE  S9. 

02  DATA-vEEK-2  picture  S9. 

02  DATA-wEEK-J  picture  S9. 

02  DA.-A-WEEK-9  picture  S9. 

01  ONE  Stnc  picture  9 value  i. 

01  FILE-NO  STNC  picture  S99  COMPUTATIONAL. 

01  sn-temp  stnc  picture  xteJ. 

01  ALL-EC-'  STNC  PICTURE  9. 

01  IND-TIMP  STNC  PICTURE  9. 

01  RECUPUS-PASS  STNC  picture  9t7J  VALUE  ZERO, 

01  NINES  STNC  PICTURE  XC90]  VALUE 

• 9999999999999999999999999999999999999099999999999* I . 

01  MSO  STNC. 

02  POS  PICTURE  99999. 

02  FULEk  picture  XC15J  VALUE  SPACE. 

01  define -file-data  stnc. 

02  file-uata-i  picture  9 value  1. 

02  Fli.L-DATA-2  picture  9 VALUE  1. 


01  sn-temp 

01  ALL-EC-' 

01  IND-TIMP 
01  RECUPUS-PASS 
01  NINES 


C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C989T0 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C 98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C989T0 
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30930 

02 

Fl.t-l)ATA-3 

PICTURE 

9 

VALUE  t. 

C9a970 

30940 

j2 

Fr,L-0ATA-4 

PICTURE 

9 

VALUE  1. 

C9a970 

30950 

01 

FILLFH  REOEFINES  DEFINE-FILE-OATA  STNC. 

C9a970 

30960 

02 

FUt-UATA  OCCURS  4 T1P4ES  PICTURE  9« 

C9a970 

31100 

01 

define  •>.OH-COOEii  SYNC. 

C9a97o 

3U90 

U2 

NPR-cont  OCCURS  17  times  picture  x. 

C9a970 

31400 

01 

4UC 

-ENGINES  STNt. 

C9a970 

31490 

02 

EK3INE-XUC 

PICTURE 

XXX  occurs  7 times. 

C9a970 

31600 

01 

TABLE- WUC  SYNC. 

C9a970 

31610 

02 

Lisr*«uc  OCCURS  3000 

times  PICTURE  XI8J. 

C9a970 

32100 

01 

4UC 

-OLrlNL-TASLL  SYNC. 

C9a970 

33510 

02 

4C:-P0S-TYPL  OCCURS 

22 

TIMES  PICTURE 

XX. 

C9a970 

33520 

02 

4UC-P0S-STAHT  OCCURS 

22 

times  PICTURE 

9999  • 

C9a970 

33530 

02 

4UC-P0S-EN0  OCCURS 

22 

times  picture 

9999. 

C9a970 

40u00 

01 

R£C< 

-ttv-1  sync. 

C9a970 

40U10 

02 

ML'i-TYPE-l. 

C9a970 

40U20 

03  mission-type-1 

PICTURE 

X. 

C9a97o 

40U30 

03  OLSlGN-ryPE-l 

picture 

XXX. 

C9a970 

4nU40 

03  SE9IES-rYPE-l 

picture 

X. 

C9a970 

40U50 

02 

Stw-No-rypE-i 

PICTURE 

XtHI. 

C9a970 

40U60 

02 

WlEk-NO-TYPL-1 

PICTURE 

999. 

C9a970 

H0u70 

02 

FILLER 

PICTURE 

XtlZl 

VALUE  space. 

C9a970 

400B0 

02 

FL'-TIME-ttPE-I 

PICTURE 

S9999. 

C9a97o 

H0U90 

02 

filler 

PICTURE 

XtSJ 

VALUE  SPACE. 

C9a970 

40100 

02 

SOf<riLS-TYPL-l 

PICTURE 

S9999. 

C98970 

40120 

02 

LA  luINGS-TYPE-1 

PICTURE 

S9999. 

C9a97o 

40130 

02 

FI'.lEH 

PICTURE 

Xt  05  3 

VALUE  space. 

C9a97o 

40140 

02 

PLC-IO-TYPE-1 

picture 

9 

VALUE  1. 

C9a970 

40150 

02 

FIuLEK 

picture 

X 

VALUE  space. 

C9a970 

40400 

01 

REC 

-Ty‘‘c-2  sync. 

C9a970 

40410 

02 

FDS-TYPt-2. 

C9a97o 

40420 

03  MlSSlON-TYPE-2 

picture 

X. 

C9a970 

40430 

0-  OL51GN-rYPE-2 

picture 

XXX. 

C9a970 

4044U 

o;  SLPlES-rYPE-2 

picture 

X. 

C 98970 

40450 

02 

StH-NO-TYPE-2 

PICTURE 

xta3. 

C98970 

4046U 

02 

WLc:^-lJO-TYPt.-2 

PICTURE 

999. 

C 90970 

40470 

. 02 

1=1 -LER 

picture 

XC93 

VALUE  space. 

C98970 

4Q4BU 

02 

IRA  <-VlS-NO-TYPL-2 

picture 

S999. 

C98970 

40490 

02 

filler 

picture 

XC9J 

VALUE  space. 

C98970 

40u00 

02 

IH  Ui-COUE-rYPE-2 

PICTURE 

5999. 

C98970 

40510 

02 

IHAN-STAHT-OAY-TYPE-2 

picture 

S9999. 

C98970 

40530 

02 

lHAl.j.ENU-OAY-rYPE-2 

picture 

S9999. 

C98970 

40540 

02 

filler 

picture 

Xt05  3 

value  space. 

C98970 

40550 

02 

Pt.-IU-TYPt-2 

picture 

9 

VALUE  2. 

C9a970 

40560 

02 

Fr.LLR 

PICTURE 

X 

VALUE  SPACE. 

€98970 

40/00 

01 

RtC 

•TYPL-3  SYNC. 

C98970 

40/10 

02 

MU3-TYPt3. 

C98970 

40720 

o:  mission-type-3 

PICTURE 

X. 

C98970 

4t)/30 

03  OESION-rYPE-3 

picture 

XXX. 

C98970 

40  /40 

03  StPIES-TYPE-3 

PICTURE 

X. 

C98970 

40750 

02 

St  <-NO-TYPE-3 

PICTURE 

Xt«3. 

C98970 

40760 

02 

Wt  -•v-NO-TYPt-3 

PICTURE 

999. 

C98970 

4 )/70 

02 

WUC-TYPE-3 

PICTURE 

Xt53. 

C98970 

40780 

02 

fuler 

picture 

Xt.J 

VALUE  SPACE. 

C 98970 

40790 

02 

PAfA-rYPE-3A, 

C98970 

408U0 

03  UNirS-TYPE-3 

PICTURE 

S999. 

C98970 

40610 

03  LAROH-TYPE-3 

PICTURE 

S9999. 

C98970 

40640 

03  AlE-TYPt-3 

PICTURE 

S999. 

C98970 

40650 

03  norm-type-3 

picture 

S9999. 

C98970 

40674 

03  NORS-TYPE-3 

picture 

S9999. 

C98970 

40676 

03  UfUT5-ATC-TYPE-3 

picture 

S999. 

C98970 

40600 

02 

F1.LEN 

picture 

Xt02  3 value  space. 

C98970 

40690 

02 

RtC-lO-TYPE-3 

picture 

9 

VALUE  3. 

C98970 

40900 

02 

FILLER 

picture 

X 

VALUE  space. 

C98970 

41100 

01 

REC-Tyr^L-4  SYNC. 

C98970 

41110 

02 

MLi-TyPE-4. 

C98970 

41120 

03  mission-type-4 

PICTURE 

X. 

C98970 

41130 

03  DESlGN-TYPE-4 

picture 

XXX. 

C98970 

41140 

03  SERlES-rYPE-4 

picture 

X. 

C98970 

41150 

02 

Sk9-N0-TYPE-4 

picture 

xca3. 

C98970 

41160 

02 

4t.EK-N0-TyPt-4 

picture 

999. 

C98970 

41170 

02  UATM-TyPE-4. 

C98970 

41180 

03  WUC-TyPL-4 

PICTURE 

XtSI. 

C98970 

41230 

03  WOC-TyPL-4 

picture 

X. 

C98970 

41250 

03  HMC-TYPt-4 

picture 

xxx. 

C98970 

41260 

03  UNirs-TyPE-4 

picture 

5999. 

C98970 

41270 

03  MHRS-rYPF4 

PICTURE 

S9999. 

C98970 

41280 

02 

filler 

picture 

XC1.3 

VALUE  space. 

C98970 

41290 

02 

Rt--lO-TYPE-4 

picture 

9 

VALUE  «. 

C98970 

41300 

02 

FI’.LEH 

PICTURE 

X 

VALUE  SPACE. 

C98970 

42U00 

01 

table-3  Sync. 

C98970 

42U10 

02 

TAULE-3-ROX  OCCURS  250  TIMES. 

C98970 

42U20 

03  TARLE-3-WUC 

PICTWt 

XCSl. 

C98970 

42U30 

03  rARLE-3-nATAA, 

C98970 

42U40 

04  TAMLE-3-1441TS 

PICTURc 

S999. 

C98970 

42U50 

04  tamle-s-lahoh 

pictwe 

S9999, 

C98970 

42u7U 

04  tahle-s-aie 

pictwr 

5999. 

C98970 

6-93 


42ua0 

04  T*tJLE-3-NO«M 

picture  S9999, 

C98970 

42120 

04  TABLE-S-NOPS 

PICTURE  S9999. 

C98970 

42130 

04  TAbLE-3>UNITS-ATC 

C98970 

42140 

picture  S999. 

C98970 

42200 

01 

table-4  sync. 

C98970 

422IU 

02  TAHLE-4-R0W  OCCURS  250 

TIMES. 

C98970 

42220 

03  TABLE-4-RUC 

picture  xtsi. 

096970 

42230 

03  TAnLE>4-WDC 

picture  X. 

C98970 

42250 

03  TABLE-4-HMC 

PICTURE  XXX. 

C98970 

42260 

03  TABLE-4-UN1TS 

picture  S999. 

C98970 

42270 

03  TABLE-4-MHRS 

PICTURE  S9999, 

098970 

43U00 

01 

DATA-IN-A  SYNC, 

098970 

43UI0 

05  HUC-SCHEO-INSP 

picture  XX. 

098970 

43U20 

05  FILLER 

picture  XXX. 

C98970 

43U30 

05  WUC-SPEC-INSP 

picture  XX. 

098970 

43040 

05  FIILEH 

picture  XXX. 

098970 

43U50 

05  FIRbT-A-C 

PICTURE  XtRJ. 

098970 

43U60 

05  FILLER 

picture  XX. 

09B970 

43070 

05  FI"bT-WEEK 

PICTURE  9153. 

098970 

43UaO 

05  LASI-WEEK 

PICTURE  9(53. 

098970 

43U9U 

05  FILLER 

PICTURE  X. 

098970 

43100 

05  MIjSION-IN 

picture  X. 

098970 

43110 

05  OESICN-IN 

picture  XXX. 

098970 

43120 

05  NO-AC-TO-PROC 

picture  9(53. 

098970 

43130 

05  FI,.LER 

picture  XC40  3. 

096670 

43200 

01 

OATA-I  l-B  SYNC, 

098970 

43210 

05  NUV-AtC 

picture  999. 

098670 

43220 

05  filler 

picture  XCY7  3. 

098970 

43300 

01 

oata-m-c  sync. 

098970 

43310 

05  X-'.OOE 

picture  X. 

C9B970 

43320 

05  FILLER 

picture  X(79  3. 

098970 

43400 

01 

oata-m-0  sync. 

09B970 

43410 

05  MU'-NCOOES 

picture  999. 

098970 

43420 

05  NUP-NORM 

picture  999, 

098970 

43430 

05  filler 

picture  X(74  3. 

098970 

43b00 

01 

OATA-I  I-E  SYNC, 

098970 

43510 

05  NL’4*ENG-MUC 

picture  999. 

098970 

43520 

05  filler 

PICTURE  X(773. 

098970 

43600 

01 

OATA-Iil-F  SYNC, 

098970 

43610 

05  EN  -WUC-IN 

PICTURE  XXX. 

098970 

43620 

05  filler 

picture  XI  77  3. 

096970 

43700 

01 

oata-in-c  sync. 

098970 

43710 

05  NUii-WUC-CROUPS 

picture  999. 

098970 

43720 

05  filler 

PICTURE  XXX. 

068970 

43730 

05  PAX'NUW'WUC 

picture  9999. 

098970 

43740 

05  FUlEr 

picture  XI  70  3. 

098970 

43600 

01 

oa-a-in-h  sync. 

098970 

43610 

05  l«U<;-2DIG-IN 

PICTURE  XX. 

098970 

43620 

05  FILLER 

PICTURE  XXX. 

098970 

43630 

05  FI.  ST-POSITION 

Picture  915 3. 

098970 

43640 

05  LA' I-POSITION 

PICTURE  9(5  3. 

098970 

43650 

05  filler 

PICTURE  XI65  3, 

098970 

43900 

01 

filler  sync. 

098970 

43)10 

05  LIST-AIC 

PICTURE  X OCCURS  5 TIMES. 

098970 

50U00 

PROCFOUkF  division. 

098970 

50UI0 

OPtN-F ILCS. 

098970 

50U20 

OPEN  I'.PUT  IN-FlLE-65-IlOr 

IN-FILC-IRAN*  IN-FILe-AIE» 

098970 

50U30 

IN- FILE-66-I,  IN-FILE-WUC. 

090970 

50U40 

OPEN  Ol'IPUT  OUT-FILt. 

098970 

50U45 

OPEN  INCUT  OATA-IN-FILE. 

098970 

50U5U 

NOVL  2LrtO  TO  NO-A-C-PROC, 

09B970 

5OU60 

MOVL  2 HO  TO  IRAN-FLAG, 

096970 

50U65 

PERFORM  REAO«OArA-lN-FILe  THRU  CND-HOtF* 

098970 

50070 

NOTt  HtAO  list  of  WORK-UNI T-COOCS* 

096970 

50080 

perfor<  rlao-wuc-list  thru 

ENO-HEAD-WUC-LI ST . 

098970 

50085 

CLOSE  ’N-FILE-KUC  KITH  LOCX 

• 

098970 

50U9U 

NOTt  find  lowest  SERIAL  NuWER  ANO  WEEK  FOR  INPUT  DATA 

096970 

50100 

FILcSr 

098970 

50110 

PCPFOH*'  INIT-SN-WK  THRU  CNO 

-init-sn-wx. 

096970 

50120 

NOTt  find  file  WITH  LOWEST 

SERIAL  number-week. 

096970 

50130 

PERFORM  ST-SN-wk  thru  ENO-ST-SN-WK* 

098970 

50140 

NEw-SEP-WO. 

098970 

50150 

MOVt  F 'LE-IOW-UATA  to  FILE-i 

NO, 

096970 

50160 

HOVt  SlR-NO  IFILE-NOJ  TO  CUR-S>N. 

096970 

50170 

MOVE  Wttx-NO  CFILE-NOJ  TO  CUR'WEEK. 

098970 

50180 

MOVE  2LHO  TO  NO-wE£K«PROC • 

096970 

50190 

NOTt  PUUTINE  TO  START  O^TA 

BANK  WHEN  65-UO 

098970 

50200 

and  66-1  IS  AvAlLABCt* 

096970 

50210 

PEPFORI*  start-bank  thru  end 

-START-BANK, 

096970 

50220 

IF  IRAI -FlAO  not  EOUAL  TO  ZEROf 

096670 

50230 

perform  reslT'Wlek  thru 

ENO-RESET, 

096970 

50240 

ELStf  perform  reset-ser 

-NO  thru  end-reset. 

098970 

50250 

MOVE  2lhO  to  IRAN-FLAG. 

098970 

50260 

move  21 ho  to  no-week>proc. 

096970 

50270 

IF  uata-avail-code  equal  to 

2ERO  60  TO  SN-WEEK-DONC. 

096970 

50280 

NOTt  PROCESS  ONE  serial  I 

NUMBER -WEEK, 

096970 

50290 

NEXT'WELK. 

096970 

6-94 


r 


1 


bOJOl 

b0J02 

b0i03 

bOJO<t 

bOJOb 

SOJOb 

bOJOT 

bOJOS 

b0J09 

bOJIO 

b0J20 

bOJJO 

bOJ<tO 

bOJbO 

bOJbO 

bOJTO 

bOJeO 

b0J90 

b04on 

bouio 

b0420 

bnuso 

b04>tu 

bOUbO 

bOObO 

bO^TO 

bO>tSO 

bOOPO 

bObOO 

bOblO 

b0b20 

bObbO 

bab40 

bObbO 

bObbb 

bObbO 

bOb70 

bObSO 
b0b90 
bObOO 
bOblO 
b0b20 
bObJO 
bOb40 
bObbO 
bObbO 
bOo7U 
bObSO 
bObOO 
b0  700 
bnnu 

b('/20 

borsn 

bO/4U 
b0750 
bO/60 
b0  780 
b078I 
b0790 
bO/9I 
bObOO 
bOblU 
50820 
bOOJO 
b0831 
b0832 
b083b 
50840 
bOUOO 
b9U20 
b9U30 
b9U40 
bOOSO 
69UbO 
b9U70 
bPunO 
70U00 
70U10 
70U20 
70U30 
70040 
70UbO 
70Ub0 
70U70 
70100 
70II0 
70120 


IF  D*I7-Wt:EK~2  is  NOT  equal  TO  2ER0  PERFORM  RCSCT-IRAN 
THRU  end-reset. 

IF  DATA-WEEK-3  is  not  equal  to  zero  perform  RESeT-AIE 
THRU  end-reset. 

IF  dATA-MEEK-4  is  not  EQUAL  TO  ZERO  PERFORM  RESET-66-1  • 
THRU  end-reset. 

IF  DAT--t(EEK-l  is  NOT  EQUAL  TO  ZERO  PERFORM  RCSET-6S-110 
THRU  end-reset. 

IF  dATA-WEEK~2  not  equal  to  ZERO 

PERFORM  SN-4K-1RAN  THRU  ENO-SN-MK-IRAN. 

IF  uAr'-HEEK-3  NOT  EQUAL  TO  ZERO 

PLRfOHM  SN-4K-A1E  THRU  ENQ-SN-MK-AIE. 

IF  OATA-WEEK-4  not  equal  TO  ZERO 

PttFORH  SN-HK-bb-1  THRU  ENO-SN-MR-bb-1 . 

IF  data-feek-i  not  equal  to  zero 

PLRFOhm  SN-kK-bb-110  thru  ENO-SN-«K-65-110i 
sn-feek-do.:l. 

PERFOk'*  FRITE-UANK  THRU  END-WR 1 TE-BANK . 

ADD  ONE  TO  CUR-kELK. 

IF  luh- .Elk  greater  than  last-week 

60  |0  SERlAL-NO-nONE. 

IF  iran-flag  equal  to  zero 

Go  10  WLEK-RFSET. 

CORHUll  WLEK-NO-CoRP  > LEND-IRAN-OAY  < SJ  / 7 < 1. 

IF  LUK-aELK  GREATER  THAN  WEEK-NO-COMP 
ROVt  ZERO  TO  1RAN-FLA6. 

WEEK-REbET. 

perforf  reset-week  thru  end-reset. 
perform  DATA-AVAIL  THRU  END-DATA-AVAIL. 

IF  uata-avail-cude  equal  to  zero 

GO  TO  SN-WEEK-OONE. 

GO  TO  ' LKT-WLEK. 

SERlAL-NO-nuNE. 

PERFOR-  RESET-SER-NO  thru  ENr>-RESET. 

MOVE  ZlkO  to  IRAN-FLAG. 

ADD  ONF  TO  NO-A-C-PROC. 

IF  NO-A-C-PROC  IS  not  less  THAN  NO-AC-TO-PROC » 

GO  TO  BLOCK-CHECK. 

NOTE  CHECK  IF  all  FILES  HAVE  EOF. 

PERFORM  FILES-EOF  thru  END-FILES-EOF. 

IF  all-lof  not  equal  to  zero 

GO  TO  NEW-SEB-NO. 

NOTE  AIRCRAFI  SERIAL  NUMBERS  PROCESSING  COMPLETED. 
BLOCK-CHECK. 

COMPUTE  KNT  > RECORDS-PASS  - RECORDS-PASS  / R-B  A R-B. 

IF  KMT  EQUAL  TO  ZERO 
GO  rO  CLOSE-FILES. 

NlNE-FlLL. 

WRITE  ouT-REC  From  nines. 

ADD  0M(  TO  KNT. 

IF  KNT  IS  LESS  than  R-0  GO  TO  MINE-FILL. 

CLObK-FlLES. 

CLObF  .(1-FlLt-Ob-TlO  WITH  LOCK. 

'H-FILE-IRAN  WITH  LOCK. 

FH-FILE-AIE  WITH  lock. 

ll.-FlLE-bb-l  WITH  LOCK. 

CjT-FILE  WITH  LOCK. 

CLOSE  data-in-file  with  lock. 

MESSAGES. 

SER-NO  I CUR-S-N  1 week  1 CUR-WEEK  UPON  CONSOLE. 
I REIOROS  WRITTEN  IN  DATA  BANK  I RECOrDs-PASS 
UPON  CONSOLE. 

NUMBER  A/C  PROCESSED  1 NO-A-C-PROC 
UPON  console. 

: MAX  TAB  3 I MAX-TAB-3  IMAX  TAB  • 1 

MAX-TAH-4  upon  console. 

: EOU  C9897  I UPON  CONSOLE. 


DISPLAY 

DISPLAY 


DISPLAY 

DISPLA- 


DISPLAY 
GOBACk. 

CHECK-IN-IPAN. 

MOVE  ZERO  TO  IN-IRAN. 

IF  IRAN-FLAG  IS  EQUAL  TO  ZERO  OO  TO  ENO-CHECR-IN-IRAN. 

IF  JDA'"  LESS  THAN  STAR T-IRAN-DAY  BO  TO  END-CHECK-IN-IRAN. 

IF  JDAY  9REATER  THAN  ENO-IRAN-DAY  00  TO  END-CHCCK-IN-IRAN. 
MOVE  OI.L  TO  IN-IRAN. 
end-check-  h-IRAN. 

EXIT. 

PROC-WUt. 

move  zero  to  WUt-TYPE. 

IF  wuc- iFMP  IS  Equal  to  space  then  bo  to  end-proc-muc. 

IF  wUC-MJR  is  GREATER  THAN  NUC-09  BO  TO  PROC-wUC-NSB. 

IF  WUC-MJR  IS  EQUAL  TO  WUC-SCHED-INSP  BO  TO 
PROC-WUC-ACCPT-SO. 

IF  wuc-MjR  IS  Equal  to  wuc-spec-insp  bo  to  proC-«uc-accpt-sb. 

60  TO  END-PROC-WUC. 

PROC-WUC-At^PI-SC. 

MOVE  1 10  wuc- TYPE. 

60  TO  END-PROC-WUC. 


C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C 98970 
C98970 
C98970 
C98970 
C96970 
C98970 
C98970 

C96970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C96970 
C98970 
C98970 
C96970 
C 96970 
098970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C96970 
C98970 
C98970 
C98970 
C96970 
C98970 
C98970 
C98970 
C98970 
C98970 
098970 
090970 
098970 
098970 
098970 
098970 
098970 
090970 
090970 
098970 
098970 
090970 
090970 
098970 
090970 
090970 
090970 
090970 
090970 
090970 
090970 
090970 
090970 
090970 
090970 
096970 
090970 
096970 
096970 
090970 
096970 
090970 
096970 
090970 
090970 
090970 
098970 
090970 
096970 
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L 


MiBUittBiiiaiiil 


70^00 
70^10 
70^20 
7023U 
70240 
702S0 
70260 
70270 
702^0 
70300 
70310 
7032U 
70330 
70340 
70350 
70360 
70370 
70360 
70400 
70410 
70420 
704  30 
70440 
70450 
70460 
70470 
70500 
70510 
70520 
70530 
70540 
70600 
70610 
70620 
70630 
70640 
70650 
70660 
70700 
70710 
70720 
70600 
70610 
70620 
70630 
70640 
70650 
70S00 
72U00 
72U10 
72020 
72U30 
72U40 
72U5U 
72060 
72070 
72000 
72090 
72100 
72105 
72110 
72120 
72130 
72140 
72150 
72200 
72220 
72230 
72240 
72245 
72250 
72260 
72270 
722B0 
72290 
72300 
72310 
72320 
72400 
724X0 

72414 

72415 
72420 
72430 
72440 
72450 


PH0C-WUC-NS6. 

ir  P05*rABLE«3  IS  eOUAL  TO  ZERO  00  TO  Pf<0€*WUC*3. 

MOVE  1 to  KNT* 

PH0C-«Uf4« 

IF  wUC-^lEMP  IS  tOUAL  TO  TABLE*3«WUC  CKNT1  THEN  00  TO 
PR0C-6uC-ACCPT^S0. 

AOD  1 TO  KNT. 

IF  kMT  is  greater  than  K0S-TABLE*3  then  60*T0  PROC-W(K«3» 

GO  TO  F /iOC-HUC-4. 

PHOC-WUC-3* 

IF  P0$-TAhLE-4  is  EQUAL  TO  ZERO  GO  TO  PROC-WUC-CNGS. 

MOVE  i to  KNT. 

PHOC-WUC-6. 

XF  »UC*tCMP  XS  EOUAL  TO  TAeLe«4*WUC  CKNT)  THEN  GO  TO 
PR  OC- WUC •ACCPT^NSO . 

AOD  1 10  KNT. 

IF  kNT  is  GREATER  THAN  P0S«TABLC-4  THEN  GO  TO  PROC*WUC-eNOS. 
GO  TO  PkOC-MUC-6. 

PHOC-lirUL-ENv^S. 

MOVE  i TO  KNT. 

PR0C-6Ut-7 

XF  ttUf3«0X6  XS  equal  TO  ENGXNC-WUC  CKNT3  THEN  GO  TO 

proc«wuc*accpt*engs. 

AOD  1 0 KNT. 

XF  KNT  is  GREATER  THAN  NUH-ENG-WUC  GO  TO  PROC-KUC*MjR* 

60  TO  PR0C-4UC-7. 

proc^wuc-allpt-engs. 

MOVE  SPACE  TO  HUC-2-OXG. 

PR0C-HUC-ACCPT«NS6. 

HOVE  2 to  WUC-TTPE. 

60  TO  LNO«PROC-»UC« 

PROC-WUC«H/«. 

MOVE  1 10  KNA. 

PRuC-HUL«6. 

XF  hUL'MJR  XS  EQUAL  TO  WUC«POS«TYPE  CKNA3  GO  TO  PROC*HUC*HXN. 

AOD  1 kna, 

XF  kHA  XS  OHEATER  THAN  HUM«WUC«GROl|P$  GO  TO  EN0*PR0C*«UC • 

GO  TO  RkOC-«UC«6« 

PROC^WUC^M.N, 

Movt  «’>c«pos-start  Ckna]  to  knt« 

MOVE  •UC-POS-CNU  CKNAJ  TO  KNR* 

PROC-WUL-9. 

XF  vUC'  lEHP  XS  EQUAL  TO  LXST-WUC  CKNT3  GO  TO 
PKOL«WUC«ACCPr««-WSG* 

ADO  1 TO  KNT« 

XF  kNT  IS  greater  than  KNB  go  to  ENO-PRO€«WUCt 
GO  TO  *’R0C-»ltC-9# 

ENO^PROC^VUC*  EXXT« 

PROC«65«llo. 

MOVE  JuAy-65-110  TO  JOAY. 

perform  CHECK«XN-XRAN  thru  EN0-CHE€K«1N-XRAN. 

IF  IN-lRAN  IS  equal  TO  1 GO  TO  EN0«PR0C*65*119* 

XF  REC  10-65-llU  IS  EQUAL  TO  12:  GO  TO  PROC-G5*! X0*A. 

XF  REC*'X0-65-11U  IS  GREATER  THAN  121  GO  TO  PROC«G5*l 10*B* 

GO  TO  FI4O-PROC-65-110. 

PR0C-65-11U-8. 

XF  REC  10-65-llU  IS  GREATER  THAN  iGt  GO  TO  ENO-PROC»G5*1XO. 
NOTE  ''tC-X0-6b-110  HAS  VALUE  3 TO  9 AT  THIS  POINT* 

AOO  TXML-65-110  TO  FLT-TXME-TYPE-1 . 
move  ti:  TO  REC-65-110-TYPE-1-ONLY. 

AOO  SOItXES-65-110  TO  SORTXES«TYPE«l. 

AOO  LA'JUXNGS-65«110  TO  LAN01NGS«TYPE«1. 

XF  sERlLS-TVPE-1  IS  EQUAL  TO  SPACE  THEN  MOVE  SERIES^G-IIO 
TO  SERXES-TVPE-1* 

GO  TO  ';t4O-PR0C«65«110* 

PR0C-65-11II-A. 

MOVE  6(IL«65-110  TO  »UC«TEMP. 

PERt-OKf  PROL-VUL  THRU  ENO-PROC«MUC. 

IF  HUC-ITPE  IS  EOUAL  TO  ZERO  60  TO  ENO«PROC*65*1 10* 

MOVE  :i:  TO  REC-65-llu-TYPE-!-ONLY. 

MOVE  1 10  KNT. 

IF  ROSTAbLE-3  EOUAL  TO  ZERO  GO  TO  PR0€*69«1 1 0*€* 
PROC-65-lin-C. 

IF  HUC«rEMP  IS  EQUAL  tO  TABLE«3-WUC  CKNTl  THEN  GO  TO 
PROC-65-110-0. 

AOO  1 *0  KNT. 

IF  KNT  IS  GREATER  THAN  POS-TABLE-3  GO  TO  PROC-GS*! 10*E. 

GO  TO  PHOC-65«110-C. 

PR0C*65-I1)-E, 

MOVE  KN1  TO  POS«TAOLE«3* 

IF  POS«tAuLE«3  IS  GREATER  THAN  MAX.TAB«3  MOvE  P0S«TABLC*3 
TO  MA«.TAB«3* 

IF  P05*tABLE«3  IS  GREATER  THAN  TABLE*51ZE  GO  TO  PRQC-GS-CRR* 
MOVE  •UL-TEMP  to  TABLE«3««UC  CKNT3. 

IF  5FKlES«TrPE-3  IS  EQUAL  TO  SPACE  THEN  MOVE  SERlES«G5«ltO 
TO  SERIES-TYPE-3* 
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C96970 
C9A970 
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72500  PH0C-65-1I1-0, 

7251U  MOVL  1 rO  KNA, 

72520  PROC-65-lI<J-F, 

72520  IF  MAI  lT-COOE-65-110  1$  COuAL  TO  NOM-COOC  CKMA)  00  TO 

72540  PfiOC-65-110-0* 

72550  AOO  I TO  KNA, 

72560  IF  kNA  IS  GHEATbR  THAN  NUM^NCOOES  00  TO  CND^OC»05-llO* 

72570  60  TO  *»HOC-65-110-Fi 

72600  PHOC*65-l}0-6, 

72610  IF  kNa  is  not  OHEATER  THAN  NUM-NORM  THEN  ADO  TlMC*65*llO  TO 

72620  TAeLE-3<-NORM  CKNTl* 

72630  IF  kNA  is  greater  THAN  NuM.NORH  THEN  AOO  TlME-OS-llO  TO 

72640  TABLE-3<-N0rS  CKNT]« 

72690  60  TO  cUO«PROC*65*110« 

72600  PH0C-65-E6^« 

72610  DISPLAY  : TABLE  SIZE  EXCEEOEO  IN  TABLE«3  1 UPON  CONSOLE* 

72620  GO  TO  CLOSE-PILES. 

72900  CN0«PR0l-< b-110«  EXIT* 

73U00  PROC-IRAN. 

73010  MOVE  IHAN-VIS-NO  TO  lRAN-VlS-NO-TYPE-2. 

73U20  MOVL  IRAN-COOE  TO  1RAN<-C00E<-TYPE«2« 

73030  MOVE  y«MN-START-OAY  TO  IRAN-STAHT-OAt-TYPE-a. 

73040  HOVE  IRAN-START-OAY  TO  START-IRAN-OAY* 

73O50  IF  iRAfHCNn-OAY  IS  EOUAL  TO  ZERO  THEN  MOVE  9999  TO 

73060  IHAN<-eNO-OAY. 

73070  MOVE  IRAN-ENO-OAY  TO  IRAN<-EN0<-0AY«TYPE«2« 

73O60  MOVE  HAN-CNO-OAY  TO  ENO-IRAN-QAY* 

73090  MOVE  1 TO  IHAN-FLA6* 

7^100  IF  5EhTLS-TTPE-2  IS  EOUAL  TO  SPACE  THEN  MOVE  SERIES^UaN 

/3110  TO  SERieS-TYPE-2* 

73900  ENUoPROC^IRAN.  EXIT* 

74000  PROCoAIE* 

74010  MOVL  «-uAy-AIE  TO  JOAY« 

74020  PERFORM  ChECX-IU«IRAM  THRU  ENO-CHECK-IN^IRAN* 

74U30  IF  IN-IhAN  IS  EOUAL  TO  1 GO  TO  ENO«^RO€«-Air • 

74040  MOVE  (UC*AIE  TO  «UC*TEMP« 

74050  PERFORM  PROC-MUC  THRU  ENO-PROC<-»UC« 

74060  IF  nUC^rYPe  IS  EOUAL  TO  ZERO  GO  TO  ENO*PROC<»AlE, 

74100  MOVE  * 10  KNT* 

74110  IF  PO‘^-rAoLE-3  IS  EOUAL  TO  ZERO  60  TO  PROC*AlE*A* 

74120  PHOC-Alt-b* 

74130  IF  NUC-rEMP  IS  EOUAL  TO  TA8LE«3«MUC  CRNT)  THEN  GO  TO 

74140  PROC-AIE-C* 

74150  AOO  I TO  KMT« 

74160  IF  knt  Is  greater  than  pos«ta8lE*3  go  TO  proc*aie*a, 

74170  GO  TO  r*hOc-AlE-U* 

74200  PH0C«A1l«7* 

/4210  MOVE  ^NI  TO  P0S«TARLf:<-3« 

74214  IF  HOS-1AhlL*3  IS  GREATER  THAN  MAX*TA0*3  MOvE  P0S«TA8LE*) 

74215  TO  max-tab-3* 

74220  IF  HO‘^-IAhLE-3  IS  GREATER  THAN  TABLE*S1ZC  GO  TO  PROC-AIE-ERR* 

74230  MOVE  MUC-FEMP  TO  TAbLE-3-WUC  IFNTJ* 

74300  PMOC-AIt-C. 

74310  AOO  I TO  rABLE-3-AIE  CKNTJ, 

74320  CO  TO  LJ*0-PR0C«AIE. 

74910  PROC-AIt-ERR. 

74920  OISPLaY  : table-size  EXCEEOEO  IN  TABtE-3  1 UPQN  CONSOLE* 

74930  GO  TO  close-files* 

74990  END-PROC-AIE* 

75000  PR0C-66-I* 

75010  MOVE  v-UAy-66-1  TO  JOAY* 

75020  PERFOPM  CHECK-IN-IRAN  THRU  ENO-CHECR-lN-lRAN, 

75030  IF  IN-IkAN  IS  EOUAL  TO  1 GO  TO  ENO«PROC«G6«1 • 

75040  MOVE  6UC-66-I  TO  WUC-TEMP. 

75050  PERFORM  PROC-WUC  THRU  ENO-PROC-VUC • 

75060  IF  wur-TYPE  IS  EQUAL  TO  1 GO  TO  PROC«66-l-G* 

75U70  IF  WUC-TYPE  IS  NOT  EQUAL  TO  2 GO  TO  EN0«PR0C«GG«1 • 

75100  MOVE  . TO  KNT* 

751 10  IF  P0'’-TAbLE-4  IS  EQUAL  TO  ZERO  GO  TO  PR0C*G6»1«0* 

75120  PH0C-66-1-H* 

75130  IF  mUc-)EMP  is  EQUAL  TO  TAeEE*4«MUC  IKNTl  ANO  G(>C«GG*1  IS 

75140  Equal  to  TABLE-H-woC  CKNT]  ANO  TABLE«G-HMC  (KNT3  1$ 

75145  FOUAl  to  HMC-66-1  THEN  GO  TO  PR0C-GG*1*HMC, 

75150  AOO  1 TO  KNT* 

75160  IF  kN.  is  GREATER  THAN  POS-TAnLE-4  GO  TO  PGOC-GG-I-O* 

75170  GO  TO  PNOC-66-I-n* 

75200  PROC -66-1-0. 

75210  MOVL  ..9T  TO  POS-TABLE-4* 

75215  IF  POi-IAuLE-4  IS  GREATER  THAN  MAx-TAB-G  MOvC  POS-TABLC-G 

75216  TO  max-tab-9* 

75220  IF  P0:>-TAbLE-4  I$  GREATER  THAN  TABLE-SIZE  GO  TO 

75230  PR0C-66-1«ERP-1* 

75240  MOVL  «UC-TEMP  TO  TAbLE-9-VUC  CKNT]« 

75250  MOVE  iiOL-66-1  TO  TAbLE-4-«0C  CKNTJ* 

75255  MOVE  ».M(.-66-I  TO  TA8LE-9-HMC  CKNTJ. 

75260  IF  sr  MlS-TYPE-H  IS  EQUAL  TO  SPACE  MOVE  $ER1ES-GG*1  TO 

75270  SENUS-TYPE-9, 
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7SH40 
T5450 
TS460 
75b00 
7bbl0 
7Sb20 
T5‘)30 
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PROC-66-l-HhC, 

ADO  U..ITS-6b-I  TO  TABLE-A-UNITS  tKNTl. 

ADO  L«B0B-66-I  TO  TABLE-A-MHHS  CKNTI. 

PROC-66-I-G. 

BOVL  1 10  KNT. 

IF  HOi-TAHLE-]  IS  EOUAL  TO  ZERO  00  TO  PR0C*66-I-H. 
PR0C-66-I-J. 

IF  »UC-tE*»P  IS  EQUAL  TO  TARLE-J-UUC  CKNT3  00  T©  PR0C-66-1-K. 
ADO  I TO  KNT. 

IF  kN'  is  OREATtR  THAN  POS-TAOLE-S  OO  TO  PR0C>66-I>H. 

00  TO  PhOC-66-I-J. 

PR0C-66-1-H. 

MOVE  •■MI  TO  POS-TABLE*]. 

IF  PO'-TABLE-]  is  greater  than  MAk.tAB-3  move  pos«tablc-s 

TO  MAX-TAB-J. 

IF  HOb-lABLE-l  IS  greater  THAN  TABLE -SIZE  BO  TO 
PR0C-66-I-ERR-3. 

MOVE  XUC-TEMP  TO  TAULE-3>WUC  [KNT], 

IF  sEHltS-TTPE-J  IS  EOUAL  TO  SPACE  THEN  MOVE  SCRIES>66>1 
TO  SERIES-TTPE>3. 

PROC-bB-I  ‘K. 

ADD  (INlTS-66-I  TO  TARLE-3-UNITS  tKNTl. 

AOD  LAUuH»6b-I  TO  TAaLE-3>LA80R  CRNTl. 

HOVE  JEhO  to  ATt. index. 

PRUC-66-I  -K-L. 

ADD  I TU  ATC-INUFX. 

IF  ATi.-ub-I  IS  EQUAL  TO  LIST-ATC  [ATC-INDEX] 

GO  TO  PR0C-66>I>L. 

IF  ATC-INDEX  IS  less  than  NUM-ATC  60  TO  PR0C-6b-I-K«L. 

' GO  TO  En0-PH0C>66>I. 

PROC-66-1-  L. 

ADO  UIIIS-6b-I  TO  TArLE-3-UNITS-Atc  tKNTl. 

GO  TO  EI<D-PH0C-66-1.  - 

PR0C-b6-l-LMR-l. 

01SPL..Y  : TARLE-SIZE  EXCEEDED  [N  TABLE  H I UPON  CONSOLE. 

00  TO  CLOSE-FILES. 

PR0C-66-I-ERR-3. 

DISPLAY  I table-size  exceeded  IN  TABLE  3 I UPON  CONSOLE. 

GO  re  CLOSE-FILES. 

END-PROC-bb-I.  EXIT. 

READ-bS-IIO. 

IF  FI.E-DATA-I  is  EOUAL  TO  ZERO*  00  TO  ENO'READ-es-IIO. 
read  TN-FILE-65-II0*  AT  END  GO  TO  REAO-65-I10-A. 

IF  sEK-NO-bS-IlU  EOUAL  TO  EOF-S-N  60  TO  REAO-b5-J10-A. 

GO  TO  El.D-READ-bS'lIO. 

READ-65-ITO-A. 

movl  zero  to  file-data  til. 

END-READ-oS-IlO.  exit. 

REaD-IRAN . 

IF  fI'.E-DATA-Z  is  EOUAL  TO  ZERO,  GO  TO  END-REaD-IRAN. 
read  IN-FILE-IRAN.  at  end  go  to  REAO-IRAN-A. 

IF  SF.<-n0-IRAN  EOUAL  TO  EOF-S-N  GO  TO  READ-IRAN-A. 

GO  TC  CND-REAO'IRAN, 

Reau-iran-a. 

MOVE  ZERO  TO  file-data  tzi. 
end-read- 'RAN.  EXIT. 

read-ail. 

IF  fILE-DATA-3  is  equal  to  zero,  go  to  EMO-REAO-IRAN. 

READ  .N-FILE-AIL,  at  end  go  to  REA0-AIE~A. 

IF  SEI-NO-AIE  equal  to  EOF-S-N  GO  TO  READ-AIE-A. 

GO  TO  LND-READ-AIE. 

reao-ail-a. 

MOVL  ZLhO  to  file-data  C31. 

END-REAu-AIt.  EXIT. 

RE AO-66- I. 

IF  fIwE-DATA-H  is  EOUAL  TO  ZERO,  GO  TO  END-READ-GG'I. 
read  IN-FILE-66-I,  at  end  go  to  RCA0-66-1-A, 

IF  SER-I.O-GG-I  loual  to  EOF-S-N  go  to  read-gg-i-a. 

GO  TO  EN0-RLA0-b6-I. 
read-66- I'A. 

MOVL  '.ERO  to  file-data  CRT. 

CND-READ-bb-I . EXIT, 

MNITE-RANK. 

IF  Ht.;-o5-II0-TrPE-I-ONLY  IS  eOOAL  TO  SPRCf  GO  TO 
VRITE-BANK-TTPC-Z, 

NOTL  vRITE  type-i  record. 

MOVL  CUH-S-N  TO  SLR-NO-TYPE-I, 

movl  zuh-week  To  week-no-type-i, 

WRIlF  OUT-REC  From  REC-TYPE-I, 

ADO  1 TO  RECOROS-PASS. 

KRITE-BANK-IYPE-Z. 

IF  uMA-WLLK-Z  is  EOUAL  TO  ZERO  GO  TO 

WRITE-BANK-tYPE-3, 

MOVL  CUH-S-N  TO  SLR-NO-TYPE-Z, 

MOVL  CUR-WEEK  To  wEEK-NO-TyPE-Z, 

WRITf  OUT-REC  From  REC-TYPE-Z. 

ADD  I TU  RECOROS-PASS. 
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77.!00  XHITE-BANR-ITPE-3. 

77^ao  IF  hE;-b5-110-TTPE-l-ONLT  IS  EOUAL  TO  SPACE  AMO 

77<:3a  U7rA-WLEK-3  is  EQUAL  TO  2ER0  AMO 

77231  DAtA-»EEK-i*  IS  EQUAL  TO  ZERO  THEN  00  TO  «RITe-SANK>TYPE-R. 

T72<*a  IF  POS-TAhlL-3  is  equal  to  zero  00  TO  HRITE-OAMk-TYPE**. 

77250  MOVE  CUh-S-N  TO  SER-NO-IYPE-3. 

77260  MOVE  CUH-XEEK  TO  WEEII-NO-TtPE-3. 

77Z70  HOVE  1 10  KNT. 

77280  WRITE-BAM-A. 

77290  MOVE  TAbLE-3-WUC  IKNTI  TO  WUC-TTPE>3. 

77300  MOVE  rAbLE-3-OATAA  tKNTl  TO  0ATA-TYPC-3A. 

77330  vRITE  OUT-REC  FmoM  HEC-TYPE-3. 

77390  AOO  1 TO  HECOROS-PASS. 

77350  AOO  ; TO  KNT. 

77360  IF  rNI  is  GREATER  THAN  POS-TABLE-3  00  TO  MRITE*8ANK>TTPC-«. 

77370  GO  TL  WHITE-BANK-A. 

77400  KRlTE-BAt'K-TYPE-4, 

77420  IF  UATA-tlEEK-4  IS  EQUAL  TO  ZERO  00  TO  END>M«ITE>BANK. 

77440  IF  P0b-|At)LC-4  IS  EQUAL  TO  ZERO  00  TO  ENO-WHl  TE-BANK. 

77450  MOVE  CUK-S-N  TO  SER-NO-TTPE-4. 

77460  move  CUK'KELK  TU  WEEK-NO-IyPE-4. 

77490  MOVE  1 TO  KNT. 

77500  HRlTE-BANK-ti. 

77510  move  IAULE-4-R02  IKNTl  TO  OATA.TTPE-4. 

77520  write  OUT-RLC  FROM  REC-TYPE-4. 

77530  AOn  1 TO  RECOROS-PASS. 

77540  AOO  1 TO  KNT. 

77550  IF  KMT  IS  GREATER  THAN  POS-TABLE-V  00  TO  END-wRITE-BANK. 

77560  GO  TO  WKITE-BANK-B. 

77700  ENO-wRlTE-bANK.  EXIT. 

78U0U  1N1T>SM-Xv. 

78020  1N1T-6S-11U. 

78021  PERFORM  REAO-6S-110  THRU  ENO-RE AO-65-110. 

78022  IF  btH-.<0-65-llU  IS  LESS  THAN  FIRST-A-C  80  TO  INIT-6S-110. 

78040  INlT-lPAt  . 

78041  perform  ReAO-IHAN  THRU  ENO-REAO-IRAN. 

78042  IF  bER-JjO-lRAN  IS  LESS  THAN  FIRST>A-C  GO  TO  1NIT>|RAN. 

78060  INlt-AlE. 

78062  PEPFPRM  ReaO-AIE  THRU  ENO-REAO-AIE. 

78063  IF  sfH-uO-AIE  IS  LESS  THAN  F1RST-A>C  80  TO  INIT-AIE, 

78080  lNlT-66-1. 

78081  PERFCR"  ReaO-66-1  THRU  ENO-REAO-86-1 . 

78082  IF  bfR-uO-6b-l  IS  LESS  THAN  FlRST-A>C  THEN  00  TO  INIT-68'1. 

78100  note  store  SERIAL  NUMBERtwEEK  NUMBER  INTO  KEYS. 

78110  move  bLH-NO-65-110  TO  SER-NO  C 1 J. 

78120  COMpiTE  WEEK-NO  til  > t J-OAy-65-110  < 3J  / 7 < 1. 

78130  move  SEr-NO-IRAN  to  SER-NO  C2J. 

78140  COMpuTL  week-no  C2]  > t IRAN-STAHT-OAY  < 3J  / 7 < 1. 

78150  MOVE  btR-NO-AlL  TO  SER-NO  t3J. 

781E0  COMpi'TE  WEEK-NO  t31  > CJ-OAY-AIC  < 3J  / 7 < 1. 

78170  MOVE  SER-NO-66-1  TO  SER-NO  t4j. 

78160  COMpott-  WEEK-NO  t4]  > CJ-OAY-66-1  < 3J  / 7 < !• 

78190  ENU-lNIr  SN-WK.  EXIT. 

78200  START-HAMK. 

78220  START-PANK-A. 

78230  perform  OATA-AVAIL  THRU  ENO-OAT A-AVAIL. 

78240  IF  HR-»EEK  greater  THAN  LAST-WEEK  80  TO  ENO-START-BANK > 

78250  IF  uAIA-AVAIL-COOE  EQUAL  TO  ZERO  60  TO  START-BANK-0. 

78260  IF  UAfA-AvAlL-COOE  EQUAL  TO  X OO  TO  STARY.BANK*8. 

78270  IF  OAIA-AVAIL-COOE  EQUAL  TO  4 GO  TO  START-BANK>0. 

78280  IF  U7IA-AVA1L-C00E  EQUAL  TO  6 80  TO  START-BANK'S. 

78281  IF  uAIA-WEEK-1  I's  EQUAL  TO  ZERO  GO  TO  START-BANk-I  . 

78282  IF  UAIA-WEFK-4  IS  EQUAL  TO  ZERO  60  TO  START-BANk-O, 

78290  GO  TC  ENO-START-BANK. 

78300  NOTE  IRAN  DATA  AVAILABLE. 

78310  Start-Bank-8. 

78320  perflrm  Reset- IRAN  thru  Eno-RESet. 

78330  perform  PROC-IRAN  THRU  ENO-PROC-IRAN. 

78340  MOVE  zero  TO  NO-WEEK-PROC. 

78350  perform  REAO-IRAN  thru  eno-reao-iran. 

78360  IF  f'LE-DaTA-2  EQUAL  TO  ZERO  BO  TO  SY ART-BANK-C • 

78370  MOVL  StR-NO-IRAN  TO  SER-NO  t»J, 

78380  COMpUIL  WEEK-NO  CZJ  > C IRAN-START-OAy  < SI  / 7 < 1. 

78390  GO  TC  SIART-PANK-A. 

78400  START-BAMK-C . 

784  10  MOVE  LOF-S-N  TO  StR-NO  CZl. 

78420  move  LOF-JOAY  10  wEEK-NO  IZl. 

76430  GO  ir  START-RANK-A. 

78440  START-PANr-0. 

78450  AUO  LNL  TO  CUR-wEEK. 

78460  AOO  fNf  TO  NO-WlEK-PROC. 

78470  IF  UAIA-AVAIL-COOE  EQUAL  TO  ZERO  80  TO  STaRT-BANK-A. 

78480  START-PANK-E. 

78490  PERFCIM  RpAU-AIL  THRU  ENO-REAO-AIE. 

78500  IF  F ILf -OATA-3  EQUAL  TO  ZERO  BO  TO  $TARt-BANK-H. 

78510  IF  bTR-i.O-AIE  NOT  EQUAL  TO  CUR-S-N  GO  YO  START-BANK-B. 

78520  COMPUTE  WEEK-NO-COMP  > [J-DAY-AIE  < 51  / 7 < I. 
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C9B970 
C9B970 
C9B970 
C9B970 
C9B970 
C9B970 
C9B970 
C9B970 
C9B9T0 
C9B970 
C9B970 
C98970 
C98970 
C9B970 
C9B970 
C98970 
C98970 
C98970 
C9B970 
C9B970 
C9B970 
C98970 
C98970 
C98970 
C98970 
C98970 


J 


L 


6-99 


78530 

78540 

78550 

78560 

78570 

78580 

7858S 

78590 

76b00 

78610 

78b20 

76b30 

7Hb40 

76b41 

78b42 

78b43 

78b45 

76b46 

76b47 

78648 

78649 

78650 

78651 

78652 

78653 

78654 

78655 

78656 

78657 

78658 

78659 

78660 

78661 

78670 

78671 

78672 

78673 

78675 

78676 

78677 

78678 

78679 

78680 

78681 

78682 

78683 

78684 

78685 

78686 

78687 

78688 

78689 

78690 

78691 

78699 

78700 
78720 
78^30 
78740 
78750 
78760 
78770 
78780 
78790 
78800 

* 78810 

78820 

78821 
78830 
78840 
78850 
78860 
78870 
78880 
78890 
78900 
78910 
78920 
78930 
78940 
78950 
78960 
78970 
78980 
78990 
79000 
79010 


IF  uLiK-NO-COMP  LE55  THAN  CUft-HCeK  GO  TO  STAnT-eANK-C , 
5TART-RANK-^  • 

MOVL  wLcK-NO-COMP  TO  VEEK-NO  C3)» 

GO  |&  SrAHT-BANK-A, 

5TART-PAr  K-o. 

MOVL  5LH-N0-A1E  TO  5ER-N0  C33* 

COMPUTE  WEEK-NO-COMP  > CJ-OAvAlE  < 3J  / 7 < X. 

GO  T'.  5TAHT-flANK-F. 

5TART-BArK-H« 

MOVE  LOF-5-N  to  5ER-N0  £31. 

MOVL  LOF-JOAY  to  wEEK-NO  £31. 

GO  r(  staht-hank-a. 

5TAHT-PANK-1 • 

NOTL  OP5PACL  66-1. 

AOn  C JL  TO  CUR-nEEF* 

AOD  CNL  TO  NO-WLEK-PROC* 

5TAR1-6A6K-J. 

PERFORM  REAO-66-1  THRU  EN0-REA0*66-1 • 

IF  Ft.L-OATA-4  EQUAL  TO  2ERO  00  TO  START-BAnK-K. 

IF  5rR-N0-66-l  15  NOT  EQUAL  TO  CUR-S-N  GO  TO  START-BANK-L » 
COMPUTE  WEEK-NO-COMP  > CJ-OAt-66-1  < 3)  / 7 < 1* 

IF  alLK-No-COMP  lE55  THAN  CUR-«EEK  00  TO  START*BANK-U. 
5TART-PA*  K-M, 

MOVL  WELK-NO-COMP  TO  VEEK«NO  £01. 

GO  10  5TART-BANK-A. 

START-PAf  K-L. 

MOVL  5Lh-N0-66-l  TO  5ER-NO  £4l. 

COMPUTE  WEEK-NO-COMP  > £J«0AY-66-l  < 31  / 7 < 1» 

GO  TO  5TAHT-BANK-M. 

STARI-PAFX-R. 

MOVL  L0F-5-N  TO  SER-NO  £4]. 

MOVL  lOF-JOAy  to  wEEK-NO  £41. 

GO  TO  5rART-bANK-A. 

5TART-eAFX-0. 

NOTL  UP5PACE  65-110. 

AOO  ONL  TO  CUR-wEEK. 

Aoo  cme  to  NO-WLEK-PROC* 

START-BAfK-K. 

PERFORM  REAO-65-110  THRU  ENO-REAO-65-110* 

IF  F>LE-0ATA-3  rOUAL  TO  ZERO  00  TO  START-BANR-R. 

IF  5IR-NO-65-110  15  NOT  EQUAL  TO  CUR-S-N  00  TO  START-BANR-0. 

COMPUTE  WEEK-NO-COMP  > I J-OAY-6S-tlO  < 31  ^ 7 < 1» 

IF  wELK-No-COMP  LESS  THAN  CUR-WEEK  00  TO  START-BANR-R. 
START-6Af.K-5* 

MOVL  wLtK.NO-COMP  TO  VEEK-NO  £11. 

GO  TO  SIART-BANK-A. 

START-eAi'<K-«i« 

MOVL  5EH-NO-65-110  TO  SER-NO  £ll. 

compute  WEEK-NO-COMP  > £ J-OAY-65-110  < 31  / 7 < 1. 

GO  TO  START-BANK.S. 

START-SAI  K-P. 

MOVE  LOF-S-N  TO  SER-NO  £11. 

MOVE  LOF-JOAy  TO  wEEK-NO  £11. 

GO  TO  START-SANK-A, 

ENO-STArT-BANK,  EXIT. 

FiLES-tOF. 

FlLE5-tOF-A, 

COMPUTE  ALL-EOF  > file-data  £11  < FILC-OATA  £21 

< file-data  £31  < file-data  Cwl. 

IF  ALL-LOF  equal  TO  ZERO 
GO  ro  END-FILES-EOF. 

fxles-eof-h. 

PERFORM  ST-SN-WK  thru  END-ST-SN-WK . 
compute  file-no  > FILE-LOW-DATA* 

IF  SLH-NO  £21  GREATER  THAN  SER-NO  £F1LC-N01 
iO  10  FILES-EOF-C, 

MOVE  WELK-NO  (FlLE-NOl  TO  TEMP, 

IF  TEMP  15  GREATER  THAN  LAST-WEEK  * 

GO  10  FXLES-EOF-C. 

IF  tlR-b-N  LESS  THAN  SER-NO  CFlLE-NOl 
GO  10  END-FILES-EOF. 

FILES-EoF-C. 

GO  1C  FlLES-EOF-0*  FlLES-EOF-Ef  FILES-EOF-F»  FlLCS«COf-0» 
TEPENOING  ON  FltE-LOW-QATA, 

files-eof-0. 

PERFORM  read-65-110  THRU  END-REAO-6S-110* 

IF  FX.E-DATA-1  EQUAL  TO  ZERO  GO  TO  FlLES-COfA. 

IF  SFR-NO-6b-llU  LESS  THAN  C(m-S-N  GO  TO  FXLES*EOF-0* 

MOVL  bLH-NO-65-llU  TO  SER-NO  £ 1 1. 

COMpurt  WEEK-NO-COMP  > £ J-DAY-6S-110  < 31  / 7 < I. 

MOVL  WLlK-NO-COMP  TO  WEEK-NO  £11. 

GO  TO  FlLES-EOF-n. 

FiLEb-roF-E. 

PERFORM  ReaD-XRAN  THRU  END-READ- IRAN* 

IF  F1'.E-0ATA-2  equal  TO  ZERO  GO  TO  FILES-COF-A* 

IF  ser-no-iran  less  than  cur-s-n  go  to  files-cOf-c* 

MOVL  ^ER-N0-1RAN  TO  SER-NO  £21. 
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79020 
79U30 
79U^0 
79U50 
79060 
79U70 
79060 
79090 
79100 
79110 
79120 
79130 
79140 
79  ISO 
79160 
79170 
79160 
79190 
79200 
79210 
79b00 
79bI0 
79b20 
79530 
79b40 
79b50 
79b60 
79b70 
79b71 
79b60 
79b90 
79600 
79610 
79620 
79630 
79b40 
796S0 
79b60 
60000 
aouio 

6OO20 
60030 
60040 
600SO 
60200 
60221 
60222 
60230 
60240 
60250 
60260 
60270 
60260 
60290 
60300 
60400 
60410 
60420 
604  30 
00440 
604S0 
604SS 
60460 
60470 
60460 
60490 
60500 
60510 
60520 
60620 
60630 
60640 
60660 
60b90 
60600 
60610 
60620 

60630 

60631 
60640 
60650 
60670 
60690 
61000 
61010 
61020 


COMpU'e  »EEK*NO*COMP  > C 1RAN*S? < 33  / 7 < 
MOVb  tiLtK*NO«COMP  TO  RECK-NO  C2]* 

GO  TO  FlLES-EOf-B. 

FILES-EOF  F. 

PERFORM  REAO-AIE  THRU  END-REAQ-AIE. 

IF  FILE-OATA-3  EOUAl  TO  ZERO  00  TO  fttES-COf-A* 

IF  SEn-NO-AlE  LESS  THAN  CUR*S*N  60  TO  FILCS^OF-f  • 
MOVE  '*ER*N0-A1E  TO  SER-NO  C3]* 

COMPUTE  WEEK.NO-COMP  > CJ*OAV*AtE  < 31  / 7 < i* 

MOVE  NEEK.NO-COMP  TO  WEEK-NO  £31* 

60  n FILES-EOF-B. 

FILES-EoF-6. 

PERFOKH  ReAO-66*!  THRU  ENO-RCAO^OA-I* 

IF  ri4.E-OATA-4  E6UAL  TO  ZERO  60  TO  FILES*€Of-A* 

IF  srH-N0.66«l  LESS  THAN  CUR«S«N  60  TO  FlLCS*E0f*6* 
MOVL  SLK-NO-66-1  TO  SER-NO  C4]» 

COMPurE  week«no«comp  > CJ-0AV*66*1  < 33  / 7 < 1* 
MOVL  mLLK-NO-COMP  TO  wEEK«NO  C4l* 

GO  TO  FILES-EOF-B. 
en(}*fills-eof.  exit* 

OAtA-AVA.L* 

MOVL  ZERO  TO  OATA-AVAlL-COOE* 

MOVL  ONL  TO  FILE«NO* 
oata-avail-a, 

MOVL  2CR0  TO  OATA-MEEK  CFILE-N03. 
ir  b(R-i40  CFlLF-NOl  NOT  EQUAL  TO  CUR*S*N» 

GO  10  OATA-AvAlL-B. 

MOVL  «llk-no  cfill«noi  to  tlmp» 

If  rCMP  is  NOT  LOUAL  to  cur««ecr» 

CO  10  OATA«AvAlL«n« 

MOVL  out  TO  OATA-«EEK  CF1LE-N03* 

COMPUTE  KNB  > 2 CFILE-NO  • 13« 

COMPiTE  OATA.AVAIL-COOE  > OATA«AVAtL«COOE  < RN6» 
OATA^AVATL^IJ* 

AOO  1 TO  F1LE-N0« 

IF  F«LL*NO  LESS  THAN  S«  60  TO  OATA*AVA|L*A» 
END*OATA*  AVAIL* 

EXIT* 

RESET-SL»'-N0* 

MOVE  nihe-xi  to  SERIES-TTPE-1* 

MOVL  NINE«X1  TO  SER 1ES«TYPE*2* 

MOvt  NINE-Xl  TO  SERlES-TVPE-3* 

MOVL  HlUE-Xl  TO  SeRlCS-TTPE-4* 
f40TL  THIS  SLTS  bEHlES  TO  9 IN  ALL  OUTPUT  FILCS* 
RESET-VcFR* 

MOVL  ZERO  TO  POS-TAeLE-3* 

MOVL  zero  to  P0S*TAbLE«4* 

MOVL  NlNE-94  TO  FLT-TIME-TTPE*!* 

MOVL  NlNE-94  TO  SORTlES-TYPE^l « 

MOVL  N|UE*94  TO  LAN0lN6S«TYPE*l* 

MOVL  NINE-93  TO  IRAN-VIS-NO-TYPE-2* 

MOVL  NlNE-93  TO  lRAN-COOE-TYPC-2* 

MOVE  NINE-94  to  1KAN-START-0AV-TVPE*2* 

MOVL  NlNE-94  TO  IR AN-ENO-OAV-TvPE-2* 

MOVL  SPACE  TO  RtC-6b-110-TYPE-l-0NLY* 

MOVL  1 TO  KNT* 

RESET-TAhLt-3* 

MOVL  NINE-X5  TO  TABLE-3«MUC  CKNTJ* 

MOVL  nine-93  to  TABLE-3-UN1TS  CKNT3* 

MOVL  nine-44  to  TABLE-3*LAB0R  CRNT3* 

MOVL  NINE-94  TO  TABLE-3-NORM  CRNTJ* 

MOVL  NlNE-93  TO  TABLE-3-UNlTS-ATC  CRNT3* 

MOVL  NlNE-94  TO  TABLE-3«NORS  CKNT3* 

AOO  1 TO  KNT* 

IF  kNT  is  LESS  THAN  TAB-SIZ*!  OO  TO  RESCT-TABlE*3* 
MOVE  1 TO  KNT. 

RESET-TAPLE-4, 

MOVE  NINE-XS  TO  TABLE-4-WUC  CKNTJ* 

MOVL  NINE-Xl  TO  TAOLE-4-MOC  CRNTl* 

MOVE  N1NE-X3  TO  TABLE -4-HMC  CKNT3* 

MOVL  NlNE-93  TO  TABLE-4«UN|TS  CKNT3* 

MOVL  NINE-94  TO  TABLC-4-MmrS  CKNTJ, 

AOO  ; TO  KNT* 

IF  KNT  IS  LESS  THAN  TAB-SlZ-f  90  TO  RCSCT-TABLC-6, 
RESCT-AIE* 

MOVE  I TO  KNT* 

RESLT-Air-I. 

MOVE  ZERO  TO  TABLE-3-AIC  CkNTJ. 
move  iPACE  TO  TABlE-3-MUC  CKNT3* 

AOO  1 TO  KNT* 

IF  KNT  IS  LESS  THAN  TAB-SIZ*!  00  TO  RESCT-AlC-1. 
MOVE  aPACE  TO  SLRlES-TYPE-3* 

GO  TC  ENO-RLSET* 

REseT-65-\10* 

MOVL  ZERO  TO  FLT-TlME-TYPE-1 * 

MOVL  zero  to  SORTlES-TYPE-l* 
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81030  MOVL  TtHO  TO  LANOI N6S-TYPE-1 . 

eiO<#0  MOVE  SPACE  TO  StRlES-TYPE-3. 

81050  MOVL  SPACE  TO  SLR lES-TYPE-i . 

81U90  MOVE  I TO  KNT. 

81100  SET-TA8Lr'*3-65-llO. 

OHIO  MOVL  SPACE  TO  TA6LE-3-WUC  CRNTJ* 

81120  MOVE  2CH0  TO  TABLE-3-UNI TS  CKNTl. 

81130  HOVE  2LHO  TO  TA8LE-3-LABOR  CKNTJ* 

81140  MOVE  2LMO  TO  TABLE-3-NORH  CKNTJ* 

81150  MOVL  Z^KO  TO  TAULE-3-NORS  CKNTl* 

81160  AGO  . TO  KNT, 

01170  IF  K»'T  IS  LESS  THAN  TA6<-S12«I  OO  TO  SCT^TABLE-S^BMIO* 

81290  GO  TO  ENO-RESET. 

01400  RESET-lRAN. 

81410  MOVE  NlNE-93  TO  IRAN-ViS-NO-TYPE-a* 

81420  MOVE  NINE<>93  TO  IRAN-COOE<-TYPE*a« 

81430  MOVE  NINE-94  TO  1 RAN-STAAT-OAY-TYPE^a* 

81440  MOVE  NINE-94  TO  IRAN-ENO-OA Y-TYPE-a. 

81450  MOVE  SPACE  TO  SERIES-TYPE-2. 

81490  GO  TO  ENO-RESET, 

01600  RESET-66-1* 

BlblO  MOVL  1 TO  KNT, 

81620  SET-TAPLr-4-66-1. 

81630  MOVE  SPACE  TO  TA8LE-4-WUC  CKNT]« 

81640  MOVL  2EK0  TO  TABLE- 3-UNI TS  CKNTl* 

81641  MOVE  ZEkO  TO  TABLE<-3<-LA80R  CKNTJ. 

B1642  MOVL  SPACE  TO  TA8LE-3-WUC  CKNT]. 

81643  MOVL  2CHO  TO  TA8LE-3-UNI TS-ATC  CKNTJ« 

B16S0  MOVL  space  TO  TA8LE-4-W0C  CKNT]. 

81690  MOVL  space  TO  TA8LE-4-HMC  CKNT]« 

ai/00  MOVL  zero  to  TABLE-4-UNITS  CKNTI. 

81710  MOVE  ZERO  TO  TABLE-4-HhRS  CKNT]« 

81740  ADO  1 TO  KNT, 

81750  If  kMT  is  less  THAN  TAS-SIZ-l  GO  TO  SET*TAaLC*4**G*i • * 

81780  MOVE  space  TO  SERIES-TYPE- 4. 

81790  ENo-RES£*T,  EXIT, 

86000  REA0-WUC*LIST, 

86010  MOVE  ZERO  TO  KNB, 

86020  REAO-L-Wl* 

86025  ADO  « TO  KN6, 

86030  read  IN-FilL-WUC  AT  ENQ  GO  TO  END*RCAO-«UC«l.tST» 

86040  MOVE  IN«REC«WUC  TO  LIST«»UC  CKN8)« 

86060  If  KNB  IS  LESS  THAN  MAX«-NUM-WUC  GO  TO  flEAO«-C*Vl* 

86070  ENO-REAO  WUC«LIST,  EXIT* 

87000  ST-SN-KK' 

87020  MOVE  iUh-S-N  TU  SN-ilmh, 

87030  MOVE  ONL  TO  fILE-NO* 

87040  ST-SN-WK-A# 

87048  MOVL  fILE-OATA  CfILE-NOJ  TO  TEMP, 

87050  If  T^MP  Is  equal  TO  ZERO»  GO  TO  ST-SN-KK-8, 

87060  If  S^N*NO  CfJLE-NO]  GREATER  THAN  SN*TEMPt  90  tO  ST-SN*WK-Of 

87070  MOVE  flLE-NO  TO  f ILE-LOW-OATA, 

87080  MOVE  SEK-NO  CfILE-NO)  TO  SM-TEHP, 

87090  ST-SN-WKB, 

87100  AOO  ONE  TO  fILE-NO, 

87110  If  FILE-No  less  THAN  5#  GO  TO  ST-SN*WK*A, 

87130  MOVL  LOF-JOAY  TO  WEEK-NO-COMP, 

87140  MOVE  ONE  TO  flLE-NO, 

87150  ST-SN-WK-0. 

87160  MOVE  FILE-OATA  CfiLE-NOl  TO  TEmP, 

87161  IF  temp  Is  equal  TO  ZERO  GO  TO  ST-SN-WK-C, 

87170  If  srS-NO  CfILE-NOJ  NOT  EQUAL  TO  SN-TEMP»  GO  TO  ST*SN-wK-€, 

87180  MOVL  WELK-NO  CfILE-NOj  TO  TEMp, 

B7181  If  TEMP  Is  greater  THAN  KEEK-NO«COMP»  GO  TO 

87190  IT-SN-WK-E, 

87200  MOVL  fILE-NO  TO  f ILE-LOW-OATA, 

B7210  MOVL  WELK-NO  CfILE«NOJ  TO  WEEK-NO-COMP, 

87220  ST-SN-WKL. 

87230  AOO  ^NE  TO  FILE-NO, 

87240  If  flLE-No  LESS  THAN  5»  GO  TO  ST«SN»WK-D, 

87250  ENO-ST-SN-WK,  EXIT, 

88000  SN-WK-65* 11U« 

88030  SN-MK-65-110-A, 

88040  PERFORM  PrOC-65-110  THRU  ENO-PROC-GS^IIO* 

88050  PERFCRM  RcaU-65-110  THRU  EN0-REA0-69*I10, 

88060  If  f:lE-OATA-1  IS  EQUAL  TO  ZERO*  GO  TO  SN*WK*69*110-Ct 

88070  COMPUTE  WCEK-NO-COMP  > C J-DAY-65*110  < 33  / T < I, 

88080  If  sF.rt-NO-65-llO  NOT  EQUAL  TO  CUR-S-M#  GO  TO  SN-VK-65-110-8, 

88U90  If  wEcK-NO-COMP  NOT  EQUAL  TO  CUR*WEEK*  GO  TO  SN-GK*G5-110«8, 

68100  GO  TP  SN-WK-6S-110-A, 

08110  SN*WK-6b-llU-B, 

68120  MOVE  SLK-NO-65-110  TO  SER-NO  Cl  3* 

68130  MOVL  wELK.nO-COHP  TO  WEEK-NO  Cl  3, 

66140  GO  n ENO-SN-WK-6S-110, 

68150  SN-WK-65-110-C, 

08160  MOVL  LOF-S-N  TO  SER-NO  C 1 3, 

88170  MOVL  LOF-JOAY  TO  WEEK-NO  Cl  3, 
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C98970 

C96970 


I 

J 


- 


i 


J 


a 


G-102 


saiao 

aai90 

aazoo 

aa230 

aa240 

aa250 

aa260 

aa270 

aa2ao 

aa2q0 

aaaoo 

aasio 

aa320 

aa330 

aa3H0 

aasso 

aa360 

aa370 

aa3ao 

aa390 

aa400 

aa430 

aa440 

aa450 

aa460 

aa470 

aa4ao 

8a4qO 

aaboo 

aabio 

aas20 

aabso 

aab40 

aabSO 

aabao 

aab70 

aabao 

aabqo 

aaaoo 

aaa30 

aa640 

aaaso 

aaaao 

aa670 

aaaao 

aabOO 

aa700 

aa7io 

aa72a 

aa73a 

aa740 

aa750 

aa760 

aa770 

aa7ao 

aarqo 

90000 

90010 

90020 

90030 

90040 

90050 

90U60 

90070 

9oaao 

90090 

90100 

90110 

90120 

90130 

90140 

90150 

90200 

90210 

90220 

90300 

90310 

90320 

90330 

90340 

90350 

90400 

90410 

90420 

90430 

90440 

90450 


ENO-SN-wr-6b-110. 

EXIT. 

SN-WK-IHlN. 

SN-WK-IRIN-A. 

PERFORM  PROC-IRAN  thru  ENO-PROC>tRAN. 

PERFORM  READ-IRAN  thru  END-REAO-tRAN. 

IF  FlLE>0ATA-2  IS  EOUAL  TO  ZERO*  00  TO  SN>«K-IRAN-C. 
compute  week -no-comp  > C IRAN-START-OAT  < 31  / T < 1. 

IF  SER-NO-IRAN  not  EOUAL  to  CUR-S-N>  00  TO  sn-wk-iran-b. 

IF  WLEK-NO-COMP  not  EOUAL  TO  CUR-HCCK*  00  TO  SN-M-IRAN-Bi 
GO  Tf  sn-wk-iran-a. 

SN-WK-lRAN-d. 

MOVE  SEK-NO-IRAN  TO  SER'NO  121. 

MOVL  4EEK-NO-COMP  TO  wEEK-NO  ftl. 

60  TO  ENO-SN-WK-IRAN. 

sn-wk-iran-c. 

MOVE  .lOF-s-N  TO  SER'NO  C21. 

MOVE  tOF-dOAY  TO  WEEK-NO  121.  “ 

eno-sn-wk-iran. 

EXIT. 

SN-WK-AI:  , 

SN-WK-AIF-A, 

PERFURM  PROC-AIE  thru  ENO-PROC-AIE. 

perfcrm  reao-aie  thru  eno-reao-aie. 

IF  F’LE-OATA-3  is  EOUAL  TO  ZERO.  GO  TO  SN-WK>AIE-C. 
COMPUTE  WEEK -NO-COMP  > CJ-OAT-AtE  < 31  / 7 < 1. 

IF  SIR-NO-AIE  not  EOUAL  TO  CUR-S-N.  00  TO  SN-wK-AlE-B. 

IF  wELK-NO-COMP  NOT  EOUAL  TO  CUR-WCEK.  00  TO  SN-WK-AIE-B. 
GO  TO  SN-WK-AIE>A. 

SN-WK-AIE>B, 

MOVL  SER-NO-AIE  to  SER-NO  C31. 

MOVL  WbLK-NO-COMP  TO  WEEK-NO  C31. 

GO  TO  ENO-SN-WK-AIE. 

SN-WK-AIL-C, 

MOVE  LOF-S-N  TO  SER-NO  C31. 

MOVE  EOF-JOAY  TO  wEEK-NO  C31. 

ENO-SN-wK-AIE. 

EXIT. 

SN-wk-66-  1 . 

SN-WK-GG-l-A. 

PERFORM  PROC-66-1  THRU  ENO-PROC-GG-1. 

PERFLRM  REA0-66-I  THRU  ENO-REAO*6G-1 . 

IP  P:t£-OATA-4  IS  EOUAL  TO  ZERO,  00  TO  SN-WK-OO-l-C. 
COMPUTE  WEEK-NO-COMP  > CJ-OAY-GO-t  < 31  / 7 < 1. 

IF  SlR-NO-66-I  NOT  EOUAL  TO  CUR-S-N*  00  TO  SN-Mk-60-I-B. 

IF  WFLK-NO-COMP  NOT  EOUAL  TO  CuR-WEEK*  00  TO  SH-HK-OO-l-B. 
GO  TO  SN-WK-66-1-A. 

SN-WK-6b-l-B. 

MOVE  3EH-N0-G6-1  TO  SER-NO  t4l. 

MOVL  vEbK-NO-COMP  TO  WEEK-NO  C4l. 

GO  TO  EI.O-SN-WK-6G-1. 

SN-WK-66-1-C. 

MOVE  iOF-S-N  TO  SER-NO  C4J. 

MOVE  EOF-JOAT  to  WEEK-NO  C41. 

ENO-SN-WK-Gb-I . 

EXIT. 

reao-oata -In-file. 

READ  QATA-IN-FILE  INTO  OATA-IN-A* 

AT  ENO  GO  TO  END-ROIP, 

REAo  jata-in-file  into  OATA-IN-B* 

AT  END  GO  TO  CNO-ROIF. 

MOVE  zero  to  KNT. 

MOVE  MIbSION-IN  TO  MISSION-TYPE-1*  NISSION-TTPE-l 
MISSION.TYPE-3*  MtSSION-TTPC-0. 

MOVL  nESIGN-IN  TO  OESIGN-TTPE-I*  DCSION-TTPE-Z* 
0ESI6N-TTPE-3*  DCSIGN-TVPC-O. 

ROIF-A. 

READ  JATA-IN-FILC  INTO  OATA-IN-C* 

AT  ENO  GO  TO  ENO-ROIF* 

ADO  I TO  KNT. 

MOVL  x-cooe  TO  LIST-ATC  CKNTJ. 

IF  KIT  IS  LESS  THAN  NUN-ATC  00  TO  ROIF-A. 

REAO  OATA-IN-FILE  INTO  OATA-tN-0* 

AT  ENO  60  TO  ENO-ROIF. 

MOVE  zero  to  KNT. 

ROIF-B. 

READ  DATA-IN-FILE  INTO  OATA-IN-C* 

AT  ENO  GO  TO  ENO-ROIF. 

AOO  : To  KNT. 

MOVE  X-COOE  TO  NOR-COOE  CKNTl. 

IF  KNT  IS  LESS  THAN  fKJM-NCOOCS  00  TO  ROIF-B. 

READ  data-in-file  into  OATA-IN-E* 

AT  ENO  GO  TO  CNO-ROlF. 

HOVE  ZERO  TO  KNT. 

ROIF-C. 

REAO  data-in-file  INTO  OATA-IN-F* 

at  ENO  GO  TO  ENO-ROIF. 


COaOTP 

coaoTo 

C9a970 

C9a970 

C9a970 

C9a970 

C9a970 

C9a970 

C9a970 

C90970 

coaoTO 

C9a970 
C98970 
098970 
C98970 
C98970 
C98970 
C 98970 
090970 
C98970 
C98970 
C98970 
C98970 
090970 
C98970 
090970 
C9B970 
C98970 
098970 
098970 
C98970 
C98970 
C98970 
090970 
C98970 
C 90970 
098970 
C98970 
098970 
C98970 
098970 
098970 
C98970 
C98970 
C9B970 
C 98970 
C98970 
098970 
C98970 
C9897u 
090970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C90970 
C98970 
C98970 
C98970 
098970 
C98970 
098970 
C98970 
C98970 
098970 
098970 
098970 
098970 
098970 
C9B970 
098970 
098970 
098970 
098970 
098970 
098970 
098970 
098970 
C90970 
098970 
098970 
098970 
098970 
C98970 
C90970 


90460  AOO  1 TO  KNT. 

90470  MOVE  ENS-WUC-IN  TO  ENOINE-wUC  CKNT). 

90460  IF  KNT  is  less  THAN  NUH-ENO-kUC  00  TO  ROIF>C. 

90500  READ  OATA.IN.FILE  INTO  OATA-IN.O> 

90510  at  ENO  60  TO  ENO-ROIF. 

90520  MOVE  2EKO  TO  KNT. 

90530  ROIF-0, 

90540  READ  UATA.IN.FILE  INTO  0ATA-1N.H« 

90550  at  ENO  60  TO  END-ROIF. 

90560  AOO  I TO  KNT. 

905T0  MOVE  WUC-20I6-IN  TO  WiC-POS-TVPE  CKNTl. 

90560  MOVE  FIRST-POSITION  TO  HUC-POS-START  tKNTl. 

90590  MOVE  .AST-POSITION  TO  WUC.POS-CNO  tKNTl. 

90600  IF  KKT  is  less  THAN  NUM-WUC-6ROUPS  60  TO  ROlF-0. 

90900  ENO-ROIF.  EXIT. 

/•  PLACE  COBOL  SOURCE  BEFORE  THIS  CARO 

//CH6.TF6IN  03  ••SPACEXCYL.LIil  11 

00000  6ET  TFO-  WAN6 

010001  019999  REPLACE 
TFO  OTOI  II  0202060 
03  04  57000210  0 357  FI06  ISO 

3 NUMBER  OF  ATC. 

P 
R 

5 

17  9 NUMBER  OF  NOR-NORN 

A 

B 

C 

0 

F 

6 
H 
E 
K 
M 
N 
P 
R 
S 
T 
V 
F 


C9S970 
C96970 
C9S970 
C9S970 
C96970 
C96970 
C9S970 
C9S970 
C 96970 
C96970 
C96970 
C96970 
C 96970 
C9S970 
C96970 

1990  COS 

C9697a'T 

•T 


7 


23A 

23b 

23C 

230 

23C 

23G 

232 

22 

2201 

11 

1 

25U 

12 

251 

266 

13 

269 

403 

14 

404 

496 

23 

499 

745 

41 

74b 

846 

42 

649 

69b 

44 

696 

919 

45 

920 

1024 

46 

1025 

1167 

47 

1166 

1196 

49 

1197 

1216 

51 

1217 

1256 

52 

1259 

1306 

55 

13U9 

1316 

63 

1317 

1326 

65 

1327 

1364 

71 

136b 

143U 

74 

1431 

1963 

75 

1964 

2166 

93 

2167 

2166 

97 

2169 

2201 

NO  ENBINE  BUC 


NUM  MUC  tROUPS.  NUM  MUC 


•ENO 

/•  PLACE  TFO  OATA  BEFORE  THIS  CARO 

//TPR.TU12  OU  0ISP>[0L0>KEEPl.V0L>SCR>4FltUNIT>T4FI  Tlf 

//TPR.TU14  CJ  OISP>tOLO.KEEPl»VOL>StR>*F3.UNlTmF3  T19 

//TPR.TU15  Cl  OISP>COLOiKEEP]>VOL>SER>«F4.UNIT>TtF9  TI5 

//TPR.TU22  ro  0ISP>C0L0>KEEP]>V0L>SER>«FS>UN1T>T4F5  T2I 

//TPN.TU29  DO  OISPXOLO.KEEPl.  V0L>SER>«FT.UN1T>T4FT  TI9 

//TPN.TU2B  LJ  0ISP>C0L0.KECPl.V0L>SER>«F6tUNlT>T4F6  TfS 

//TPR.TPRIN  ro  •.SPACE>tTRK.Cl»lll 

T/P  OTOI  10100602060 

T/P  TU22  19960502050 

/•  PLACE  COBOL  SOURCE  BEFORE  THIS  CARO 


6,5.5  SORT  WUC  FOR  CONVERSION 


//T9a97*  .MB 
//C9a9T0  tXEC 
//CHO.TU2S 
//CHG.TFGIN 
00000 

010001  019999 
TFG  TU2S  11 
T«*J1  TOAKl 
T<I*K1  TOALl 
T9AK*  T<I*L* 
7«*M1  7<t*Nl 
7«*N1  7<I*P1 
7«*Ne  7<tAI>* 
TOlNC  7«*Pe 
741N0  7<I*PC 
T«*NG  7<I*PF 
7«*NH  74AP0 
7<I*NJ  74APH 
7«ANK  7<I*PJ 
74ANL  7<IAPK 
TAANM  74APL 
74ANN  7ltAPM 
74ANa  7<«APP 
74ANS  7<tAPR 
74ANT  7<tAPS 
7*ANU  74APT 
T«AUV  74APU 
74ANW  74APV 
74ANX  74APM 
74ANT  74APX 
74AN2  74APT 
7<tAN2  74AP2 
7<tANS  74AP2 
7<tAN9  74APS 
7ltANS  74AP4 
74AN6  7<IAPS 
74AN7  74AP6 
74ANS  74AP7 
74AP1  74A01 
7«A01  79AH1 
79A9B  79AHB 
79*«C  74ARC 
79AN1  74A$1 
74AS1  74AT1 
TRASA  7<IA|A 
74AT1  7<tAUl 
7<iBCl  7<ieai 
7<tecA  7<tBeA 
7«eoi  7<teci 
7<teGi  7<ieoi 
7<tGtl  74BE1 
7<lBMl  74eFl 
7<lBJl  791)91 
79PX1  79BH1 
79BL1  7911 J1 
79PP1  79BX1 
79DMA  79eKA 
79BMe  790X6 
79aNl  790L1 
79BP1  798H1 
79BPA  790MA 
79ePe  790M0 
79001  790N1 
79BR1  79BP1 
79BT1  79001 
79BU1  79BH1 
79BUA  79BRA 
79DUB  79BMe 
79BV1  79BS1 
79BW1  79071 
79BX1  790U1 
79CM1  790V1 
79CN1  79001 
79B21  790X1 
79B2A  790XA 
79CP1  79071 
79CA1  79021 
79CAA  7902A 
79C01  79CA1 
79COA  79CAA 
79C06  79CAB 
79Cec  79CAC 
79C00  79CA0 


Oltl  • 0AN9  1 iPRTTmtTmiUNMWLO 
e9601N«TlME>01«ACCT>O35StS9*7 

CO  OSN>9P.9a97551«01$PX»MSSJtSP«CeKCTtiC»BliBOl)] 

ri  ••SPACEKCYLitltlll 

•CT  TFB  MAN* 

REPLACE 

eaozMo 


ot9-o«n 

1999  COS 
e9««7t'T 

•T 


TMCOE  7HCAE 
TMCHl  74CC1 
7<*CH*  7<*CCA 
7MCHD  7*CCB 
74CHC  74CCC 
7HCH0  7*ltCD 
7MCIIE  7*UL 
7HCHF  7*CCF 
74CRG  74CC6 
74CRH  74CCH 
711CRJ  74CCJ 
74CRK  7i*tCK 
74CRL  7HCCL 
74CC1  74C01 
74CS1  7HCF1 
7HCS*  74CFA 
7HCSB  7HCFB 
7HCE1  7HCG1 
74CF1  74CH1 
74CFA  74CHA 
74CT1  74CJ1 
74CTA  74CJA 
74CTB  74CJB 
74CTC  74CJC 
74CT0  74CJ0 
74CTE  74CJE 
74CG1  740B1 
74CH1  74UC1 
74CHA  740CA 
74CHB  740CB 
74CHC  740CC 
74CHE  74OC0 
74CHF  740CE 
74CK1  74001 
74E00  74F0a 
74EB1  74hA0 
74FF1  74Fai 
74FEI  74FCI 
74FEA  74FCA 
74FtB  74FCB 
74FEC  74FCC 
74FE0  74FC0 
74FEE  74FCE 
74FF.F  74FCF 
74FCI  74F01 
74FCA  74F0A 
74FCB  74F0B 
74FCC  74mc 
74FC0  74F0D 
74FCE  74F0E 
74FCF  74F0F 
74FCG  74F0G 
74FCH  74F0H 
74FCJ  74F0J 
74FCK  74F0K 
74FCL  74F01. 

74FCM  74F0M 
74FCN  74F0N 
74FCP  74F0P 
74FC0  7*hOO 
74FCR  74F0H 
74FCS  74F0S 
74FtT  74F0r 
74FC0  74H)0 
74FCV  74F0V 
74FCW  74F04 
74FC*  74F0F 
74FCY  74mr 
74FCZ  74F0Z 
74FC2  74m2 
74FC3  74F03 
74FC4  74F04 
74FC5  74F05 
74FC6  74F06 
74FC7  74F07 
74FCS  74F0e 
74FC9  74F09 

74F0A  7*FtA  ' 

74F0B  74FtB  1: 

74FB1  74FF1 

74FBA  74FFA  . 

74FBB  74FFB 

74FBC  74FFC  t 

74FaO  74FF0  \ 

74FBE  74FFE  ; 

74FBF  74fFF 
74FB6  74FFG 


6-1  OG 


7%FBH  7«FFH 
7«»FBJ  7«IFFJ 
/dFBK  7(IFFK 
74F8L  7<IFFL 
7(lFBM  7(IFFH 
7(lCVl  7(IFB1 
7«IE«1  7«IFHi 
74CKI  7*IFJ1 
7<»eUl  7%FK1 
7<»KHl  7«>Kbl 
7(|K81  71IKCI 
7HKB8  7<IKCB 
7«»KC1  7«iK0i 
7<lK0l  7(IKtl 
7<lK0e  7«kCB 
7<IK0C  7(»r£C 
7«lKCi  7(IKFi 
7<IKEB  7(IKFB 
7«lKFl  7<IKB1 
7«lKFA  7(»KBA 
7AKFB  7AKBB 
7AKFC  7AKtoC 
7AKFD  7AKB0 
7AKFC  7AKBC 
7AKFF  7%KbF 
7AKFe  7AKbB 
7%KFH  7AK(»H 
7«KFJ  7AK6J 
7AKFK  7«KbR 
7AKFL  7AKM. 

7«lK6t  7«IRH1 
74KMA  7AKJA 
7HAP1  7AKK1 
7«IA01  7AKLt 
7AAHt  7«lKMl 
7«iKSt  7AKNt 
7AAT1  7«»nPl 
7%AUt  7AKat 
7%C6A  7AC0A 
7<»AVt  7AaH1 
7AG00  7«P00 
7AGAt  7APAt 
7A6Bt  7Apet 
7AG0t  7APCt 
7ABF1  7AP0t 
7A6F1  7APtl 
7AGG1  7<*PF1 
7AGGA  7APFA 
7A0Ht  7APGt 
7<*0Jl  7APH1 
7AGK1  7APJt 
7A0i.i  7APA1 
7AGMI  7APLI 
7A6PI  7APM1 
7AGBi  7APN1 
7A0Ri  7APPi 
7A0N1  7AQAi 
7«GNA  7AQAA 

•END 

//C9aB7H  EXEC  C >6g3N»nME>0lf  ACCT>OBS925007 

//CHO.TUaa  on  OSN>4P.B6a7S5t«OlSPHOLO»PASS)  Ot»*lN 


//CHG.TPPiN  Ob  AfSPACEHTIIKfCI*!]) 

T/P  TU25  101.0602060 

/•  PLACE  T/P  CONTROL  CAPOS  BCFOPE  THIS  CAPO 

//C9607D  EXEC  P6622Pf «>010«TlME>01»ACCT>06S9t0607 

//CH6.S0PT1H  Du  DSN>>P*6667SSl«0lSP>€0L0f0CLC7CT»  COtt/t9  t 

//  D"B>CLP€CL>0660»BLKSm>1606}fLABCLH»fiSL«PcTPO>660T 

//CMOtSOPTOuT  DO  DSN>tP*9697S53»OlSPX»PAS$)»SPA€CHCYL9€00l»06l)3*  COtt/16  I 

//  OCBKLPCCLTOOOOteLKSlfOUOPI 

//CH6.SVS1N  tJ  •fOCB>BLKSm>6666»SPACC>CTPP»Ct»tT) 

SOPT  FULOSHOOatOOBtCHtAjfSlaCTCOOOOAOO 

MOOS  ElSHE159666»S0PTLlB9Nl9C16HCl6f6t6*t0PTLtBfM) 

/• 


1 


6-107 


6. 5.6 


SORT  WUC  FOR  DELETION 


//C9697A  exEC  C^91N«TtMC>0i**CCT>O365tS00T 

//CHG.lUaa  on  0$N>4P«M«75SOtOlS^>C*MSS3*S^ACCHCTt»Ca«l»eol33 

//CHG.TFatN  00  •*S^ACE>CCYL«Ci*i33 

OOUOO  OtT  TF«  VAMO 

etaool  oimo  r.pcacc 

T7C  Tuaa  ii  oaoaaao 

74AEr 
YHAEH 
7HnCt 
7*iOf  1 
74001 
74021 
74KAA 
74KA8 
74KCA 
7«*KEA 
74KE0 
74ALA 
74AL1 
74APA 
74APfl 
7hAPC 
74APF 
74APG 
74APH 
74APJ 
74APR 
74APt 
74APM 
74APP 
74APa 
74APS 
74APT 
74APU 
74APV 
74AP« 

74APX 
74APy 
74AP2 
74AP2 
74AP3 
74AP4 
74AP5 
74AP6 
74AP7 
74AHe 
74AHC 
74ATA 
74AU1 
74SeA 
740^1 
74P01 
740KA 
74fW0 
74fMA 
74BRe 
740S1 
74axA 
74C01 
74C0A 
740B1 
740CA 
74006 
740CC 
740C0 
740CE 
74001 
74001 
74971 
74CA6 
74CAC 
7«*CA0 
74CAC 
74CCA 
74006 
74CCC 
74CC0 
74CCE 
740 OF 
7«*006 
7400H 
7400J 
7«*00« 


oaa-ouT 
iMo  cos 

C6697da 

•T 


6-108 


! 

I 

I 

i 


IHCfB 

7HCJA 

74CJ8 

7HCJC 

7HCJ0 

7HCJE 

7HCJ1 

7HFA0 

74FK1 

74F01 

74FH1 

7HFJ1 

7HF00 

7HFFA 

74FFB 

7HFFC 

74FF0 

7HFFE 

7HFFF 

7HFF0 

7HFFM 

7HFFJ 

74FFK 

7HFFL 

7HFFM 

7HF0C 

7HF00 

7HF0e 

7HF0F 

7HF0e 

7HF0H 

7hFUJ 

7hF0K 

7HFUL 

7HF0N 

7HFUN 

7*»F0P 

7hF00 

7hFUR 

7HFUS 

7HF0T 

7«*F0U 

7HFUV 

74F0W 

7HF0X 

74F0Y 

7HF02 

jHFOl 

7AF02 

74F03 

7HF0A 

7HF05 

7HF06 

7AF07 

7<*F0a 

7HF09 

7APA1 

7APB1 

7HPC1 

7«eei 

7HPtl 

74PFA 

7HPF1 

7HPG1 

7HPH1 

7HPJ1 

7HPKi 

7HPU1 

740AA 

7A0A1 

7HPM1 

7HPN1 

7*»PP1 

74P00 

7AKC8 

7*»KEC 

7HKGA 

74KGB 

7*(KGC 

74KGO 

74KGE 

7HKGF 

7HKG0 

7HKGH 

74KGJ 

74KGK 


6-109 


TIKGL 

7HKHI 

74KJA 

7AKM 

74KL1 


74KN1 

•END 

/•  PLACE  T/o  CONTROL  CAROS  BEFORE  THIS  CARO 

//C9897B  EXEC  C96U3N.TIHE>01iACCT>035323007 

//CHG.TU22  DU  DSN>*P.9a9T5SOi01SP>COLO«PASS3  Ot2-lN 

T/P  TU22  1U1C1U02080 

/•  PLACE  TFO  Data  before  this  CARO 

//C989TC  EXEC  P9622NiM>010(T1ME>01>ACCT>39323007 

//CHG.SORTIN  DC  DSN>4P.98975SO«01SPXOLO<OCLETE3>  CD2t/f3  1 

//  Ore>[LRECL>0080«BLKSIZE>U00].LABEL>t  •NSL»RCTPO>0001 

//CHG.SORTOoT  do  DSN>4P.9897SS2<01SP>C •PASS)tSPACC>tCTL»[001»001 ]]•  CDlt/13  I 
//  DCU>CLRECL>a080«BLKSIZE>16001 

//CHO.SYSIN  DC  ••OCB>BLKS!ZE>0080«SPACCKTRK,(1.1]1 

SORT  FIELDS>C0o2>00S<CHiA1(SIZE>E0000S00 
MODS  E15>[E15iOaa>SORTLIB(NJ<E18>CE18<02««SORTLlB>Nl 
/• 


6.  5.  7 VERIFY  WUC 


//C9a97F  exec  P9GbSL>TIHE>OSiACCT>03S323007 
//CHG.TUIZ  DU  0SN>4P.9a9TSS2>01SP>C0L0«PASS3 

//CHG.TU13  DU  USN>4P.9a97SS3<0!SP>C0L0<PASS] 

//CHG.TU14  00  01SP>C •PASS]<UNlT>CA4F3«2«OEFCBl«DSN>«C.9a97*0S> 

//  V0U>SER>t*P3.A*F3.B»F3»C*FS»0*F3*E*F3»F*F3»G*F3»M»F3* 

//  14l-3)J4F3>X4F3>L4F3>H4F3<N4F3t04F3>P4F3>04F3,R»F3»S4P3] 

//CHG.TU24  Ou  OlSP>C>PASSl<UNlT>CA4FT<2«OEFCRltOSN>46.9S97*0S» 

//  V0.>SER>t»F7.A+F7,B»F7»C*F7#0*F7»E»F7tF*F7*B*FT»H*FT» 

//  I♦F/.J♦F7.K♦F7•L♦FT•M♦FT^N♦F7»0♦FT»P♦FT•0♦R7.R♦FT»S♦FT1 

//CHG. INPUT  00  •<SPACb>CCTL<Cl<llJ 

00000  CCMblNE  COMPILE  8.  BANG, 


OIUSO 
O2U00 
02010 
02020 
02030 
02100 
02110 
02120 
02130 
02140 
02  ISO 
02160 
02170 
02180 
02190 
02200 
02210 
02220 
02230 
10000 
lOUlO 
11200 
11210 
11220 
11230 
11240 
11250 
11260 
11270 
11280 
11290 
12000 
12010 


CCMblNE  compile 
date-written.  15  mat  72. 

ENVIRONMENT  DIVISION. 

CONFIGUHAriON  SECTION. 

S0URCE-C0M°uTER.  IBM-360. 
object-computer,  lHM-360. 

INpUT-OuTPiM  SECTION, 

FIlE-COnTK 1L. 

select  TAulE-1-FILE 

RtStRVE  1 alternate  area. 

SELECT  rAOLE-2-FILE 

RtlERvE  1 alternate  AREA. 

SELlCT  uata-in-file 

rlslRve  1 alternate  area, 
select  uata-oot-file 

RbSLRVE  1 alternate  AREA. 
select  MSG-FILE 

RESERVE  1 ALTERNATE  AREA, 

select  con-file 

RESERVE  1 alternate  AREA. 

DATA  DIVISION. 

file  SECTIJN. 

FD  lABLF-\-FlLE 

recording  MODE  IS  F 
BLOCK  CONTAINS  20  RECORDS 
RECORD  contains  80  CHARACTERS 

LABEL  Records  ake  omitted 

DATA  HECOHOS  ARE  TABLE-l-REC. 
table- i-REC  SYNC, 

02  FI  LER 
02  Wun-1 
02  filler 

TABLE-.’-FILE 
RECORL'TliG  MODE.  IS  F 


ASSION  TO  UT-S-TU12 
ASSIGN  TO  0T-S-T013 
ASSION  TO  UT-S-TU14 
ASSIGN  TO  UT-S-TDl* 
ASSION  TO  DA-S-OTot 
ASSION  TO  DA-S-DToZ 


01 


FD 


PICTURE  X. 
PICTURE  X[51. 
PICTURE  XCT«1, 


D12-1N 
D13-IN 
CT14/15  1 
CT14  2 
T14  3 

CT24/25  1 
CT24  2 
T24  3 

1440  CDS 
C9B970 
C98970 
C989T0 
C98970 
C9B9T0 
C98970 
C98970 
C98970 
C98970 
C98970 
C9B970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C9B970 
C98970 
C9a9T0 
CV89T0 
C989T0 
C98970 
C989T0 
C98970 
C989T0 
C98970 
C98970 
C98970 
C 98970 
C9B970 


12020 

BLOCK  CONTAINS  20  RECORDS 

C98970 

12U30 

RECORD  contains  80 

characters 

C98970 

12UII0 

LABEL  lECORDS  ARE  OMITTED 

C989T0 

12U50 

DATA  RECORDS  ARE  TA8LE-2-ReC. 

C98970 

12U60 

01 

TA8LE-2-REC  SYNC. 

C989T0 

12070 

02  filler 

picture  X, 

C98970 

12060 

02  MU:-2 

PICTURE  XCSJt 

C98970 

12090 

02  fiiler 

PICTURE  X. 

C 98970 

12100 

02  NUC-3 

PICTURE  XtSl. 

C98970 

12110 

02  filler 

PICTURE  XtG8l. 

C98970 

13000 

FD 

oata-1'i-file 

C98970 

13010 

recording  mode  Is  f 

C98970 

13U20 

BLOCK  CONTAINS  60  RECORDS 

C98970 

13030 

RECORD  CONTAINS  50 

characters 

C9B970 

6-110 


13U(»0 

LABEL  Records  are  omitted 

€96970 

13U50 

data  records  are  oata-in-rec. 

C96*»70 

13U60 

01 

OATA-li-HEC  SYNC. 

C96970 

13U70 

02  FILLER 

PICTURE  Xtl3J. 

€9697(1 

13UA0 

02  WtEK 

PICTURE  XXX. 

€96971) 

13U90 

02  MUv. 

PICTURE  XtSJ. 

€96970 

13100 

02  FI  LER  REDEFINES  HUC* 

€96970 

13110 

03  WUC-2-0101T 

picture  XX. 

C90970 

13120 

03  filler 

PICTURE  XXX. 

C96970 

13130 

02  FULER 

PICTURE  X1291. 

€96970 

14U00 

FO 

OATA-Q  n-FILE 

€96970 

14010 

RECORDING  MODE  IS  F 

€96970 

1HU20 

BLOCK  CONTAINS  60  RECORDS 

€96970 

14030 

RECORD  CONTAINS  50 

CHARACTERS 

€96970 

14040 

label  rlcoros  are  omitted 

€96970 

14US0 

DATA  records  are  DATA-OUT-FILE. 

C96970 

14U60 

01 

OATA-UJI-REC  SYNC. 

€9697:' 

14U70 

02  Fl'LER 

PICTURE  XtSOJ. 

€96970 

15000 

FD 

MSO-Fll.t 

€96970 

15010 

RECUROING  MODE  IS  F 

€96970 

15020 

BLOCK  V.UNTA1NS  90  RECORDS 

€96970 

15030 

RECORD  CONTAINS  70 

CHARACTERS 

€96970 

15U40 

LA8EC  RECORDS  ARE  STANDARD 

€96970 

15050 

DATA  KECOMOS  are  MSO-REC. 

€96970 

15060 

01 

MSO-RE  SYNC . 

€96970 

15070 

U2  VgC-MSO 

PICTURE  XtSJ. 

€96970 

15060 

02  FILLER-A 

PICTURE  XtOSJ. 

€96970 

16000 

FO 

CON-FI^E 

€96970 

IbOlO 

RECORUT NO  MODE  IS  F 

C96970 

16020 

block  CuNTAlNS  20  RECORDS 

€9697 0 

16030 

RECORD  CONTAINS  80 

CHARACTERS 

C9697H 

16040 

LA8EL  ’(ecoros  ame  standard 

€9697(1 

16050 

DATA  hfcohos  are  CON-REC. 

C90970 

16100 

01 

CON-RLC  SYNC. 

€96970 

16110 

05  WEeK-CMNG 

picture  XXX. 

€98970 

16120 

05  FI'  LEM 

PICTURE  X. 

C96970 

16130 

05  Muc.: 

PICTURE  XX. 

C96970 

16140 

05  FILLER 

picture  XtTHJ. 

€98970 

WORK|NG-Srs.KAaE  SECTION. 

77  REC-RfU  COMPUTATIONAL 
77  REC-PASS  COMPUTATIONAL 
77  REC-CHUO  COMPUTATIONAL 
77  HEC-0«''H  COMPUTATIONAL 

77  CNT  computational  SYNC 
77  TEMp-NO  SYNC 
77  MUC-TE.IP  sync 


picture  S9C7}  VALUE  ZERO  SyNC. 
picture  S9C7}  value  zero  Sync. 

PICTURE  S9t7J  VALUE  ZERO  STNC. 
picture  S9t7J  VALUE  ZERO  SyNC. 
picture  S9tbl. 

PICTURE  9t7J, 
picture  WSJ. 


77  NO-TAB-1  computational  SYNC  PICTURE  S999  VALUE  ZERO. 

77  NO-TAU-Z  computational  SYNC  PICTURE  S999  VALUE  ZERO, 

77  KNT  COMPUTATIONAL  SYNC  PICTURE  S999, 

77  NO-eRHCRS  sync  picture  9999  VALUE  ZERO, 

01  NINtS  SYNC  PICTURE  XtSOJ  VALUE  19 

■ I 999099999999999999999999999999999999999 I , 

01  piLleh  sync. 

02  TAfLE-l  OCCURS  300  TIMES  PICTURE  XCS). 

02  FitLER  OCCURS  2 TIMES, 

03  TABLE-2  OCCURS  300  TIMES  PICTURE  XlSJ, 

01  NSO-1  SYNC, 

02  fiiler  picture  xtesj  value 

I OCCURS  IN  TABLE-2  CLHS]  AND  TARLE-l, 

-I  I . 


01  NSO-2  FYNC. 

02  filler 

I 

- :IN  tacle-i. 
01  MSO-3  FYNC, 

02  filler 


01  MSG-9  sync. 
02  FILLER 
I 

- : 

01  MSG-S  SrNc, 

02  filler 


PICTURE  XIGSJ  value 

OCCURS  IN  TABLE-2  IRMJ  BUT  NOT  IN  TABLE-t  ILMJ  OR 


PICTURE  XC6SJ  VALUE 
IS  DUPLICATED  IN  TABLE-1. 


PICTURE  XtOSJ  VALUE 

IS  duplicated  in  table-2  IRH] 


picture  XtBOJ  VALUE 
IS  DUPLICATED  IN  TABLE-2  CLH] 


proceduke  division. 

OPEN  INPUT  TABLE-1-FILE>  CON-FILE. 
TABLt-2-FlLE. 

DATA-IN-FILE. 

OUTPUT  DATA-OUT-FILE.  MSO-FILE. 

REAO  Ct:.-FILE  AT  END  GO  TO  READ-TABLE-1. 

read-table* 1. 

REAU  TAdLt-1-FlLE.  AT  END  GO  TO  READ-TABLE-2. 
ADO  I lU  NO-TAb-I, 

MOVE  VLC-I  TO  table-1  CNO-TAO-I J. 

GO  10  PtAO-TAflLt-I, 


096970 

C98970 

C98970 

1:98970 

098970 

C9897P 

C9897t 

■:9697C' 

098971 

098971. 

090970 

098970 

098970 

098970 

098970 

098970 

098971 

098971 

098971 

098970 

098970 

•;98970 

096970 

096970 

096970 

09697(1 

098970 

096970 

C9e9Vf 

098970 

098970 

C96970 

098970 

09897(5 

C 98970 

C96970 

C96970 

C98970 

C98970 

098970 

C9897C 

098970 

C9897C 

098970 

098970 

098970 

098970 

098970 

098970 


6-111 


r 


50J00  REAO-TAULL-:^« 

50J10  REAO  U.ULE-2-FlUE>  AT  ENO  60  TO  R-0. 

bOJZO  AOO  1 TO  NO-TAB-2. 

50J30  MOVE  l•l'C-2  TO  table-2  Cli  NO-TAB-21. 

50340  MOVL  WijC-3  TO  TABLE-2  t2»  NO-TAB-21, 

50350  GO  TO  K_AO-TABLE-2. 

50355  R-D. 

50360  PERFORM  CHECK-MUC-OATA  THRU  ENO-CWO. 

503T0  IF  NO-EkRoRS  IS  NOT  EQUAL  TO  2eR0  OISPLAT  NO-eRRORS  I ERRORSI 

50360  UPON  lcrsoLe.  go  to  CFA. 

50400  beao-oata-input.  ' 

50410  REAO  UAtA-iN-FILEi  AT  ENO  00  TO  CLOSE-FILE. 

50420  AOO  1 1J  REC-REAO, 

50430  IF  meek  is  less  THAN  MEEK-CHN6~60  TO  CHK-WUC. 

50500  COPY-REC. 

50510  WRITE  UATA-OUT-HEC  FROM  OATA-lN-REC. 

50520  ADO  1 C IIEC-PASS. 

50530  GO  TO  HLAU-OATA-INPUT, 

bObOO  CHK-WUC. 

50610  IF  HUC-2-0IGIT  IS  NOT  EQUAL  TO  WUC2  00  TO  COPY-REC. 

51000  MOVE  2CHO  TO  CNT. 

51010  chk-tab-1. 

51020  AOO  1 TO  CNT. 

51030  MOVE  TAJLE-1  tCNTl  TO  MUC-TEMP. 

51040  IF  MUC  IS  LESS  THAN  WuC-TEMP  60  TO  ENO-CHR-TAB-l . 

51050  IF  HUC  IS  EQUAL  TO  WUC-TEMP  Go  TO  DELETE-REC. 

51060  IF  CNT  IS  LESS  THAN  NO-TAB-1  60  TO  CHK-TAB-1. 

51070  ENO-CHK-TAE -1. 

51080  MOVE  ZERO  TO  CNT. 

51100  CHK-TAB-2. 

51110  AOO  1 TV  CNT. 

51120  MOVE  TABLE-2  tli  CNT 1 TO  WUC-TEMP. 

51130  IF  WUC  IS  LESS  THAN  WUC-TEMP  60  TO  COPY-REC. 

51140  IF  wUC  IS  EQUAL  TO  WUC-TEMp  00  TO  MOVE-WUC. 

51150  IF  CNT  IS  LESS  THAN  NO-TAB-2  60  TO  CHK-TAB-t. 

51160  GO  TO  COPY-REC. 

51200  OELETE-HEc. 

51210  AOO  1 T1  REC-OROP. 

51220  GO  TO  HLAO-OATA-INPUT. 

51300  MOVE-WUC. 

51310  MOVE  TAdLE-2  t2i  CNT 1 TO  WUC. 

51320  AOO  1 ro  REC-CHNG. 

51330  GO  TO  COPY-REC. 

52U00  close-file. 

52010  COMPUTE  CNT  > REC-PASS  - REC-PASS  / 60  * 60. 

52020  IF  CNT  IS  EQUAL  TO  ZERO  GO  TO  CFA. 

52100  nine-fill. 

52110  WRIIE  UATA-OUT-HEC  FROM  NINES. 

52120  AOO  1 I J CNT. 

52130  IF  CNT  IS  less  THAN  60  GO  TO  NINE-FILL. 

52200  CFA. 

52210  MOVE  REC-REAO  TO  TEMP-NO, 

52220  display  : REC-REAO  : temp-no  upon  CONSOLE. 

52230  MOVE  REC-PASS  TO  TEMP-NO. 

52240  OISPLAY  : REC-PASS  I TEMP-NO  UPON  CONSOLE. 

52250  MOVL  ME--CHNG  TO  TEMP-NO. 

52^60  OISPLAY  : REC-CHNG  I TEMP-NO  UPON  CONSOLE. 

52270  MOVE  REC-OROP  TO  TEMP-NO, 

52280  display  REC-OHOP  1 TEMP-NO  UPON  CONSOLE, 

52240  OISPLAT  I EOJ  9897  1 UPON  CONSOLE. 

52292  CLOSE  TABLE-I-FILE*  TABLE-2-FILE.  OATA-IN-FILE'  CON-FIlE» 

52294  UAtA-OUT-FILL,  MS6-FILE. 

52300  GOBACK. 

54000  CHLCK-WUC-LATA. 

54010  MOVL  ZERO  TO  CNT. 

54100  CWOA, 

54110  AOO  1 TO  CNT. 

54120  MOVE  TAJLE-2  Cl*  CNT J TO  WUC-TEMP. 

54130  MOVE  ZERO  TO  KNT, 

54200  CWOB. 

54210  AOO  1 TO  KNT. 

54220  IF  TAuL'-.-1  CKNTl  IS  GREATER  THAN  WUC-TEMP  60  TO  CWOC. 

54230  IF  TABLL-1  CKNTl  IS  EQUAL  TO  WuC-TEMP  MOVE  MS6-1  TO  FIlLER-A. 

54235  PERFORM  BAO-OATA, 

54240  IF  kNT  is  LESS  THAN  NO-TAB-1  60  TO  CWOB. 

54300  CWOC. 

54310  IF  CNT  IS  LESS  THAN  NO-TAB-2  60  TO  CWOA. 

54320  MOVE  Z-RO  TO  CNT. 

54400  CWOO. 

54410  AOO  1 TO  CNT. 

54420  HOVE  TA8LE-2  C2r  CNT I TO  WUC-TEMp. 

54430  MOVE  ZE.IO  TO  KNT, 

54500  CWOE. 

54510  AOO  1 TO  KNT. 

54515  IF  table-1  CKNTl  IS  GREATER  THAN  WUC-TEMP  60  TO  CWOM. 

54520  IF  tABL  -1  CKNTl  IS  EQUAL  TO  WUC-TEMP  60  TO  CwOf, 

54530  IF  kNT  is  less  THAN  NO-TAB-1  60  TO  CWOE. 


C9B970 
096970 
C9B970 
C98970 
C9B970 
C98970 
C9B970 
C9B970 
C96970 
C96970 
C98970 

C9B970  { 

C9B970 
C96970 
C96970 
C9B97P 
C96970 
C9B970 
C96970 
C9B970 
C9B970 
C969T0 
C9S970 
C96970 
C96970 
C96970 
C96970 
C9B970 
C98970 
C 98970 
C96970 
C 98970 
C98970 
CO8970 
C9BQ70 
C9S970 
C98970 
C9B970 
C98970 
C98970 
C98970 
C98970 
C98970 
C90970 
C90970 
C96970 
C98970 
CO6970 
C98970 
C98970 
C98970 
C98970 
C96970 
C98970 
C9B970 
C96970 
C9B970 
C98970 
C96970 
096970 
096970 
C9B970 
C9B970 
C96970 
C98970 
C98970 
C98970 
C9UT70 
C98970 
C9B970 
C98970 
C98970 
C9B970 
C98970 
C98970 
C96970 
C9B970 
C9B970 
C98970 
C98970 
C9B970 
C98970 
C 96970 
C96970 
C96970 
C96970 
C96970 


SUbSS  CWM. 

SOMO  Move  ZE40  TO  KNT, 

bUMO  CMUM. 

S«MO  *00  I TO  KNT. 

SUM**  IF  TA«»t..-2  Cl>  KNTl  IS  OnCATCII  THAN  «UC-TCI»  *0  TO  OHI-*. 

S«STO  IF  TFoI.'-2  (1.  KNTl  IS  COUM.  TO  MUC-TCMF  00  TO  COOF. 

svsao  IF  kNT  IS  LESS  THAN  NO-TAO-2  00  TO  COOO. 

s«sas  o-o-a. 

S«S90  MOVt  MS  -2  TO  FILLCn-*. 

SKbOO  a*U-OATA. 

SAOia  MOVL  ■IH.-TCMM  tu  «uc«Msa. 

SAbza  vMire  fjO-alc. 

SAbSO  Aon  I Ti  no-ehnoas. 

b<rOO  CHOF. 

SbTIO  IF  cnt  is  (.ess  than  NO-TAO.2  oo  to  cmoo. 
s«aoo  Move  zeio  to  knt, 

bbSIO  MOVL  I TO  CNT. 

S«b20  TAO-l-OuF. 

SbBSa  AOO  I TJ  KNT. 

S<a«0  AOO  I Tl  CNT. 

SAbbS  MOVL  T*HLe>l  CKNTl  TO  ItUC-TCHF. 

SbbSO  IF  KUC-ICHP  IS  eoUAL  TO  TAOLE-l  CCNTl  MOvC  NSO-S  TO 

SbbSS  FILLFM-...  kafohm  oao-oata. 

SbbbO  IF  cnt  'S  Less  THAN  N0-TAB>1  00  TO  TAO-l«OUF. 

bbVOO  MOVL  ZEmO  TO  KNT. 

SbVIO  MOVL  I lO  CNT. 

S«420  TAa>2-0uF. 

SAVSO  AOO  I TO  KNT. 

SbVbO  AOO  I TO  CNT. 

s«<»«s  MOVL  rAjLe>2  ci<  knti  to  imc'TCmf. 

SbVSO  IF  «UC>'CMP  Is  EOUAL  TO  TAOLE-2  tl>  CNT] 

SbVbO  MOVL  MSb-b  TO  FILLEN-A.  PEMFOOM  OAfr^lATA. 

SbvTO  IF  CNT  iS  LESS  THAN  N0-TA0>2  00  TO  TA0«2«0UF. 

SSUOO  MOVL  I ro  CNT. 

bSUIO  CHK«LHS. 

SS020  MOVL  TAuLe>2  C2>  CNTl  TO  ItuC'TEHF. 

SSU30  MOVE  LNi  TO  KNT. 

SSUbO  CHK-LHSA. 

SSUSO  AOO  I TO  KNT. 

bSUbO  IF  TABLL-2  C2<  KNT J IS  EOUAL  TO  MUC-TEMF  MOVE  NSO-B  TO 

SSUbS  filler*- t PERFONM  OAO-OATA. 

SSUTO  IF  knt  ’S  less  than  Ne*TAa.2  00  TO  CHK-LHSA. 

ssoao  AOO  I TO  CNT. 

SSU90  IF  CHT  tS  Less  THAN  NO-TAO-2  00  TO  CHR-LHS. 

SbUOO  ENO-CMO.  e:lT. 

/«  place  Coa'A.  SOURCE  aCFORE  THIS  CRRO 

//CHO.TFSIN  DU  ••SPACCKCTLtCWllJ 

ttOUOO  CET  TFO  HANO 

OlOOOl  0IV999  PLP' ACC 

TFO  OT02  II  OiiOZOaO 

2a0  Tb 


•eNO 

/•  PLACE  tfo  Data  before  this  card 

//TPR.TUIb  OU  0ISPK0L0>RCEPJ>V0L>SeR>«F3tUNIT>TbFS 

//TPR.TU2b  OU  DISPXOLD>NCEPJ>VOL>SER>«FTtUNIT>TbFT 

//TPR.TPRIN  OU  ••SPACCXTRK.Cl.lI] 

T/P  TUI2  10200X02009 

TUI9  10200002000 

TU19  10l00'-020B0 

TUta  10200»02090 

OTOl  10200T020TO 

OTot  looiobozoao 


T/P 

T/P 

T/P 

I/P 

T/P 

/• 


PLACE  T/P  CONTRX  CAROS  OEFORE  .THIS  CARO 


C9S9T0 
C9a9T0 
COaOTO 
C 90970 

coaoTo 

coaoTO 

coaoTO 

coaoTO 

coaoTO 

coaoTO 

cbaoTo 

coaoTo 

coaoTO 

coaoTo 

coaoTo 

C9R9T0 

coaoTO 

coaoTO 

coaoTO 

090970 

C9a970 

090970 

090970 

C9B970 

098970 

090970 

090970 

090970 

090970 

090970 

090970 

C9A970 

C9B970 

C9B970 

090970 

C9B970 

090970 

090970 

090970 

090970 

090970 

090970 

090970 

C909TC 

C909TC 

1090  CDS 

090970' T 
•T 


TlO 

TIO 


6-113 


6.  6 PREPROCESSOR  PROGRAMS 
6.  6. 1 PREPROCESSOR  FORMATTER 


//C9697U 
//C9897U  CAEC 
//CH6«TU12 
// 

// 

//CH6.TUX<* 

// 

// 

//CHQ«1U22 

// 

// 

//CHO«TU2<t 

// 

// 

//CHG«TU2S 
//CHG. INPUT 
OQUOO 
OIUNO 
U1U50 
U1U60 
02U00 
U2ulU 
U2U2U 
U2UA0 
U2100 
0211U 
02120 
02130 
U21<4U 
021bU 
U21oU 

U2170 
02180 
02190 
024i00 
02210 
lOOOO 

mio 
11100 
11120 
11130 
11190 
lllt»0 
lllGO 
11200 
11210 
12100 
12120 
12130 
12190 
12150 

121b0 
12200 
12210 
13100 
13120 
13130 
13190 
13150 
13160 
13200 
13210 
19100 
19120 
19130 
19190 
19150 
19160 
19200 
I92I0 
15100 
15120 
15130 
15190 
15150 
15160 
15200 
15210 
30000 
30230 
30290 
30250 


01# I G«  WANG  i#PKTY>02»TTPRUN>H0L0 
P9655L • TI HE  >09  # ACC  T>0  35323007 

OU  0I5P>C#PA55]#UNlT>CA«n*2#0£F£R3#0SN>^A  *9397905* 
V0L>SER>t ♦Fl#A4Fl#b«F|#C4Fl#0^FI#£^Flt^tFl*GiFl#H^Fi# 
l4Fl#J4Fl#K4ri#l.>Fl»M«Fl#N^Fi#0«Fl#P*Fl#94Fl#R4Fl#S^F13 
DU  015P>t •PA551#UNtT>C A«F3»2#0£F£P3#DSN>«C*969790«* 
V0L>S£R>C>F3#A4F3#e«F3#C^r3#04F3#£«F3#F^F3*64F3#H«F3* 
I4F3#J4F3#A>F3#L^F3#M*F3#N4F3#0>F3#P^F3#04F3*R^F3»s^F3J 
OU  UlSP>t •PA5S]#UNIT>lA«F5#2#0£F£Rl#05N>^£*989790b# 
V0L>S£R>C ♦Fb#A«F5#d«F5#C«F5#04F5#£4F5#F4F5*G«F5»H«F5# 
lt»>biJ«F5#K«r&#L«F5#P«Fb#N4F5#0«F5#P«FS#0tF5#K^F5#5tFb) 
OU  niSP>C  #PA55]#UfWT>lT4F7#l*OFF£R)#OSN>«G»9697906# 
VUL>5LH>C  ♦F7#A4F7«b«F7#C4F7#0«F7#£«F7#F*'F7*G«F7#H«F7# 
ltF/#JtF7#K«F7*L4F7#M«r7#N«F7#0^F7#PtF7#0«F7»RtF7»b4F7] 
OU  J5N>>P.9d97907f5PACr>CCYL#(OlO#00I J] 

OU  ••SPACt>CCYL#ilil 13 

CUMolNE  compile  G*  hAnG« 

OATE*WRlTrti«.  23  MAi<  72. 

REMARKb.  PKUGhAM  NA«4£*  QATA  WANK  PHASE  |I  •SUM  OF  FLIGHT  HOUR5# 
50RTlfc.5  ANO  LANUINGS  IN  TyPk  3 ANO  TYPE  9 RLCOPUb. 

environhemt  division. 

Cui>if  IGuhAFIwN  bbCTlUN. 

50UKC£*lOhPuTER.  1UM.36U. 

OdJtCT*LOmPu1fc.R.  IbH.ibO. 

INPUT-OuTHUT  SFCTIOU, 

FILL-COnTHOl. 

5£LcCf  infile 

RtSuMVE  5 alternate  ARfiA, 

SELtCr  outrank*file 

HtstHvE  5 Alternate  area. 

SELLCr  i\Cf)-AP.f  ILL 

area* 


ASSIGN  TO  UT»S*TUl2 
ASSIGN  TO  UT-5-TU22 
ASSIGN  TO  UT»S*T02S 


ASSIGN  TO  UT-S-TU29 
ASSIGN  TO  UT-S-TU19 


characters 


characters 


PtScRvE  1 alternate 
SELtCr  aC-FlLE 

Rlschve  s Alternate  area* 

SELcCI  hSG^FILE 

HcSbRvE  s Alternate  area* 
data  OIvISluN* 
file  SClTIUi^* 

FU  INFILE 

HECijRuli^G  HOOE  IS  F 
BLOCK  CwNlAtNS  OO  RECORDS 
HECgPU  CONTAINS  50 

laple  hccoros  ahe  omitted 

data  KtwOHOb  ARE  1N«REC* 

IN*l<ec  bYNC* 

02  FlLLtH  PICTURE  XtSOi* 

OUTuAnk«FILE 
HECuRUlr^G  MODE  IS  F 

BLOCK  Contains  9o  records 
HECuPU  contains  70 
LABeE  hlcorus  are  omitted 

data  rtECOROb  ARE  OUT-REC* 

OUT-RtC  SYNC* 

02  FiLcEH  PICTURE  XI 70)* 

HCD-Kp»>-IlE 
KECORul<«G  HOOE  IS  F 
MLOcK  contains  2S  HECOHUS 
RlCgKu  vOnTAINS  70  CHARACTlHS 

LAIIlL  NLCoRUS  AbE  omitted 
OATm  HcCOROS  ahe  sn<-count« 

SN-COUNI  SYNC* 

U2  filler  PICTURE  XC70). 

SG-FILL 

RECORDING  MODE  IS  F 

BLOCK  Contains  9c  records 
RECORD  contains  70 
labll  records  are  omitted 

DATA  RECORDS  ARE  'iG-REC* 

SO-REC  SYNC* 

02  filler  picture  Xt70)* 

nsg-file 

RECORDING  MODE  I?  F 
BLOCK  contains  90  RECORDS 
RECORD  CONTAINS  70 
LABEL  RECORDS  ARE  OMITTED 
DATA  RECORDS  ARE  NSO-REC* 

NSG-PEC  SYNC* 

02  filler  picture  XC70)* 

WORRING*ST0RAgE  SECTI3N* 

01  NINt  SYNC* 

02  filler  picture  XC23J  VALUE 

S999999999999VVV9999999999 I • 


01 

FU 


01 


FO 


01 


FO 


01 


FD 


01 


CHARACTERS 


characters 


CT12/I3  I 
CT12  2 
Ti2  3 
CT19/1S  1 
CT19  2 
T19  3 

CT22/23  i 
CT22  2 
T22  3 

CT29  1 
CT29  2 
T29  3 

D25-0UT 
1940  COS 
C96970 
C96970 
C96970 
C9e970 
096970 
096970 
096970 
096970 
C96970 
C96970 
C96970 
096970 
096970 
096970 
096970 
096970 
096970 
096970 
096970 
096970 
096970 
C98970 
C98970 
098970 
098970 
098970 
096970 
098970 
098970 
098970 
096970 
096970 
090970 
098970 
096970 
€96970 
C96970 
096970 
096970 
098970 
C96970 
096970 
096970 
096970 
C98970 
C98970 
C96970 
C98970 
096970 
096970 
096970 
098970 
C96970 
C96970 
C96970 
096970 
096970 
098970 
C96970 
096970 
C98970 
C96970 
C96970 
C96970 
C96970 
C96970 


G-114 


3026U 

U2 

FILLER 

PICTURE  XC2bl  VALUE 

C96970 

304*70 

••99909999999999999999999991  • 

C96970 

30^00 

02 

filler 

PICTURE  XC20]  value 

C98970 

30^90 

: 9999999999999999999X1 . 

C98970 

30310 

01 

recoros-reao 

FICTURE 

9t71  STNC  value  zero. 

C98970 

30320 

01 

RECORUS-PASS 

PICTURE 

9CT1  SYNC  VALUE  ZERO. 

C98970 

30330 

01 

NEC 

•l.CNT 

PICTURE 

9C61  SYNC  value  ZERO. 

C98970 

303H0 

01 

NEC 

-3-CNT 

PICTURE 

9CT1  sync  value  ZENO. 

C96970 

30350 

01 

NEC 

-4.CNT 

PICTURE 

9CT]  STNC  value  ZENO. 

C96970 

30355 

01 

SN- 

TOC-CNT 

PICTURE 

9C31  SYNC  VALUE  ZENO. 

C96979 

30360 

01 

FH- 

CMt 

PICTURE 

SVC  6 1 STNC  VALUE  ZENO  COMPUTATIONAL. 

C96970 

30370 

01 

bORIItS-CNT 

PICTURE 

SVC  SI  STNC  value  zero  Computational, 

C96970 

30300 

01 

LANUlHOb-CNT 

PICTIWE 

SVC  ST  STNC  value  ZENO  COMPUTATIONAL. 

C96970 

30390 

01 

KNT 

PICTURE 

S999  STNC  value  ZERO  COMPUTATIONAL. 

C98970 

30H0U 

01 

KOUNT 

P.CTURE 

S999  STNC  value  ZERO  COMPUTATIONAL. 

C98970 

30410 

01 

SGCNT 

PICTURE 

S999  SYNC  value  zero  computational. 

096976 

30420 

01 

hSGCNI 

PICTURE 

S999  STNC  value  ZERO  COMPUTATIONAL. 

C98970 

30500 

01 

S6- 

CNT 

P.CTURE 

9C61  STNC  value  ZENO. 

C96970 

30510 

01 

NSG 

•CNT 

P'CTURE 

9C6J  STNC  value  zero. 

C96970 

30520 

01 

SG* 

hcnt 

PICTURE 

9CT1  STNC  VALUE  ZERO. 

C96970 

30530 

01 

NSO 

•RCNt 

Picture 

9CT1  STNC  value  zero. 

096970 

30540 

01 

Rl- 

G-CNT 

PICTURE 

9C6]  STNC  VALUE  ZERO. 

096970 

30550 

01 

N3* 

G-tWT 

PICTURE 

9CT1  STNC  value  zero. 

096970 

30560 

01 

R4* 

6-CNT 

PICTURE 

9CT]  STNC  value  zero. 

096970 

33000 

01 

TESf-A  btNC. 

096970 

33010 

02 

SN*A 

picture 

XC«]  VALUE  space. 

096970 

33020 

02 

WK-A 

PICTURE 

XI3J  value  space. 

090970 

33100 

01 

TEST-B  bTNC. 

096970 

33110 

02 

SN.U 

PICTURE 

XI «J  value  SPACE. 

096970 

33120 

02 

WK-U 

PICTURE 

XI 31  value  space. 

096970 

39000 

01 

IN. 

test  srNC* 

C98970 

39OI0 

02 

MUS«lN 

PICTURE 

*151. 

C96970 

39U20 

02 

SN-IN 

PICTURE 

XI 81. 

C98970 

39030 

02 

«K*IN 

PICTURE 

XI31. 

C96970 

39035 

02 

WUC.l.lN 

PICTURE 

X. 

C96970 

39040 

02 

fill-a 

PICTURE 

XI  111. 

098970 

39050 

02 

fh-in 

PICTURE 

S9f91. 

096970 

39060 

02 

FItfB 

PICTURE 

XI 31. 

098970 

39070 

02 

SUR1IES*IN 

PICTURE 

59191. 

098970 

39000 

U2 

LAi4uINGS*IN 

PICTURE 

5919  1. 

096970 

39090 

02 

FILU-C 

PICTURE 

*151. 

09697D 

39100 

U2 

TyPt-IN 

PICTURE 

Xtll. 

09B970 

39110 

02 

FILU-U 

PICTURE 

*111. 

098970 

40000 

01 

REC 

•TTPf3  SrHCi 

096970 

40010 

02 

HUS-3 

PICTURE 

*151. 

090970 

40020 

02 

SN-3 

PICTURE 

*181. 

098970 

40030 

02 

WK.3 

PICTURE 

*(31. 

098970 

40040 

02 

FLU*3 

picture 

*1121. 

090970 

40u50 

02 

LAhOR-3 

PICTURE 

*(91. 

098970 

40060 

02 

AJt*3 

PICTURE 

*131. 

090970 

40U70 

02 

NOHM.3 

PICTURE 

*191. 

098970 

40060 

02 

hOHii-3 

PICTURE 

*191. 

098970 

40090 

02 

UNlT-ATC-3 

PICTURE 

*151. 

C90970 

40100 

02 

TyMt-3 

PICTURE 

*111. 

098970 

40110 

02 

RtC-3-HOLO 

PICTURE 

*1211. 

098970 

40200 

01 

REC 

-TyPc-4  StNC, 

09B970 

40210 

02 

MUS-4 

PICTURE 

*151. 

C98970 

40220 

02 

SH-4 

PICTURE 

*181. 

098970 

40230 

U2 

WK-4 

PICTURE 

*131. 

098970 

40240 

02 

FLH-4 

PICTURE 

*1121. 

C98970 

40250 

02 

LAH0R.4 

PICTURE 

*191. 

098970 

40260 

02 

FL0-4A 

PICTURE 

*1161. 

098970 

40270 

02 

TyMt-4 

PICTURE 

*111. 

096970 

40260 

02 

ReC-4-HOLO 

PICTURE 

*1211. 

098970 

40400 

01 

NEC 

-l.HJLO  SYNC. 

090970 

40410 

02 

fh-hOlo 

PICTURE 

59191. 

096970 

40420 

02 

FM-5UM-H0L0 

PICTURE 

59161. 

098970 

4 04  30 

02 

SON  t lES-SUP-HCLO 

PICTURE 

S9I51. 

090970 

40440 

02 

LAMBlNeS-SUH-HOLO 

PICTURE 

59151. 

096970 

40450 

02 

rcd-hk-holo 

PICTURE 

* VALUE  I* : . 

096970 

40600 

01 

SN- 

total  stnc. 

098970 

40610 

02 

CAN-CONTROL 

PICTURE 

* VALUE  5PACE. 

C98970 

40620 

02 

FH-IOT 

PICTURE 

ZZZZZ9, 

098970 

40630 

02 

filler 

PICTURE 

* VALUE  5PACE. 

096970 

40640 

02 

SURtlES-TOT 

PICTURE 

ZZZZ9. 

098970 

40650 

U2 

filler 

PICTURE 

* VALUE  5PACE. 

098970 

40660 

02 

LANJINOS-TOT 

PICTIXIE 

ZZZZ9. 

096970 

40o70 

02 

filler 

PICTURE 

* VALUE  5PACE. 

096970 

40660 

02 

TyI'L-I-TOT 

PICTURE 

ZZZZZ9, 

096970 

40690 

02 

filler 

PICTURE 

* VALUE  5PACE. 

096970 

40700 

02 

TYPt-3-TOT 

PICTURE 

ZZZZZZ9. 

098970 

40710 

02 

FILLER 

PICTURE 

* VALUE  5PACE. 

098970 

40720 

02 

TYPt-H-TOT 

PICTURE 

ZZZZZZ9. 

096970 

40730 

02 

FILLER 

PICTURE 

* VALUE  SPACE. 

096970 

40  740 

02 

SN-IOT 

PICTURE 

*181. 

098970 

4U750 

02 

filler 

PICTURE 

* VALUE  Space. 

C989T0 

40760 

02 

Sil-IOT 

PICTURE 

2ZZtZ«. 

090970 

6-115 


40^70 

02 

FILLER 

40700 

02 

NSO-TOT 

40790 

02 

rlc-kp-tot 

40000  01 

RCO 

-TOTALS  SYNC. 

40610 

02 

FILLER 

40020 

02 

RLCoROS-lNPUT 

40630 

02 

filler 

40040 

02 

RLC-3-4-OUT 

40045 

02 

filler 

40050 

02 

SN-OUT 

40060 

U2 

FILLER 

40065 

02 

Sb-OTOT 

40670 

02 

filler 

40075 

02 

NSO-GTOT 

40000 

02 

filler 

40090 

02 

Rl-O-TOT 

40900 

02 

filler 

40910 

02 

R3-b-T0T 

40920 

02 

filler 

40930 

40940 

409SO 

40990 

bOUOO 

bOUlO 

bOU20 

50030 

bOU35 

50040 

50100 

50110 

50120 

50130 

50135 

50140 

50150 

50200 

50210 

50212 

50214 

50220 

50230 

50240 

50250 

50252 

50253 

50254 
5025b 
50257 
5025b 
50260 
50270 
50272 
50260 
50290 
50.100 
50310 
50320 
50330 
50340 
50500 
51U00 
51U10 
51020 
51030 
51040 
51050 
51U60 
51U70 
51060 
51100 
51105 
51110 
51120 
51130 
51140 
51150 
51160 
51200 
51202 
51204 
51210 
51220 
51230 
51250 
51300 
51310 


PICTURE  X VALUE  SPACE, 

PICTURE  222229. 

PICTURE  XC5J  VALUE  SPACE, 

PICTURE  X VALUE  SPACE, 

PICTURE  2222229. 

PICTURE  K VALUE  SPACE. 

PICTURE  2222229. 

PICTURE  X VALUE  SPACE. 

PICTURE  229. 

PICTURE  K'  VALUE  SPACE. 

PICTURE  2222229* 

PICTURE  X VALUE  SPACE 

PICTURE  2222229* 

PICTURE  X VALUE  SPACE, 

PICTURE  2222229* 

PICTURE  X VALUE  SPACE. 

PICTURE  2222229* 

picture  X VALUE  SPACE, 

PICTURE  2222229* 

picture  XCIO]  VALUE  SPACE 

PICTURE  XC70]  value  SPACE, 


02  R4-0-TOT 
02  TILLER 

01  5U-fOT-oLNK  SYNC 
02  TILLEK 
PHOCEOUKE  OIVISION. 

BANKI. 

OPEN  INPUT  INFILE  OUTPUT  OUTBANK^TILE* 

OPEN  UUrPUT  rco-kp-tile* 

OPEN  OUfPuT  SO-TlLw  N50-T1LE.‘ 

SUBTRACT  1 PROM  SN  TOT-CNT. 

REAO-IN. 

KOVE  TEST- A TO  TES1-B. 

REAU  INTILE  INTO  l..-TbST 

at  LNO  go  TO  HfCORO-KEEP* 

AOD  1 TO  HECOROb-HEAO. 

MOVL  SN-IN  TO  SN-A. 

HOVt  NK-IN  TO  WK‘  A. 

COPPARE-SN* 

IF  SN-A  equal  SN-rt  60  TO  COHPARE-HK. 

MOVL  SO-CNT  TO  Su-TOT* 

MOVt  NSv-CNT  TO  NS^-TOT. 

MOVt  5U-B  TO  SN-TOT. 

MOVE  FM-CNT  to  f’H-iOT* 

MOVL  50hTltS-CN|  Tw  SORTIES-TOT* 

MOvt  LAmOINOS-CNT  *0  LANOfWOS-TOr. 

MOVL  HEC-l-CNT  TO  TYPfl-TOT* 

MOVE  RtC-3-CNT  TO  lYPE-3-TOT. 

MOVL  HFC-4-CNT  TO  '.YPE-4-TOT, 

AOO  RLC-l-CNT  TO  H.*-G-CNT, 

AOO  RlC-3-CNT  to  R3-G-CNT* 

AOO  RlC-4-CNT  to  H4-G-CNT* 

4R1TE  5N-COUNT  FRO>  SN-TOTAL. 

AOO  1 TO  5N-T0T-CNT. 

IF  type-in  equal  19:  GO  TO  RECORO-KEEP. 

MOVL  2EHOS  TO  FH-CNT  SORTIES-CNT  LANOInGS-CNT. 

MOVL  211^05  TO  FH-MFLO  FH-SUM-HOLO  SOHTHS*SUM*MOLO 
L ANO INOS-SUM.HOLO • 

MOVL  2LkOS  to  50-CNT  NSO-CNT 
REC^‘-CNT 
REC-^-CNT 
REC-4-CNT. 

GO  rO  COMpAHE-iX-A-l. 

COMPARE-VK* 

IF  MK-A  Greater  than  wk-b  go  to  comparc«wk-a-i* 

GO  TO  TrPE-3* 

£ AOf  V A V 1 

IF  TtPE-lN*EOUAL  111  GO  TO  TyPE-1-PROC. 
COMPARE-TYPL-3* 

IF  tVpE-IN  equal  13;  -GO  TO  TTPE-3-1* 

IT"  TYPE-IN  greater  THAN  131  GO  TO  tVPE-4-l. 

GO  TO  REAO-IN* 

TYPE-l-PROC. 

ADO  1 10  REC-l-CNT* 

IF  FH-IN  LESS  THAN  2ERO  GO  TO  TYPE-l-PROC-A. 

AOO  FH-IN  TO  FH-CNT. 

AOO  S0HT1E5-IN  TO  SORTIES-CNT. 

AOO  LANoiNGS-IN  TO  lANOINGS-CNT* 

MOVL  FH-IN  TO  FH-HO.O. 

Go  10  type-i-proc-b. 

TYPE-1-PROC-A, 

MOVL  2EH0S  TO  FH-H0«0. 

TYPE-l-PROC-B, 

MOVL  FH-CNT  TO  FM-SUM-HOLO. 

MOVE  SOKTIES-CNT  TO  SORTIES-SUM-HOLO. 

MOVL  LANOiNGS-CNT  TO  LANOINGS-SUH-HOLO. 

GO  to  RLAO-lN. 

TYPE-3-I* 

MOVL  ZLK0$  to  FH-HO..O. 


C96970 

090970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

090970 

C96970 

C96970 

C96970 

C96970 

096970 

090970 

C96970 

C90970 

090970 

C90970 

C90970 

C96970 

C96970 

C90970 

C90970 

C90970 

C96970 

C90970 

C90970 

C90970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C90970 

C90970 

C90970 

C90970 

C90970 

C96970 

C96970 

C90970 

C9d970 

C9B970 

C90970 

C96970 

C90970 

C96970 

C90970 

C96970 

C96970 

C90970 

C90970 

C96970 

L90970 

C96970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C96970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 
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bl320 

MOVt  IN- TEST  TO  REC  •TYPE-3, 

C98970 

51330 

MOVE  KEC-l-HOLD  TO  *<EC-3-MOLO. 

C98970 

51340 

tiRlTE  OUT-REC  FROM  KEC-TYPC-3. 

C98970 

51350 

ADD  1 TO  HEC-3-CNT, 

C98970 

51355 

ADD  1 TO  RECORDS-PA'.S. 

C98970 

51360 

IF  wuc-i-iN  equal  :o:  go  to  sg-outpot. 

C98970 

51370 

GO  TO  nbG-OUTPUI-3. 

C98970 

52U00 

TYPt-<t-l. 

C98970 

52U10 

IF  type-in  greater  than  tut  GO  TO  TYPE-9-1, 

C98970 

52020 

MOVE  ZEriOS  TO  FH-HOLO, 

C98970 

52030 

MOVE  IN-TEST  TO  REC-  TYPE-4, 

C98970 

52040 

MOVE  HEL-l-HOLD  TO  '<EC-4-HOLO, 

C98970 

52050 

GRITE  OUT-REC  from  REC-TYPE-4, 

C98970 

52060 

ADD  1 TO  REC-4-CNT, 

098970 

52065 

ADD  1 TO  RECORDb-PA'.S, 

C98970 

52070 

GO  TO  NbG-OUTPUT-4, 

C98970 

52100 

TYPE -9-1. 

C98970 

52110 

IF  TYPE-IN  equal  :9.  GO  TO  RECOXO-KEEP, 

C98970 

52120 

GO  TO  READ-IN. 

C90970 

53000 

TYPt-3. 

C98970 

53010 

IF  TYPE-lN  equal  :3i  60  TO  TYPE-3-*. 

C98970 

53020 

IF  TYPE-IN  GREATER  .HAN  tit  60  TO  TYPE-*, 

C98970 

53U30 

GO  TO  REAU-IN. 

C98970 

53100 

TYPE-3-A. 

C98970 

53110 

MOVE  IN-TEST  TO  REC-TyPE-3, 

C98970 

53120 

MOVE  REC-l-HOLO  TO  ( EC-3-HOLO, 

C98970 

53130 

grite  out-rec  from  pec-type-3, 

C98970 

53140 

ADD  1 TO  REC-3-CNT. 

C98970 

53145 

ADD  1 TO  RECORDS-PAbS, 

C98970 

53150 

IF  GUC-l-lN  EOUAL  I 'I  00  TO  SO-OOTPUT, 

C98970 

53160 

GO  |0  NiiO-OUTPUT-3. 

C98970 

53400 

TYPE-4. 

C98970 

53410 

IF  TYPE-IN  EOUAL  14.  60  TO  TYPE-*-*, 

C98970 

53420 

GO  TO  TrPE-9. 

C98970 

53500 

TYPE-4-A. 

C98970 

53510 

MOVE  IN-TEST  TO  REC-TYPE-4, 

C98970 

53520 

MOVE  REC-l-HOLO  TO  hEC-4-HOUO, 

C98970 

53530 

grite  out-rec  from  fec-type-4. 

C98970 

53540 

ADD  1 TO  REC-4-CNT, 

C98970 

53545 

ADD  1 To  RECORDS-PASS, 

C98970 

53550 

GO  TO  NbG-OUTPUT-4 . 

C98970 

53900 

TYPE-9, 

C98970 

53910 

IF  type-in  EOUAL  i9l  GO  TO  RECO*D-KEEP, 

C98970 

53920 

GO  TO  REAO-IN. 

C98970 

54000 

SG-OUTPUT, 

C98970 

54010 

write  bG-REC  From  (EC-TYPE-3, 

C98970 

54020 

ADD  1 To  S6-CNT  SO— RCNT, 

C90970 

54U50 

GO  TO  REAO-IN, 

C98970 

54100 

NS6-0UTPUT-3. 

C90970 

54110 

grite  tISG-REC  FROM  (EC-TYPE-3, 

C98970 

54120 

ADO  1 TO  nsg-cnt  NSG-RCNT, 

C98970 

54150 

GO  to  read-in. 

C98970 

54200 

NSG-OUTPUT-4. 

C98970 

54210 

grite  NbG-REC  FROM  PEC-TYPE-*, 

098970 

54220 

ADD  1 TO  NSG-CNT  NSG-RCNT, 

C98970 

54250 

GO  to  READ-IN. 

C98970 

55UOO 

record-keep. 

090970 

55U60 

HOVE  S>l(-TOT-FtLNK  TO  SN-TOTAL, 

098970 

55U65 

subtract  1 FROM  RECOROS-READ. 

098970 

55U70 

HOVE  RECORDS-READ  Tt  RECOROS-INPUT, 

098970 

55060 

MOVE  RECORDS-PAbS  TC  REC-3-4-OUT, 

098970 

55085 

SUttTRACT  2 FROM  SN-TOT-CNT, 

090970 

55067 

MOVE  SN-TOT-CNT  TO  SN-OUT, 

098970 

55100 

MOVE  SG-RCNT  TO  SG-GTOT. 

098970 

55110 

MOVE  NSg-RCNT  to  NSG-GTOT, 

098970 

55120 

MOVE  Rl-G-CNT  TO  Rl-G-TOT. 

098970 

55130 

MOVE  R3-G-CNT  TO  R3-G-TOT, 

098970 

55140 

MOVE  R4-6-CNT  TO  T4-G-T0T. 

098970 

55290 

MOVt  rcu-totals  to  SN-TOTAl, 

098970 

55300 

WRITE  SN-COUNT  FROM  SN-TOTAL. 

098970 

55310 

ADO  2 TO  SN-TOT-CNT. 

098970 

55400 

GO  TO  block-check. 

098970 

62000 

BLOCK-CHECK. 

098970 

62010 

COMPUTE  KOUNT  > RECORDS-PASS  - CC RECORDS-PASS  / 

*01*  *01. 

098970 

62040 

LOOP3. 

098970 

62050 

WRIIE  OUT-REC  FROM  NINE, 

098970 

62060 

ADD  1 TO  KOUNT. 

098970 

62070 

IF  kOUNT  is  less  THA.t  40  60  TO  L00P3. 

098970 

62100 

BLOCK-CMFtK-2. 

098970 

62115 

COMPUTE  KNT  > SN-TOT-CNT  - ttSN-TOT-CNT  / |5J 

• tsi. 

098970 

62130 

LOOP* . 

098970 

62140 

write  Sf.-COUNT  FROM  NINE, 

098970 

62150 

ADD  1 To  KNT. 

098970 

62160 

IF  KNT  IS  LESS  THAN  25  60  TO  LOOP*. 

098970 

62200 

BLOCK-CkECK-3. 

098970 

62210 

COMPUTE  SGCNT  > 'G-RCNT  - tCSO-RCNT  / *0 J • 

*0  5. 

098970 

62220 

LOOPS. 

098970 

62230  write  SG-RLC  EKOM  NINE. 

b22«0  ADO  1 TU  SGCNT. 

62250  IF  SGONT  IS  LESS  ’HAN  40  60  TO  LOOPS. 

62300  BLOCK-CkELK-4. 

62310  COMPUTE  NSGCNT  > Ni6-RCNT  - CINS6-RCNT  / 403  * AO J. 

62320  L00P6. 

62330  WRITE  NSG-REC  FROM  NINE. 

62340  ADO  1 10  NSGCNT. 

62350  IF  NSGCNT  IS  LESS  iHAN  40  GO  TO  L00P6. 

64U00  close-files. 

64U10  close  infill  with  lock. 

64020  close  outbank-file  with  lock. 

64030  close  rco-kp-fil«.  with  lock. 

64040  close  SG-FILE  NS^-FILE  WITH  LOCK. 

64110  display  : BANK  IN  I RECOROS-REAO  UPON  CONSOLE. 

64120  DISPLAY  : BANK  OUT  : RECOROS-PASS  UPON  CONSOLE. 

64140  DISPLAY  : EOJ  C9847  . UPON  CONSOLE. 


64150 

/• 

//CH6.TFGIN 
/•  PLACE 

//TPR.TU12 
//TPR.TU14 
//TPR.TU22 
//TPR.TU24 
//TPR.TPRIN 
T/P  TU25 
T/P  TU24 
T/P  TU22 
T/P  TUIH 
T/P  TU12 
/• 


GOBACK. 

PLACE  COBOL  SOURCE  BEFORE  THIS  CARO 
DU  w.SPACOCCTLiCl.l)] 

tfg  data  before  this  card 


00  01SP3I0L0.KEEP J«V0L>SER>*F1,UN1T>T*F1 
DO  0ISP>I0L0.KrEP].V0L>SER>*F3.UNIT>T*F3 
OU  OISP>t OLD. KEEP J.V0L>SER>*F5.UNIT>T*F5 
DO  OISP>I OLD# KEEP J«V0L>SER>*F7.UN1T>T*FT 
OU  w.SPACESITR)  .Cl.!]] 

10100702070 
10400702070 
10000702070 
10400702070 
*0000502050 
place  T/P  CONTROL  CAROS  BEFORE  THIS  CARD 


6.  6.  2 REFORMATTED  SUPPORT  GENERAL  WUC  SORT 


C90970 
C90970 
C90970 
C9B970 
C9B970 
C9B970 
C9B970 
C98970 
C98970 
C 90970 
C9S970 
C98970 
C9B970 
C98970 
C9B970 
C9B970 
C9B970 
C9B970 


T12 

T22 

T24 


01.:  G.  WANu.  *.  >PRrY>02.TTPRUN>HOLO  SORT  S6  X1310 
P9622N.W7199. ;1ME>03.ACCT>03532300T  22/12  SORT 

OU  0ISP>t.KSEPl»UNIT>tAWF5»2»0EFER].  CT22/23  1 

OSIOaE.OORTROB.  CT22  2 

V0L>SER>I*F5.A*F5.B*F5.CwF5»OwFS»E«F5.F«F5»G*F5.HwF5»  CT22  3 

I*F3«J*F5.K»FS«L*F5»M*F5»N*F5,0«F5.P*F5.0*F5,RWF5»S*F5 J.CT22  4 

OCH>ILRCCL>UP70<BLKSI2E>2AOO].LAREL>1 .NSL>BETPO>001) 

00  UISPM  .pass:, UNII>tA*F1.2.0£FER].DSN>*A. 9097418*  CT12/13  1 

V0L>SEP>I*F1,A4F1,B*F1,C*F1,0*F1.E4F1,F*F1.G«F1.H4F1.  CT12  2 

I*F1.JWF1.K*F1,L*F1.m«fi,n«F1,0«F1.P«F1.0«Fi,R*F1.S4F1 J.CT12  3 

OCei>CLRECL>U070<BLKSI2E>28001 
OU  •.OCB>BLKSI2C>aOAO.SPACE>ITKK.C l.I J1 

FlELOS>l006.0oe>CH.A, J14<003.CH.A.017.00S.CH.A.  c 

049.ooi.cn.a;.si2C>eo2ooooo 
MOOS  Elsx  C15.  UOt).  SORTL  IB,  Nl.ElSSl  £18.024. SORTLIB.N] 

/* 

C96u3N,TIME>OJ.ACCT>03532S007  STOALONE  T P BIISO 
OU  OISPX  .KrEP},UNIT>tAWF1.2,0EFER].DSN>4A. 9097410.  CT12/13  1 

V0L>SER>I4F1.AWF1,B4F1. IwFl.OwFl.EwFl.FtFl.etFl.HtFl.  CT12  2 

I*Fl.J*Fl.KWF..L*Fl.M«Fl.NwFl,0WFl.P*Fl,e*Fl.R*Fl.S4Fl]  T12  3 

OD  •.SPACEl'.TRK.Il.l]] 

11000702070 


//T9897L  JOB 
//C9897L  EXEC 
//CHG.50HI1N 
// 

// 

// 

// 

//CHG.SOHTOUT 

// 

// 

// 

//CHG.SYSlN 
SORT 


//C989TL  EXEC 

//CH0.TU12 

// 

// 

//CHG.TPRIN 
T/P  TU12 


/• 


PLACE  T/P  CONTROL  CAROS  BEFORE  THIS  CARO 


6.  6.  3 REFORMATTED  NON-SUPPORT  GENERAL  WUC  SORT 


//T9897M  JOB 
//C9897M  EXEC 
//CH6.SORTIN 
// 

// 

// 

// 

//chg.sortout 

// 

// 

// 

//CHO.SYSIN 
SORT 


01,:  G.  wang,  :,prty>o2,ttphun>holo  sort  nsg  xi3io 

P9b22N.W>199.' IME>04,ACCT>035323007  22/12  SORT 

00  UISPXI  .KFEP],UN1TXAwF5.2.0EFER  J.  CT22/23  I 

OSU>*E. 9897409,  CT22  2 

V0L>SF.R>t«Fb,^+F5,B«F5,C«F5,0«F5,E4F5,F*F5.6*F5,M«F5,  CT22  3 

I'.F5.J4F5.K*F'i.L*F5.H*F5.NWFS,0*F5.P*F5.e*F5,RtF5.5*F51.CT22  4 

OCH>lLRCCL>0070.BLKSI2C>2800].LAnELX  .NSL.RETPDXOOz: 

DO  DISP>I  .PASS], UNITXAWFI. 2, DEFER!. OSN>*A. 9897419.  CT18/13  1 


V0L>SER>I*F1. \*F1,R*F1,C*F1,0WF1.C4F1.F*F1.0*F1.H*F1.  CT18 
IwFl,JwFl.K'.Fl.L*Fl.MwFl.N4F1.04Fl.P*Fl.e*Fl,RWFl.S4Fl],CT12 
PCM>CLRECL>U070.RLKSI2E>2800] 

OU  • . DC  B >BLa  S I /E  >0  080 . SPACE  >C  TRK , 1 1 , 1 ] ] 

FlEL0SX006,008.CH.A,  '14.003.CH.A,ol7,009.CH.A,  C 

049.001.cn. A ]-SI2E>E070000o 
MOOS  E15XEIS.00B.SONTLIB,N}.C18XCI8.024,S0HTLIB.N] 

/• 

//C9897M  EXEC  C90U3N,T1ME>0: .ACCT3039323007  STOALONE  T F BlINSO 

//CHO.TU12  00  OISPX  .KEEP1.UN1THA*F1,2,0EFCRJ.DSN>4A, 9897419. 

//  V0L>SERX*Fl,A»Fl,B4Fl,C*Fl,0*Fl,t»Fl,F»F1.0*Fl,H4Fl, 

//  1TF1,J4F1,KWF1,LWF1,N4F1,N4FI,04F1,P4F1.04F1,R4F1,S*F1I 

//CHO.TPRIN  DO  w.SPACEXTRK.tl.l]] 

T/P  TU12  80900702070001001001  0 

T/P  TU120000Rll007020700010ul001  0 

/•  PLACE  T/P  CONTROL  C .ROS  BEFORE  THIS  CARO 


CT12/13  1 
CT12  I 
TIS  3 


6.  7 PROGRAMS  FOR  FREQUENCY  ANALYSES 

6.  7. 1 TITLE  FORMATTER  AND  FIVE-DIGIT  WUC  ANALYSIS 


//C9«9T0  JOB  01>:  6.  IiPRTT>02>TTPIIUN>NOt.O 

//C9B9T0  EXEC  PV6b5C«TIME>02>*CCT>03SS2300T 

//CM.TU12  DO  0ISP>C>P«SS1iUNIT>C*«F1<2>0CFCH].DSN>*A,M97«16> 

//  V0L>Seil>C*ri,A*Fl,B*Fi,C*FitD*Fl,£»Pl,F*Fi>6*FltH*^Xt 

//  I*Fl>J*Fl>K*Fl>L*Ft>M»Ft<NAFl>0*Fl>P*Fl<OtFl,R«FltS*Fl) 

//CH6.TU19  Du  OISP>C>P*SSl.UNlT>CT«F3>l<OCFER]<DSN>*C.9a«7<t4tO« 

//  VOLXStllM  *FA>«*F3>d*F3>C*F3<0«F3.E*F},F«FS>6*F3>H*F3> 

//  I«f 3iJ*F3>K*F3>L«F3iM*F3>M«F3.0*F3>P*F3<a*F3>RtF3>S7F33 

//CHG.IU22  DO  OlSPXf  •P«SS]>UNIT>CA*Fa<2>0EFEHl.DSN>*E.9B97il91t 

//  VUL>SER>C  «FaiA*FSiH*FB>C*F5>0*Fa>E*FS.F*FB>6*F5>HAFbt 

//  I«F3>J»FS>X«FaiL*FbiM«Fb<N*FS<0*FS>P*FB<0*Fb>R*FStS*F5] 

//CHC.TU24  DO  UIbP>C  •PASSI>UI4<T>CT«F7>I<UEFEN]<DbN>*u.9a97«A2> 

//  VULXbtRX  *Fr,**F7td*F7tC*F7tD*F7,£tF7,f*F7>lt*F7,M*F7t 

1 1 I*F/>J*F7«A*F7iL*F7*P«F7»N«F7.0»FT.P*F7»0»F7.R«F7»S*F7  J 

//tH<i.(U2b  OJ  OISPX  •PASS]tUI<I1>C7»Fd<l>ULFEH3.0SN>«H.9R97llb3> 

//  V0L>SLR>C  *Fdt  A«Fattl*Fll>C«Fa>0*F(l,E*FB<F«FA>t>«FB>H«F«t 

//  l*Foi j»FatA»FatL*Fa>H*Fa«N«Fe>o«Fa>P*FB>0«Fa>H«Fa>s*Fa] 

//CHO. INPUT  OJ  tibPACbXCYLtl  til  ]) 

UOuOO  CUMjInE  compile  6.  dANC. 

OATE-aRlTTE...  lb  APM  72. 

remarks. 

MaIhTlNANCL  study  phouram  1A. 

FHEOuENLY  analysis. 

FHEUUENCY  of  dOHK  UNIT  CODE  REPAIH  ACTION. 

CS  DIGIT  LEVEL] 

COMPUTES  FRtOOENCY  OF  SPECIFIC  SG-MUC . 

FORMATS  FREOUENCIES  FOR  TITLE. 

COMPUIES  FHtOUENCY  OF  SPECIFIC  WDC . 

THIS  repeated  FOR  EACH  NON-SG-«UC  AND  HMC. 

INPUT  SORT  SEOUCNCE 

bUCi  DMC.  SEMIAL-NO.  aECK, 
environment  DIVISION. 

configuration  section. 

SOuHCE'COmPoTER.  Ibh-36U. 

OUJcCT-COmPuTlR.  It>M.3faO. 

INPUT-OuTPOI  section, 
file-control. 

SELtCI  IN-FILE-ue 

reserve  I alternate  area, 
select  in-file- ISC 

Reserve  i Alternate  area. 
seleCi  uut-jata 

reSlRve  1 Alternate  area, 
seleci  lut-titlls 

reSlRve  1 alternate  area, 
select  out-prini-ni 

area. 


UIULO 

UlUSO 

UluGO 

01070 

UloBO 

01090 

UllOU 

OHIO 

01120 

01130 

UllLO 

OllbO 

02000 

02010 

02020 

U2030 

02100 

02110 

02120 

02130 

021<t0 

021S0 
.021  GO 
02170 
021B0 
02190 
02200 
02210 
02220 
02230 
lOoOO 
10010 
10100 
10130 
lOlOO 
lOlSO 
lOlGO 
10200 
1021O 
11300 
11320 
11330 
113*0 
113S0 
113G0 
11*00 
11*10 
12100 
12120 
12130 
121*0 
121S0 
121G0 
121B0 
13100 
13120 
13130 
131*0 
131S0 
131G0 
15170 

i«ino 


assign  to  UT-S-TD12 
ASSIGN  TO  Da-S-DT01 
ASSIGN  TO  UT-S-TD22 
ASSIGN  TO  UT-b-TDl* 
ASSIGN  TO  UT-S-TU2* 


ASSIGN  TO  UT-S-Tl'25 


CHARACTERS 


Reserve  1 alternate 

SELLCT  uUT-PRINT-ISC 

reserve  1 alternate  area, 

DATA  DIVISION. 

FILE  SECTlOx. 

FU  IN-FlLE'-Db 

ulolk  contains  *0  Records 
RECuHU  contains  to 
labll  Records  ahe  omitted 
oatm  records  are  in-rcc-d-b. 

01  in-hel-u-u  sync. 

02  filler 
FD  IN-FIlE-IsC 

RECORDING  MODE  IS  F 
BLOCK  contains  20  RECORDS 
RECORD  contains  ao 
label  records  Ate  standard 
data  records  afe  in-rec-isc. 

01  in-rec-isc  sync. 

02  filler 

FD  OUT-DATA 

recording  mode  is  f 
BLOCK  contains  23  RECORDS 
RECORD  contains  130 
lapel  records  *TE  omitted 
data  records  are  tape-file, 

01  tape-file  sync 
FD  OUT-TITlEs 

RECORDING  MODE  IS  F 
BLOCK  CONTAINS  23  RECORDS 
RECORD  CONTAINS  130 

lapel  records  Ate  omitted 
DATA  RELOROS  are  TAPE-FILE-TI. 

01  TAPl-FILE-TI  sync  picture  X(130J, 

FD  OUT-PRINT-NI 


PICTURE  XC70J, 


CHARACTERS 


PICTURE  XCBOI. 


CHARACTERS 


PICTURE  XC1301. 


characters 


CT12/13  X 
CT12  2 
T12  3 

CTl*  1 
CTl*  2 
Tl*  3 
CT22/23  1 
CT22  2 
T22  3 

CT2*  1 
CT2*  2 
T2*  3 

CT2b  . I 
CT2S  2 
T2b  3 
1**0  CDS 
C9B970 
C9B970 
C9B970 
C9B970 
C9B970 
C9B970 
C9B970 
C9B970 
C9a970 
C9a9T0 
C9a970 
C9a970 
098970 
-C9B970 
C98970 
C98970 
098970 
098970 
C9B970 
C9B970 
098970 
C9B970 
C9B970 
C9B970 
C98970 
C9B970 
C9B970 
090970 
C 90970 
C9B970 
C9B970 
C9B970 
098970 
C9B970 
C98970 
C9B970 
C9B970 
C98970 
C9B970 
C98970 
C9B970 


C9S970 
C9B970 
C9B970 
C9B970 
C98970 
C98970 
C9B970 
C98970 
C9B970 
C98970 
C98970 
C98970 
C 98970 
098970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 


6-120 


14120 

RECORUII.6  mode  is  r 

I41J0 

BLOCH  contains  is  records 

C98970 

14140 

RECORD  CONTAINS  130 

CHARACTERS 

C98970 

14150 

LAPLL  RtCOROS  AAE  OMITTED 

C98970 

14lb0 

DATA  HLCOROb  AF*  NI'DATA. 

C98970 

14170 

01 

NI-UATA  SYNC 

PICTURE 

XtI301. 

C98970 

IblOO 

FU 

OUT-PHlUT-ISC 

C9S970 

15120 

recoRuinc  mode  is  f 

C9S970 

15150 

BLOCK  CONTAINS  15  RECORDS 

C9S970 

1514U 

RECoRU  CONTAINS  130 

chapactcrs 

C98970 

15150 

LARLL  RLCORUS  Af<E  omitted 

C98970 

15160 

DATA  RECORDS  ARi  ISC-DATA. 

C9S970 

15170 

01 

ISC-DATA  SYNC 

PICTURE 

X(130]. 

C98970 

50U00 

WOHKING-STOkAgC  section* 

C9S970 

50U10 

77 

1SCH90NAL  SYNC 

PICTURE 

X. 

C9S970 

50020 

77 

teOC-TtMP  SYNC 

PICTURE 

X. 

C9a970 

50040 

77 

WEEK-TEMP  SYNC 

PICTURE 

999. 

C98970 

50U50 

77 

KNT  SYNC  COKPUl ATIONAL 

PICTURE 

S999. 

C98970 

50060 

77 

CUR-SN 

PICTURE 

XCBl  valuc  space. 

C98970 

50070 

77 

P*WlEK 

PICTURE 

S999  computational. 

C98970 

50080 

77 

p-flt-h«s 

PICTURE 

S9C6]  COMPUTATIONAL, 

C98970 

50100 

77 

N0-6UC  SYNC 

PICTURE 

9999  value  2ER0, 

C9S970 

50170 

77 

CNT  sync  COMPUl ATIONAL 

PICTURE 

S999, 

C9S970 

50400 

77 

ISC-TtMp  SYNC 

PICTURE 

xcsJ  value  space. 

C9S970 

50410 

77 

PPEv-TE:.TED-SN  SYNC 

PICTURE 

XCSJ  VALUE  SPACE, 

C9S970 

50420 

77 

ISC-FlAO  sync 

PICTURE 

X value  space. 

C9S970 

504  50 

77 

min-isc-week  sync  computational  picture  sw  value  <m». 

C98970 

50500 

77 

TEMP-»UC  sync 

PICTURE 

XCSJ. 

C9S970 

50510 

77 

temr-col-no  sync 

PICTURE 

S99  computational. 

C9S970 

50520 

77 

NO-»DC-COLS  COHRUTATIONAL 

PICTURE 

S999  SYNC  VALUE  <tl. 

C98970 

50550 

77 

8F  computational 

PICTURE 

S999  SYNC  value  <23. 

C9B970 

50540 

77 

ONE  sync 

PICTURE 

X VALUE  III. 

C9S970 

50550 

77 

TWO  sync 

PICTURE 

X VALUE  121, 

C9B970 

5U560 

77 

pos-wuc  computational 

PICTURE 

S999. 

C9B970 

50570 

77 

isc-title-flag  sync 

PICTURE 

X. 

C9S970 

50580 

77 

NI-rlTLt-FLAS  sync 

picture 

X. 

C9S970 

505«»0 

77 

Nl-LlNt-FLA6  SYNC 

picture 

X. 

C9S970 

50o00 

77 

ISC-LINt-FLAS  SYNC 

picture 

X. 

C9B970 

50O10 

77 

PAOt-NUMflER-lSC 

picture 

S99  SYNC  VALUC  2ER0, 

C9S970 

50O15 

77 

paol-nunber-ni 

picture 

S99  SYNC  valuc  2ERO, 

C9fl970 

50620 

77 

NO-hEC-RRINT-ISC 

picture 

9t7J  value  zero. 

C9aO70 

5065U 

77 

NO-RtL-PRINT-N* 

picture 

9t7J  value  zero. 

C9fl970 

50640 

77 

NO-REC-tApE 

picture 

9C7J  VALUE  ZERO, 

C98970 

50650 

77 

NO-REt-TApE-Tl 

picture 

9CT1  value  ZERO, 

C98970 

50660 

77 

LINt-CNf-ISC  CvMPUTATIONAL 

picture 

5999  SYNC. 

C98970 

50670 

77 

LINL-LNT-NI  computational 

picture 

S999  SYNC, 

C98970 

50680 

77 

LINL-PAoE  computational 

picture 

S999  value  <60  SYNC. 

C9e970 

50682 

77 

sum-inul*  computational 

picture 

S999  VALUE  ZERO  SYNC. 

C98970 

50684 

77 

TEMR-INOE*  COM) UTATIONAL 

picture 

S999  VALUE  ZERO  SYNC. 

C98970 

50666 

77 

NUMbEM-SGwuC  CCMPUTATIONAL 

picture 

S999  value  zero  SYNC, 

C98970 

50688 

77 

rwo-DiGir-coL  computational 

picture 

S999  value  zero  SYNC. 

C98970 

50700 

01 

WDC-FHLo-LINE-KPT  sync. 

C98970 

50710 

02  filler 

PICTURE 

XI18J  VALUE 

C90970 

50720 

:j  mhc  frequency  i* 

C98970 

50750 

02  WUL-FREO-RPT  occurs  21 

times 

C98970 

5U740 

PICTURE 

zzzzz* 

C98970 

50750 

02  TOIAL-WOC-FREO-RPT 

picture 

ZC6J9 

C98970 

50760 

02  FILLER 

PICTURE 

X VALUE  ul« 

C 98970 

51010 

01 

NO- I sc  SYNC. 

C98970 

51020 

02  filler 

PICTURE 

XX* 

C98970 

51050 

02  NO-ISC-AC 

PICTURE 

S999* 

C 98970 

51040 

02  FILLER 

PICTURE 

Xt75  3* 

C98970 

51050 

01 

ISC-A-C  SYNC. 

C98970 

51060 

02  filler 

PICTURE 

XX* 

C98970 

51U70 

02  ISC-TN 

PICTURE 

x(0  J* 

C98970 

51080 

02  filler 

PICTURE 

XX* 

C96970 

51090 

02  ISC-WK 

PICTURE 

999. 

C98970 

51100 

02  filler 

PICTURE 

XC653* 

C98970 

51200 

01 

filler  sync. 

C98970 

5120b 

02  filler  occurs  36  TIMES. 

C98970 

51210 

03  ISC-AC  TN 

PICTURE 

xceJ* 

C98970 

51220 

03  -ISC-AC-WK  COMPUTATIONAL  PICTURE  S999, 

C98970 

51500 

01 

INPUT-Ud  SYNC. 

C98970 

51510 

02  filler 

PICTURE 

XC53* 

C98970 

51520 

02  SLRIAl-NO 

PICTURE 

XC83. 

C98970 

51550 

02  week 

PICTURE 

999* 

C9B970 

51540 

02  wuc 

PICTURE 

XC53* 

C98970 

51550 

02  filler  redefines  wuc. 

C98970 

51560 

03  WUC-2 

PICTURE 

XX* 

C98970 

51570 

03  filler 

picture 

XXX* 

C98970 

51580 

02  WUC 

PICTURE 

X* 

C98970 

51590 

02  HMC 

PICTURE 

XXX* 

C98970 

51400 

02  MA 

PICTURE 

999. 

C98970 

51410 

02  filler 

PICTURE 

XCZ0  3* 

C98970 

51420 

02  lUENT 

PICTURE 

X* 

C98970 

51450 

02  filler 

picture 

X(43* 

C98970 

51452 

02  FlT-HRS 

PICTURE 

S9C6  3* 

098970 

il4iH 

02  FILLER 

PICTURE 

At  111. 

C96970 

52000 

01 

BEPO»T-lO  STMC. 

C96970 

i2U10 

02 

filler 

PtCTURC 

At  SO  I value 

€96970 

i2U20 

l«9B47e60  TFT919-02  l«2-a  1 1/2  I, 

C96970 

i2UiO 

02 

filler 

PICTURE 

At  SOI  value  space. 

C96970 

32040 

02 

FILLER 

PICTURE 

At  101  VALUE 

C96970 

32U50 

1 

«t. 

C96970 

40U00 

01 

NCtI 

-PAGE  SYNC. 

C96970 

40U10 

02 

filler 

PICTURE 

A VALUE  ill. 

€98970 

40U20 

02 

filler 

PICTURE 

At  120]  VALUE  SPACE. 

€96970 

40030 

02 

filler 

PICT'JHE 

AtGl  value  t PAGEI. 

€96970 

40U40 

02 

PAGE -NO 

PICTURE 

24. 

€96970 

40US0 

02 

filler 

PICTURE 

A VALUE  1*1. 

€96970 

40060 

01 

title-line  STNw. 

€96970 

40U70 

02 

filler 

PICTURE 

AtlOl  VALUE  IS  MUC  > I. 

€96970 

40060 

02 

CUH-RUC 

PICTURE 

At  SI  VALUE  SPACE. 

€96970 

40090 

02 

filler 

PICTURE 

At  SI  value  space. 

€96970 

40100 

02 

ISC-TITLE 

PICTURE 

At  131. 

€96970 

40110 

02 

F ILLEr 

PICTURE 

At4bl  VALUE  SPACE. 

€96970 

40120 

02 

F ILLER 

PICTURE 

A VALUE  i*i. 

€96470 

40130 

ni 

MltTN-CilSC-COOe-TITLC  SYNC. 

€98970 

40140 

05 

fillef 

PICTURE 

AtiBi  value 

€96970 

40  ISO 

1 WHEN  UISC.  cooe 

€96970 

40160 

05 

DUC-rirLC-OArA 

PICTURE 

AtSJ  OCCUBS  21  TINES. 

€96070 

40170 

05 

FILLER 

PICTURE 

At71  VALUE  t *1. 

€96970 

40200 

01 

SO- 

»UC-IITLE-1  SYNC. 

€96970 

40210 

05 

filler 

PICTURE 

At  IB]  value  space. 

€96970 

40220 

Ob 

SO-.UC-TlTwE-lA 

PICTURE 

AC  BO]. 

€96970 

40230 

Ob 

SO-«UC-TIT -E-ie 

PICTURE 

At2S]. 

€96970 

40240 

05 

filler 

PICTURE 

ACT]  VALUE  1 U N«t. 

€96970 

40300 

01 

5b-«UC-TlTl.E-2  SYNC. 

€96970 

40310 

05 

filler 

PICTURE 

At  IB]  VALUE 

€96970 

40315 

: SUPPORT 

t • 

€96970 

40320 

05 

Sb-aUC-TlTLE-2A 

PICTURE 

At  BO]. 

€96970 

40330 

Ob 

Su-»UC-TlTLE-2e 

picture 

At2S]. 

€96970 

4033b 

Ob 

filler 

PICTURE 

ACT]  VALUE  I N AAt. 

€96970 

40350 

01 

SO-.UC-TITLE-J  SYNC. 

€96970 

40360 

05 

FILLER 

PICTURE 

At  IB]  VALUE 

€96970 

40365 

: general 

!« 

€96970 

40370 

Ob 

Sb-»UC-T1T'.E-JA 

PICTURE 

AC  BO  ]. 

€96970 

40300 

05 

SG-«UC-TITLE-JB 

PICTURE 

AC2S1. 

€96970 

40390 

05 

filler 

PICTURE 

ACT]  value  I S 1*1. 

€98970 

40410 

01 

so- 

«uc-riTLE-H  sync. 

€96970 

40420 

05 

filler 

PICTURE 

AtIBl  VALUE 

€96970 

4042b 

i R.U.C. 

€96970 

40430 

Ob 

SG-aUC-TITwE-AA 

PICTURE 

AtAOl. 

€98970 

40440 

05 

SG-»UC-T1T'.E-aB 

PICTURE 

Atasi. 

€96970 

40450 

05 

filler 

PICTURE 

ACT]  VALUE  I C N*I. 

€96970 

40460 

01 

so- 

mUL-IITLE-S  sync. 

€96970 

40490 

05 

filler 

PICTURE 

AClBl  VALUE  SPACE. 

€96970 

40b00 

05 

Sb-»UC-TI*LE-5A 

PICTURE 

At  80 1. 

€96970 

40bl0 

05 

SG-AUC-TITLE-SB 

PICTURF 

At  2b]. 

€96970 

40b20 

05 

filler 

PICTURE 

ACT]  VALUE  i H T(I. 

€96970 

40620 

01 

MMC 

-frlu-line  sync. 

€96970 

40630 

02 

filler 

PICTURE 

At  121  VALUE 

€96970 

40640 

I/FREO  HMC  > I. 

€96970 

40650 

02 

CUR.HRC 

picture 

AAA. 

€96970 

40660 

02 

filler 

PICTURE 

AAX  VALUE  1 ;. 

€96970 

40670 

02 

HRC-FREO-POT 

PICTURE 

2tSl 

€96970 

40660 

OCCURS  21 

TIMES, 

€96970 

40690 

02 

HNC-FREO-TOTAL-RPT 

PICTURE 

Ztbl. 

€96970 

40700 

02 

filler 

picture 

A VALUE  I*:. 

€96970 

40030 

01 

T*eLE-SG-*IUC-V*LUES  SytK. 

€96970 

41U92 

02 

SG-ROC  OCCURS  lA  TIRES 

picture 

At  SI. 

€96970 

41093 

02 

COL-NO  OCCURS  lA  TIRES 

picture 

S44  COBPUTAIIONAL. 

€96970 

41100 

01 

FiLLE''  Sync. 

€96970 

41105 

02 

T ABLE-SG-RUC-FREO- I sc . 

€96970 

4112b 

01  SG-MUL-FREO-ISC-l 

PICTUBE 

S4t51  COBPUTAIIONAL. 

€96970 

41126 

01  SO-RUC-FREO-ISC-2 

PICIOBC 

S4tS]  COBPUTAIIONAL. 

€96970 

41127 

01  S(l-AUP-FREO-ISC-l 

PICTttHE 

S4tB]  COBPIIIAIIONAL. 

€96970 

41120 

01  SG-AUC-FREO-ISC-A 

PICTUBE 

SVtbl  COBPUTATIONAL. 

€96970 

41129 

01  SG-AUb-FREO-ISC-S 

PICTUBE 

S4t51  COBPUTAIIONAL. 

€96970 

41130 

01  SG-RUt-FREO-ISC-6 

PICTUBE 

S4tSl  COBPUTAIIONAL. 

€96970 

41131 

01  SG-WUC-FREO-ISC-7 

PICTUBE 

S4tbl  COBPUTAIIONAL. 

€96970 

41132 

0*  SG-Rur-FREO-isc-e 

PICTUBE 

S4t5]  COBPUTAIIONAL. 

€96970 

41133 

01  SG-MUC-FREe-ISC-9 

PICTUBE 

S4tSl  COBPUTAIIONAL. 

€98970 

41139 

01  SG-AUb-FREO-ISC-lO 

PICTUBE 

S4tSl  COBPUTAIIONAL. 

€96970 

41135 

01  SG-Rir-FREO-ISC-ll 

PICTUBE 

S4tSl  COBPUTAIIONAL. 

€96970 

41136 

01  Sg-«U<'-FRE0-ISC-12 

PICTUBE 

S4t51  COBPUTATIONAL. 

€96970 

41137 

03  SG-RUC-FREO-ISC-11 

PICTUBE 

S4tSl  COBPUTATIONAL. 

€96970 

41136 

01  SG-WUC-FREO-ISC-IA 

PICTUBE 

S4tSl  COBPUTATIONAL. 

€96970 

41139 

01  SG-WUP-FREO-ISC-15 

PICTUBE 

S4tSl  COBPUTATIONAL. 

€96970 

41140 

01  SG-WUC-FREO-ISC-16 

PICTUBE 

S4tSl  COBPUIATIOIIAL. 

€96970 

41141 

01  SG-WUC-FREO-ISC-17 

PICTUBE 

S4tbl  COBPUTATIONAL. 

€96970 

41142 

01  SG-WUC-FREO-ISC-18 

PICTUBE 

S4tSl  COBPUTATIONAL. 

€96970 

41143 

01  SG-»ur-FRE0-ISC-19 

PICTUBE 

SVtbl  COBPUTATIONAL. 

€96970 

41144 

01  SG-WUC-FREO-ISC-20 

PICTUBE 

SVtbl  COBPUTATIONAL. 

€96970 

6-122 


j 


Mimb 

03 

SG-KUL-FREO- ISC-21 

PICTURE 

S9Cb3  computational. 

C96970 

mmt 

02 

FILLEf  REDEFINES  TABLE -SG-WUC-FREO-ISC. 

C98970 

4im7 

03 

S0-4UC-FRE<1-ISC 

PICTURE 

S9Cb]  computational 

€98970 

mi4d 

OCCURS  21  TIMES. 

C96970 

mibo 

02 

TARLE*  S6*FRtO*Nl« 

C96970 

41170 

03 

Sg-»iU'‘-F  RtO-Nl-1 

PICTURE 

S9tb3  COMPUTATIONAL. 

€98970 

4U71 

03 

SG-WUC*FRE0*NI.2 

picture 

S9Cb3  computational. 

€98970 

41172 

03 

SG-WU\.-FRL0-NI.3 

PICTURE 

S9tb3  computational. 

€98970 

4U7J 

03 

SG-4U*-FRE0-N1-4 

PICTURE 

S9Cbl  computational. 

€96970 

4U74 

03 

SG-WUO-fRCO-NI-b 

PICTURE 

S9Cbl  computational. 

€96970 

4U7b 

03 

SG-WliC-FREQ-Nl-6 

PICTURE 

S9tS3  computational. 

€96970 

41176 

03 

SG-WU\.-FREQ-NI-7 

picture 

S9tb3  COMPUTATIONAL. 

€96970 

41177 

03 

SG-Wir-FRtQ-NI-6 

picture 

S9CbI  COMPUTATIONAL. 

C96970 

41178 

03 

SG-4UC-FREO-NI-9 

PICTURE 

S9tbl  computational. 

C98970 

41179 

03 

SG*WUL-FRLO-NI-10 

PICTURE 

S9CS3  computational. 

C96970 

41160 

03 

SG*WU(  -)-REO*NI*ll 

picture 

S9tb3  CUMPUTATIONAL, 

€98970 

41181 

03 

sg-wuo-freo-ni.12 

PICTURE 

S9Cb3  computational. 

€96970 

41102 

03 

SG-WUC-FREO-NI.13 

PICTURE 

S9Cb3  computational. 

€98970 

4116:) 

03 

SG-iiUL-FREO-NI-14 

PICTURE 

S9CSI  computational. 

C96970 

41164 

03 

SG-wUO-FRCO-Nl-lb 

PICTURE 

S9tb3  computational. 

€96970 

4116b 

03 

SG-4UC-FRE0-NI.16 

PICTURE 

S9Cbl  computational. 

€96970 

4116^ 

03 

SG-ViUC-FRCO-Nl-17 

PICTURE 

S9Cbl  computational. 

€98970 

41167 

03 

sg-4l:-frco-ni-i6 

PICTURE 

S9tS3  computational. 

€96970 

41168 

03 

SG-WUC-FRCO-NI-19 

PICTURE 

S9CS3  computational. 

C96970 

41169 

03 

SG*mUC-FREO-NI*20 

PICTURE 

SOCbl  COMPUTATIONAL. 

C98970 

41190 

03 

SG-WUC-FRCO-NI-21 

PICTURE 

S9Cbl  computational. 

€98970 

41191 

02 

FILLET  redefines  table-sg-fheo-ni . 

€96970 

41192 

03 

sg-wi/c-freo-ni 

PICTURE 

S9Cb3  computational 

€96970 

4119i 

OCCURS  21  times. 

C96970 

41200 

01 

TAPt-OUT-ISC  iYNC. 

€96970 

41210 

02 

piller 

PICTURE 

)(  VALUE  tH>. 

€98970 

41220 

02 

filler 

PICTURE 

X VALUE  space. 

C96970 

412^0 

02 

CUR- 

•wuc-i^c 

PICTURE 

XCS3. 

€98970 

41240 

02 

filler 

PICTURE 

X VALUE  space. 

€96970 

4l2b0 

02 

CUK 

•mmc-i^c 

PICTURE 

XXX. 

€96970 

41260 

02 

filler 

PICTURE 

X VALUE  SPACE. 

€96970 

41260 

02 

LISI-HPC-.SC. 

€96970 

41290 

03 

HMC-ISC-1 

PICTURE 

S9CS3. 

€96970 

41 JOO 

03 

HMC-ISC-2 

PICTURE 

S9Cbl. 

C96970 

41J10 

03 

HMC-ISC-J 

PICTURE 

S9tS3. 

€96970 

4i:)20 

03 

HMC-I jC-H 

picture 

S9tS3. 

€96970 

4UJ0 

03 

hmc-isc-s 

PICTURE 

S9tb3. 

€96970 

41 J40 

03 

HMC-ISC-6 

PICTURE 

S9Cb3, 

C96970 

4UbO 

03 

HMc-ISC-7 

PICTURE 

S9t  S 3. 

€96970 

41^60 

03 

HMC-IJC-9 

PICTURE 

S9t!»3. 

€96970 

4U70 

03 

HMC-I^C-R 

PICTURE 

S9C'->3. 

€98970 

4ueo 

03 

HMc-rc-io 

picture 

S9Cb3. 

€98970 

41 J90 

03 

HMC- 1 sc- ll 

picture 

S9tb3. 

C98970 

41400 

03 

HMC-IaC-12 

picture 

S9t  b 3. 

€96970 

41410 

03 

hmc-isc-ij 

PICTURE 

S9tb3. 

€98970 

41420 

03 

HMC-ISC-IH 

PICTURE 

S9tb3. 

€98970 

414:10 

03 

HMC- 1 sc- lb 

PICTURE 

S9tb3. 

C98970 

41440 

03 

HMC-I SC-16 

PICTURE 

S9tb3. 

€96970 

4l4b0 

03 

HMC-I SC-17 

PICTURE 

S9Cbl. 

€96970 

41460 

03 

HMC- 1 sc- 1 8 

PICTURE 

S9C  b 1. 

C98970 

41470 

03 

HMC-ISC-19 

PICTURE 

S9t  b 1. 

C98970 

41460 

03 

HMC-I SC-20 

PICTURE 

S9Cb3. 

€98970 

41490 

03 

HMC-I-.C-21 

PICTURE 

S9Cb3. 

€96970 

41491 

02 

filler  redefines  list- 

HMC- ISC. 

€96970 

41492 

03 

HMC- 1 SC  OCCURS  21 

TIMES  PICTURE  S9CS3. 

€98970 

41b00 

02 

HMC 

-fheo-ioial-isc 

PICTURE 

S9C6  3. 

€96970 

41bI0 

02 

filler 

PICTURE 

XC7  3 VALUE  11  <1. 

€98970 

41600 

01 

TAPt-UUT-NI  SYNC. 

€98970 

41610 

02 

FILLER 

PICTURE 

X VALUE  IHl. 

€96970 

41620 

02 

filler 

PICTURE 

X VALUE  SpAcE. 

€96970 

41b:)0 

02 

CUR- 

-•^UC-f'I 

PICTURE 

XtbJ. 

€96970 

41640 

02 

FILLER 

PICTUPE 

X VALUE  space. 

€98970 

4l6b0 

02 

CUR 

PICTURE 

XXX. 

€96970 

41660 

02 

filler 

PIC  turf 

X value  space. 

€96970 

41680 

02 

LlbT-HML-NI« 

€96970 

41600 

03 

mmc-ni-i 

PICTURE 

S9r  b 3. 

€96970 

41700 

03 

MMC-M-2 

PICTURE 

S9Cb3. 

€96970 

41710 

03 

HMC-ri-3 

PICTURE 

S9tb3. 

€96970 

41720 

03 

HMC-NI-4 

PICTURE 

S9tb3. 

€96970 

417J0 

03 

HMC-Ni-b 

PICTURE 

S9Cb3. 

€98970 

41740 

03 

HMC-NT-6 

PICTURE 

S9t  b 3. 

€96970 

4l7b0 

03 

HMC-MI-7 

PICTURE 

S9tb3. 

€96970 

41760 

03 

HMC-NI-8 

PICTJJRE 

S9t  b 3. 

€96970 

41770 

03 

HMC-N>9 

PICTURE 

S9tb3. 

€96970 

41780 

03 

hmc*n«-io 

PICTURE 

S9C  b 3. 

€96970 

41790 

03 

HMC-NI-Il 

PICTURE 

S9Cb3. 

€96970 

41800 

01 

HMC-Ni.I2 

picture 

S9t5  3. 

€96970 

4IdI0 

03 

HMC-^ 1-13 

PICTURE 

S9C  b 3. 

€98970 

41620 

03 

HMC-^M-14 

PICTURE 

S9t  b 3. 

€96970 

41630 

03 

HMC-NI-Ib 

PICTURE 

SVC  5 3. 

€98970 

41640 

03 

HMC-M-16 

PICTURE 

S9tb3. 

€96970 

416b0 

03 

HMC-^■I-l7 

PICTURE 

S9Cb3. 

€96970 
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4IB60 

03 

HMc-NI-IB 

PICTURE 

S9CSI. 

C98970 

4IB70 

03 

HMC-NI-19 

PrcTUHE 

S9t5J. 

C9d970 

41BB0 

03 

HMC-M-20 

PICTURE 

S9t53. 

C98970 

41B90 

03 

HMC*N1<-2I 

PICTURE 

S9t5I. 

C96970 

41B91 

02 

filleh  redefines  lISi-hmc-ni. 

C9B970 

41B92 

03 

HMC-N.  occurs  21  TIMES  PICTURE  S9tSI. 

C98970 

41900 

02 

HMC 

-FREO-'OTAL-NI 

PICTURE 

S9t6I. 

C98970 

41910 

02 

filler 

PICTURE 

XCT)  VALUE  t 2 

*t. 

C96970 

42U00 

01 

MOC 

-fheo-o*t»-ni  stnc. 

C96970 

42010 

02 

filler 

PICTURE 

xA  value  in 

1* 

C96970 

42020 

02 

CUR 

•MUC*M<-NX 

PICTURE 

XI5I. 

C96970 

42025 

02 

filler 

picture 

XI SI  VALUE  SPACE. 

C9B970 

42040 

02 

table-roc -FHEO-NI. 

C98970 

42050 

03 

wuc-r req-ni«x 

PICTURE 

S9t5I. 

C96970 

42060 

03 

MUC«FReu-NX«2 

PICTURE 

S9t5I. 

• 

C96970 

42070 

03 

W0C-FR€0«Nr*3 

PICTURE 

S9t5J. 

C96970 

420B0 

03 

WUC*f  REU*Nl<-4 

PICTURE 

S9t5l. 

C96970 

42090 

03 

WDC<-rREU-Nl-5 

PICTURE 

S9t51. 

C9B970 

42100 

03 

W0C-FREU«Nl<-6 

picture 

S9I51. 

C96970 

42110 

03 

WDC-FREw-NI-7 

PICTURE 

S9t61. 

C96970 

42120 

03 

WDC-FRe9«Nl<-B 

PICTURE 

S9t6I. 

C96970 

42130 

03 

WUC<-I  REu.N1<-9 

PICTURE 

S9t5I. 

C9B970 

42140 

03 

WOC-^REO-NT-IO 

PICTURE 

S9t53. 

C9fl970 

42150 

03 

UOC-FRCq-NI-11 

PICTURE 

S9t5I. 

C98970 

42160 

03 

W0C-»'RCQ<-N1-12 

PICTURE 

S9t5I. 

C9B970 

42170 

03 

UDC-(  Reu<-Nl-13 

PICTURE 

S9t53. 

C9B970 

421B0 

03 

W0C-FHEU-N1<-14 

PICTURE 

S9t5I. 

C9B970 

42190 

03 

WOC-FRe<l-Nl<-15 

PICTURE 

S9t5I. 

C9B970 

42200 

03 

W0C-»‘RC0-N1<-16 

PICTURE 

S9t53. 

C98970 

42210 

03 

woc-r  Heu-Ni<-i7 

PICTURE 

S9t53. 

C9B970 

42220 

03 

WOC<-FRLU<-Nl<-ie 

PICTURE 

S9t5I. 

C9B970 

42230 

03 

WOC-FREu-NI-19 

PICTURE 

S9t5I. 

C9B970 

42240 

03 

NOC-r  Reu<-Nl<-20 

PICTURE 

S9t5I. 

C9B970 

42250 

03 

uoc-rReu<-Ni<-2i 

PICTURE 

S9I53. 

C9B970 

42251 

02 

filler  redefines  table- 

UOC<-EREO-Nl« 

C9B970 

42252 

03 

RDC-FREU-NI  OCCURS 

21  TIMES 

PICTURE  S9t53, 

C9B970 

42260 

02 

TOTAL-WDC -FREU-NI 

PICTURE 

S9t6I. 

C98970 

42270 

02 

FILLER 

PICTURE 

XI73  VALUE  t 2 

«t. 

C98970 

42300 

01 

woe 

-FREU-OATA-ISC  STNC. 

C9B970 

42310 

02 

FILLER 

PICTURE 

XX  value  I« 

N 

C98970 

42320 

02 

CUH 

-RUC-  -ISC 

PICTURE 

XISI. 

C9B970 

42325 

02 

fill£;r 

PICTURE 

XI  S3  VALUE  SPACE. 

C9B970 

42340 

02 

LISI-WOC-FRta-ISC. 

C9B970 

42350 

03 

RDC-rREU-ISC-l 

PICTURE 

S9lb3. 

C9d970 

42360 

03 

BDC--REU-ISC-2 

PICTURE 

S9t5I. 

C9B970 

42370 

03 

RDC-PREu-ISC-J 

PICTURE 

S9I5I. 

C9B970 

423B0 

03 

RDC-(-REu-ISC-R  ' 

PICTURE 

S9I5  3. 

C9B970 

42390 

03 

RDC-I  REu-ISC-S 

PICTURE 

S9IbI. 

C9B970 

42400 

03 

ROC-EREU- ISC-6 

PICTURE 

S9I53. 

C9B970 

42410 

03 

ROC -FREU- ISC-7 

PICTURE 

S9tb3. 

C9B970 

42420 

03 

RrlC-^Rtu-ISC-8 

PICTURE 

S9C  S 3. 

C9B970 

42430 

03 

RI)C-I  REU-ISC-R 

PICTURE 

S9I5I. 

C9B970 

42440 

03 

RUC-FREu-ISt-IO 

PICTURE 

S9ISI. 

C98970 

42450 

03 

RDC-FREu-ISC-ll 

PICTURE 

S9I6  3, 

C9B970 

42460 

03 

RDC-f  ReU-ISC-I2 

picture 

S9I53. 

C989r0 

42470 

03 

RDC-'RE0-ISC-13 

PICTURE 

S9I6I. 

C9B970 

424B0 

03 

ROC-FREO-ISC-l» 

PICTURE 

S9t5I. 

C9B970 

42490 

03 

R0C-rR£tf-ISC-l5 

PICTURE 

59163. 

C9B970 

42500 

03 

R0C-'REU-ISC-I6 

PICTURE 

S9I53. 

C9B970 

42510 

03 

RDC-PREU-ISC-17 

PICTURE 

S9I5  3. 

C9B970 

42520 

03 

RDC-FREO-ISC-IB 

PICTURE 

S9I53. 

C9B970 

4253U 

03 

R0C-rREU-ISC-l9 

PICTURE 

S9I5I. 

C9B970 

42540 

03 

RDC-'REO-ISC-20 

picture 

S9I5I. 

C9B970 

42550 

03 

RDC-FREO-ISC-21 

PICTURE 

S9t5I. 

C96970 

42551 

02 

FILLER  RtDEFINES  LIST-wDC-FREO-ISC. 

C96970 

42552 

03 

woe-  REQ«1SC  OCCURS 

21  TIMCS  PICTURE  S9t5I. 

C98970 

42560 

02 

T 0 T AL -RD'-. -F  RE  0- 1 sc 

PICTURE 

S9I6  3. 

C96970 

42570 

02 

filler 

picture 
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C9B970 

42600 
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NXNt  SYNC. 

C 96970 

42610 

02 

FILLER 

PICTURE 

xt  so  3 value 

C96970 

42620 
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C96970 

42630 

02 

FILLER 

PICTURE 

XCS0  3 value 

C96970 

42640 
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C96970 

42650 

02 

filler 

PICTURE 
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C96970 

42660 
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C96970 

43000 

01 

rAeLt*40C*P09  STMCt 

C96970 

43260 

03 

wuc«-Msr 

picture 

X OCCURS  21  TIMES. 

C96970 

44000 
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9 

C96970 
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02 
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C96970 

44020 

1/ 

; , 

C96970 

44030 
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PICTURE 
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C96970 

44040 

02 

filler 
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C96970 

44050 

01 
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FREO-'.INe-2-ISC  STNC 

• 

C98970 

44060 
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filler 

PICTURE 
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C96970 
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I. 

C96970 

44000 
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PICTURE 

XISI  OCCURS  21 
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C96970 

44090 

02 

FILLEH 

PICTURE 

Xt  7 3 value  I 
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C96970 
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44100 

01 

SG-t»UC-FRt(J-LlNE-3-ISC  SYNC 

« 

C96970 

44110 

02 

filler 

PICTURE 

XCtSI  VALUC 

C96970 

44120 

t /Support 

• • 

C98970 

44130 

02 

SGxUC-ISC-3 

PICTURE 

xtsi  OCCURS 

21 

times. 

C96970 

44140 

02 

filler 

PICTURE 

XtTl  value 

I 

tt. 

C96970 

44150 

01 

SG-WUC-FREO- .INE-4-ISC  SYNC 

• 

C96970 

44160 

02 

FILLEK 

PICTURE 

Xtt8)  value 

C96970 

44170 

1/  general 

• • 

C96970 

44180 

02 

SG-*UC.I JC*4 

PICTURE 

XCSl  OCCURS 

21 

times. 

C96970 

44190 

02 

FILLER 

PICrURE 

XtTl  value 
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*t. 

C96970 

44200 

01 
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rul-freo-line-s-isc  sync 

• 

C96970 

44210 
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filler 

PICTURE 

XtlSl  VALUE 

C96970 

4422U 

1/  H.U. 

C. 

• • 
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44230 

02 

SG-rUC-ISC-S 

PICTURE 

XCSl  OCCURS 

21 

times. 

C96970 

44240 

02 
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PICTURE 

XtTl  value 

I 

At. 

C96970 

44250 

01 

SG-tiUt-FRE0*<.INE-6-ISC  SYNC 

• 

C96970 

44260 

02 

FILLCH 

PICTURE 

XtlSl  value 

C98970 

44270 

:s  frequency 

>. 

C96970 

44260 

02 

5G-».UC«lSC-6 

PICTURE 

XtSl  OCCURS 

21 

times. 

C96970 

44290 

02 

FILLCH 

PICTURE 

XtTl  VALUE 

t 

tt. 

C96970 

44300 

01 

SG-tiUC-FREO-MNt-l-NI  SYNC. 

C96970 

44310 

02 

FILLCH 

PICTURE 

XtlSl  value 

C96970 

44320 

J/ 

• • 

C96970 

44330 

02 

SG-nUC-M*1 

PICTURE 

xtsi  OCCURS 

21 

times. 

C96970 

44340 

02 

FILLER 

PICTURE 

XtTl  value 

5 

At. 

C96970 

44350 

01 

SG-i(UC-FRE0-LINE-2-NI  sync. 

C96970 

44360 

02 

filler 

PICTURE 

XtlSl  value 

C96970 

44370 

5/ 

s ^ 

C96970 

44360 

02 

SG-WUC-NI-2 

PICTURE 

xtsi  OCCURS 

21 

times. 

C96970 

44390 

02 

FILLER 

PICTURE 

Xt  T 1 value 

i 

At. 

C96970 

44400 

01 

sg-kuc-freo-line-j-ni  sync. 

C96970 

44410 

02 

FILLER 

PICTURE 

XtlSl  value 

C96970 

44420 

.•/SUPPORT 

• « 

C96970 

44430 

02 

SG-rUC-NI-3 

PICTURE 

xtsi  OCCURS 

21 

times. 

C96970 

44440 

02 

filler 

PICTURE 

XtTl  value 

I 

At. 

C96970 

44450 

01 

SG- 

iiUC-FREO'LINE-4-NI  sync. 

C96970 

44460 

02 

filler 

PICTURE 

XtlSl  value 

C96970 

44470 

i/  GENERAL 

♦ « 

C98970 

44460 

02 

SG-»UC-NT-4 

PICTURE 

XC5J  OCCURS 

21 

times. 

C96970 

44490 

02 

filler 

PICTURE 

)(C73  VAtUE 

• 

At. 

C96970 

44500 

01 

SG« 

rUC-FREO-LINE-S-NI  sync. 

C90970 

44510 

02 

filler 

PICTURE 

xtl6]  value 

C9e970 

44520 

■1/  ' w.u. 

9 • 

I « 

C98970 

44530  ‘ 

02 

SG-RUC-NI-5 

PICTURE 

XC5]  OCCURS 

21 

times. 

C96970 

44540 

02 

filler 

PICTURE 

XC71  value 

t 

At. 

C96970 

44550 

01 

SG« 

rUC-FREO- LINE-6-NI  sync. 

C9e970 

44560 

02 

filler 

PICTURE 

xt|6]  VALUE 

096970 

44570 

IS  Frequency 

I • 

096970 

44580 

02 

S6-WUC-M-6 

PICTURE 

XC5]  OCCURS 

21 

times. 

096970 

4459U 

02 

FILLER 

PICTURE 

XC7J  VALUE 

I 

At. 

C98970 

44600 

01 

filler  sync 

C96970 

44610 

02 

TEMH-NO 

picture 

ZC61* 

C90970 

44620 

02 

FILLER  REDEFINES  TEMP-nO. 

C96970 

44630 

03  TLMF-I 

PICTURE 

X* 

096970 

44640 

03  temp-2 

PICTURE 

X, 

C90970 

44650 

03  temp-3 

PICTURE 

X, 

C96970 

44660 

03  TEMh-4 

PICTURE 

X.  • 

C90970 

44o70 

03  TtM;-5 

PICTURE 

X, 

C96970 

44680 

03  IEMP-6 

picture 

X* 

C96970 

44700 

01 

TERP-PLACE  SYNC. 

C98970 

44710 

02 

FILLER 

PICTURE 

Xt4l  VALUE  SPACE. 

C9R970 

44720 

02 

TEMP-PL'CE-NO 

PICTURE 

X. 

C90970 

45000 

01 

Fill  ER  5YNC, 

C98970 

45UI0 

05 

WDC-INPUT. 

C96970 

45U20 

10  WDC*  title-input 

PICTURE 

xtsi. 

C98970 

45U30 

10  FILIER 

PICTURE 

XtTSl. 

C96970 

45040 

05 

FILLER  redefines  RDC-INPUT. 

C96970 

45050 

10  filler 

picture 

Xt41. 

C96970 

45U60 

10  WDC-  IN 

picture 

X. 

C96970 

45070 

10  filler 

PICTURE 

xt  TSl. 

098970 

45100 

01 

NiJMbfR-CARO  SYNC, 

C98970 

45110 

05 

NUMt  ER- ITEMS 

PICTURE 

999. 

C96970 

45120 

05 

FIL'  ER 

PICTURE 

XX. 

C98970 

45130 

05 

INPUT-SG-COOE 

PICTURE 

xtsi. 

096970 

45140 

05 

FIH.fR 

PICTURE 

XtTOl. 

096970 

45200 

01 

FIL  ER  SYNC. 

096970 

45210 

05 

SUM-WOC-COL 

PICTURE 

S999  OCCURS 

10 

times. 

C98970 

45300 

01 

TEMP-INPUT-SORUC  SYNC, 

C96970 

45310 

05 

TtMP-SG«UC-TITLE 

PICTURE 

xtasi. 

096970 

45320 

05 

FILLER 

PICTURE 

xtssl. 

C98970 

45400 

01 

TrO-DIGIT-COOE  SYNC. 

C98970 

45410 

OS 

TRO-niGlT 

PICTURE 

XK, 

C96970 

45420 

05 

filler 

PICTURE 

XKX. 

C96970 

45500 

01 

INTLRCH/NGE-COLS  SYNC, 

C96970 

45510 

05 

PR  1 4-COL 

PICTURE 

999. 

C96970 

45520 

05 

SEC -COL 

PICTURE 

999. 

C96970 

45530 

05 

Fill ER 

PICTURE 

XtT41, 

C96970 

(>-125 


45560 

01 

St»Et-bG-WUC-REC  SYNC 

45570 

05 

SREC-SG-WUC 

45560 

05 

SPEC-WEi-K-* 

45390 

05 

filler 

45600 

01 

filler  sync. 

45610 

05 

SPLL-SG-WUC-LIST 

45620 

05 

SPLC-WE..K-L1ST 

45630 

01 

NO-bPEC  SG-WUC  SYNC 

45640 

01 

SPEC-WUC  SYNC 

45650 

01 

SPEC-WEEK  SYNC 

45660 

01 

SPEC-IN. EX  SYNC 

bOUOO  PROCEDUkC  DIVISION. 
50U10  OPbN-FlLCS. 
b0020  OPFN  INPUT 

bOU30 
b0U40 
bOU45 
bOU47 
50U50 
b0U60 
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PICTURE  XCS3  OCCURS  to  TIMES*  C98970 

picture  999  OCCURS  10  TIMES*  C98970 

PICTURE  S999  COMPUTATIONAL*  C98970 

PICTURE  XC5J*  C98970 

picture  999*  C98970 

PICTURE  S999  COMPUTATIONAL*  C98970 

C98970 


C98970 

C98970 
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C98970 

C98970 
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096970 
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«N-F1LC-0R*  lN.FtLE«tSC*  OUTPUT  OUT*OATAf 
ruT-PRINT-lSC*  OUT-PRINt-Nl#  OUT*TtTLES* 

PERFORM  READ-ISC-A-C  THRU  ENO-RIAC* 

PERFORM  REAO-IN-TITLE-OATA  THRU  ENCHRITD* 

PERFORM  ReA')-SPEC-SG-WuC  THRU  ENO-RSSM* 
write  NI-CATA  FROM  REPORT-IO* 

WRITE  I5C-0ATA  FROM  REP0RT«1D* 

ADO  1 TO  N0-REC-PR1NT-Nt« 

ADD  I TO  NC «REC-PRlNT-tSC« 

MOVL  2eR0  TO  CNT« 

R5T-5G-wUCt 

ADO  1 TO  CNT* 

MOVL  iKj  5G-WUC-FReO-lSC  (CNTJ. 

MOVE  ££60  T^'  SG-WUC-FREO-Nl  CCNTl* 

IF  CNf  15  LF.S5  THAN  NO-WOC-COLS*  GO  TO  RST<»SO*Wuc* 

HOVt  1 rO  KNT« 

MOVL  5G-WUC  CKNT]  TO  TCMP-WUC* 

MOVL  COL-NC  CKNT 3 TO  TEMP-COL-NO* 

REAU-5G-WUC* 

REAU  IN-FILl-OB  INTO  INPUT-OB* 

AT  END  GO  TO  CLOSE-FILES* 

IF  MA  15  L£S5  than  zero  GO  TO  REA0.5G*WUC« 

IF  «UC-&  15  equal  to  TWO-DIGIT  PERFORM  PROC-2-OlO-WUC* 
NEXT-5G-WUC. 

IF  wUC  IS  L~5$  THAN  TEMP-WUC*  GO  TO  READ-SO-WuC* 

IF  WUC  15  equal  to  TEMP-WUC  GO  TO  PR0C-5G-WUC* 

IF  «UC  15  GmEATLR  than  1099991  00  TO  SET-TITLE-IA * 

ADO  1 ro  kn;, 

IF  KNT  is  G'^EATLR  than  14  60  TO  SCT*T1TLE-1A* 

MOVL  5G-WUC  CKNT 3 TO  TEMP-WUC* 

MOVE  COL-NO  CKNT 3 TO  TEMP-COL-NO* 

GO  TO  NtXT-JG-WUC* 

PROC-50-WuC. 

perform  Check- 15CHRONAL  thru  END-Ct* 

MOVE  ZEhO  10  bPEC-lNDEX* 

TEST-SPLC-SuWuC* 

ADO  1 TO  5PEC- index* 

IF  mUC  15  EQUAL  TO  SPEC-SG-WUC-L 1ST  CSPtC-lNOEX]  00  TO 

PROC-SPEC-SOWUC* 

iF  SPEC-INC^.X  15  LESS  THAN  NO-SPEC-SG-tfUC  00  TO 

TEST-SPEC-SOvUC* 

IF  ISCHkONAv  is  equal  to  one  add  MA  TO  SO-WUC-PREO-ISC 
CTEl-'P-C''L-N0  3» 

ELSE  ADO  MA  TO  5G-WUC-FKE0-N1  C TEMP-COL-NO 3* 

GO  TO  HLAD-SG-WUCt 
PR0C-2-UlG-»*UC, 

PERFORM  CHECK-lbCHRONAL  THRU  END-CI* 

IF  ISCHRONAL  IS  EQUAL  TO  ONE*  ADO  MA  TO  SO-WUC-f RES-ISC 
CTwO-DlGlT-COL J ELSE  ADD  MA  To  SG-WUC-FREO-NI 

CTWO-OISIT-COL3* 

SET-TlTLF-lA, 

MOVE  2ERO  TO  CNT. 

MOVL  SG-WUC-FREQ-ISC  CPR1M.COL3  TO  SO-WUC-fREO^ISC  CSEC*C0L3. 
SET-SG-wUC-lSC, 

ADD  1 TO  CNT* 

MOVE  SG-WUC-FREQ-ISC  ICNTJ  TO  TEMPO^O* 

MOVL  TL^-P-l  TO  temp-place-no. 

MOVE  rENP-P‘  ACE  TO  SG-WUC-ISC-l  CCNTJ* 

MOVE  temp-2  to  TEMP-PLACE-NO. 

MOVL  TEHP-PtACE  TO  S6-WUC-1SC-2  CCNT]. 

MOVE  TLMP-3  TO  TEMP-PLACE-NO. 

MOVL  TEMP-P’  ACE  TO  SO-WUC-lSC-3  CCNTJ. 

MOVE  temp-4  to  temp-place-no. 

MOVE  TEmP-plACE  to  SG-WUC-lSC-4  CCNTJ. 

MOVE  temp-5  to  TEMP-PLACE-NO. 

MOVL  temp-place  to  SG-WUC-lSC-5  CCNTJ. 

MOVE  temp-6  TO  TEMP-PLACE-NO. 

MOVE  TEMP-f.ACE  TO  SG-WUC-ISC-6  CCNTJ. 

IF  cnT  is  lESS  THAN  NO-WDC-COLS  GO  TO  SCT-SG-wUC-IS€» 

HOVE  5G-WUC-FRC0-N1  CPRlH-COLJ  TO  SO-WUC-FREO-N!  ISEC*60L3. 
MOVE  zero  10  CNT* 


SET^SG-ikUC-M. 
bOb46  AOO  1 Tu  CNT. 

50b46  HOVt  SG»WUC-»FRE0-N1  CCNT)  TO  TEMP«M>« 

bObSO  MOVt  TE»^P-1  to  TEMP-PLACE-NO# 

i>0bb2  MOVL  ItMP-F^ACE  TO  S6*MUC*Nl*l  tCNTJ* 

i>Obi>4  MOVE  IEWP-.  TO  T£MP.PtACE-NO. 

i>0b56  MOVt  TLMP-PLACE  TO  S6*WUC*NI«2  CCNT). 

bObSB  MOVE  TCMP-3  TO  T£HP»PCACE-NO« 

bObbO  MOVt  TEMP-»L*CE  to  S6-MUC-NIO  CCNTJ. 

50b62  MOVt  TEMP-i  TO  TEHP-PLACE-NO. 

50b64  MOVt  TtMP-.PL ACE  TO  SG*WUC*NI-4  tCNT). 

bObbb  MOVt  TtWP-b  TO  T£MP-PtACE*NO, 

bObbtt  MOVt  TtMP-l^ACE  TO  S6*WUC*NI*S  CCNT}* 

bObTO  MOVt  TtMP-f  TO  T£MP«PLAC£*N0, 

b0b72  MOVt  temp-place  TO  SG*WUC«NI*6  CCNT)* 

bOb74  IP  CMT  IS  L^SS  Than  NO-MDC-COLS  go  to  SET-Sb*wUC-Nt* 

50700  NOTt  bTORE  ’ITLt  PRH  USE  LATER, 

50710  MOVt  PAoE-MuMRER-NI  TO  PAGE-NO. 

50720  MOVL  : NON-ISO  .*  TO  ISC-TlTLE. 

50730  WRITE  TAPf>  ILE-TI  FROM  NEw-PAgE. 

50740  WRITE  TAPE-*^1LE-7I  FROM  TITLE-LINE. 

50750  WRITE  TaP£.FILE-TI  EROM  WHEN-OISC-COOE-T ITLE. 

507b0  WRITE  TAPE-FILE-TI  FROM  SG-WUC-TITLt-1. 

50770  WRITE  TAPE-FlLE-TI  FROM  SG-wUC-TITLE-2. 

50780  WRITE  TAPE*FILE-TI  FROM  SG-WUC-TITLt-5. 

50790  WRITE  7APt-FlLE-Tl  FROM  SG-WUC-TlTLt-4. 

50H0O  WRITE  TAPE-FILE-TI  FROM  SG-WUC-TITLt-S. 

50H10  WRITE  TAPt-FiLt-TI  FROM  SG-WUC-FR£0-LlNt-I-NI . 

50ttl2  WRITE  TaPE-FILE-TI  FROM  SG-WUC-FRCO-LlNE-2-NI . 

50614  WRITE  TAPE-FILE-TI  FROM  SG-WllC-FRCO-LlNE-3-NI . 

50615  WRITE  TAPe-MLE-TI  FROM  SG-wUC-FREO-LlNE-4-NI . 

50616  WRITE  TAPE-«ILt-ri  FROM  SG-WUC-FREO-L iNt-b-NI . 

50617  WRIIE  TAPE-FILE-TI  FROM  SG-WUC-FR£0-L1N£-6-N1 . 

50620  AOO  14  TO  NO-REC-TAPE-T 1 • 

50630  MOVE  : ISOC  mONAL  : TO  ISC-TlTLE. 

50650  WRITE  TAPC-FILE-TI  FROM  TITLE-LINE. 

50V20  write  TAPE-rlLE-TI  FRO^  SG-WUC-FREO-LtNt-l-lSC * 

50V22  WRITE  TAPE-'ILE-TI  FROM  SG-WUC-FR£0-L1N£-2-ISC* 

50924  WRITE  TAPE-FILE-TI  FROM  SG-WUC-FRCO-LINE-3-ISC * 

50925  WRITE  TAPt-FILE-TI  FROM  SG-WUC-FREO-LlNE-H-ISC* 

50926  write  lAPt-FlLE-TI  FROM  SG-WUC*FR£0-LlN£-5-tSC* 

50927  write  TAPE  FILE-TI  FROM  SG-WUC-FRE0-HNE-6-JSC* 

50930  AOP  7 TO  NO-REC-TAPt-T I . 

51000  PERFORM  REStT-HMC-LINE-Nl  THRU  ENO-RCSET-NI . 

51005  perform  REjET-HMC-LINE-ISC  THRU  EN(KReseT-lSC* 

51010  REAO-NSb-wUC. 

51O20  read  IN-FIUE-OB  INTO  INPUT-OB# 

51U30  AT  ENO  GO  TO  CLOSE-TABLE* 

51040  IF  lOtNT  1:  NOT  EQUAL  TO  t4t  GO  TO  READ-NS6-WUC» 

51050  PERFORM  PR^c-wOC  THRU  ENO-PROC-WOC* 

51060  IF  POS-WOC  IS  equal  TO  2ERO  GO  TO  REAO-NSO-WTC » 

SHOO  NEXT-WUC* 

5I1Q2  MOVL  CERO  '*0  PAOE-NUMBER-ISC* 

51104  MOVL  2EhO  TO  PAGE-NUMOLR-Nf , 

51110  MOVL  WUC  Tu  CuR-WUC. 

51130  MOVt  SPACE  TO  ISC-T ITLE-FLAO. 

51140  MOVE  SPACE  TO  NI-TITLE-FLAO. 

51 ISO  AOO  I To  NO-WUC. 

51160  PERFORM  REbE T-WUC-FREO. 

51200  NEXT-HMl. 

51210  MOVE  HF'C  TC  CUR-HMC. 

5U20  MOVE  SPACE  TO  ISC-LINE -FLAG. 

51230  MOVt  SPACE  TO  NI-LINE-FLAG. 

51240  PEPfORM  CflECX-lbCHRONAL  THRU  ENO-CI. 

51250  IF  ISCHkON/L  IS  EQUAL  TO  ONE  PERFORM  AOO-JSCt 

51260  ELSE  PERFORM  AOO-Nl. 

51300  REAO-OATA. 

51310  HEAO  IN-FluE-OB  INTO  INPUT-OR» 

51320  AT  ENO  GO  TO  CtOSE-TABLE. 

51330  IF  lOtNf  IS  NOT  EQUAL  TO  :4;  GO  TO  REAO-OATA. 

51340  PERFORM  PROC-WOC  THRU  ENO-PROC-MOC. 

51350  IF  POS-wOC  IS  EQUAL  TO  ZERO  GO  TO  REAO-OATA. 

51360  PERFORM  CH’CK- 15CHR0NAL  THRU  ENO-CI. 

51370  IF  wUC  IS  NOT  EQUAL  TO  CUR-WUC  GO  TO  OOTPUT-TaBlE-ENO. 

51380  IF  hMC  is  NOT  EQUAL  TO  CUR-HMC  GO  TO  OUTPUT-ilNe, 

51390  IF  ISCHrON  L IS  EOUAL  TO  ONE  PERFORM  AOO-ISC> 

51400  ELSE  PERFORM  ADO-Nl. 

51490  GO  TO  RLAO-OATA. 

51500  RESET-HHC-LINE-NI. 

51510  MOVL  2EhO  '^0  CNT. 

51520  RESET-HMC-LINE-I, 

51530  AOO  1 TO  CNT. 

51550  MOVt  4CtRO  :0  HHC-NI  CCNT). 

51560  IF  cNT  IS  '.ESS  THAN  NQ-WOC-COtS  GO  TO  RESET-HMC-tlNC-i. 

51590  ENU-RESLT-NI.  EXIT. 

51600  WRiTt-TITLt-Ni , 

51610  AOO  I Tu  PTGE-NUMBER-NI. 
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blb20  HOVt  HAbP-NU^'BEH-Nl  TO  PAGt*NO, 

blb30  «iRlTi  Nl-UATA  FKQM  NCtf^PAGE. 

bibue  MOVL  : Noj*iso  : lo  isc^titlc* 

bIbSO  WHITE  f4l-D>T*  FHOM  TITLE-LINE. 

blbbO  WHIIP  Nl-UATA  EKOM  WHEN-OISC-COOE-TITLC* 

bIbTO  WRITE  N1-()mTA  FhOM  SG-WUC-T I TLE-1  . 

blo60  WRITE  lll-D  T*  FROM  SG-WUC-T 1 TLE-S. 

bIbRO  WRITE  lJl-D*TA  F«OM  SG-WUC-T|TLe-3. 

biroo  WRITE  r4l-l)ATA  from  sg-wuc-title-h. 

biTio  wRiir  141-0.  TA  From  sg-wuc-ti Tur-s. 

bI  720  WHIICnI-u^T*  FROM  SG-wi/C-f  REO-LlNE-l-Nl  • 

bI722  WRITE  ril-()ATA  FROM  SG-W0C-FRE0-LlNe-2-N| . 

bl72W  WRIIFNI-DuTA  from  SG-IHtC-FRE0-LlNC-3*Nl, 

bI72b  WRITE  M-U'TA  FRON  SG-WUC-FRCO-LlNE-41-Nl. 

bI726  WRITE  ril-u^T*  FROM  SG-Wi>C-FREO«LlNC-S-Nl « 

51727  WRTTE  NI-UATA  FROM  SG-wuC-FREO-LlNE-6-NI . 

bl730  AOn  In  TO  ,iO-R£C-PHINT-NI , 

bI7«40  MOVL  1*4  TO  LINE-CNT-NI, 

bIbOO  WHITE-TlTLt-Isr, 

biHOb  ADO  I TO  PnOe-NUMBER-ISC. 

blaio  MOVt  pAbE-l  U*^aEK-ISC  TO  PAGE-NO* 

bld20  WRITE  IbC-PATA  FROM  NEW-PAGE. 

bl«30  MOVt  : ISOCHRONAL  S TO  ISC-TITLE* 

blbiiO  WRITE  IbC-(.ATA  FROM  TITLE-LINF. 

bltibO  WRITE  IbC-CATA  FROM  WHCN-OISC-COOE-TITLE. 

bIbbO  WRITE  IbC-OATA  FROM  SG-WUC-T ITLE-I . 

blb70  WRITE  IbC-OATA  FROM  SG-WUC-T I TLE-2. 

blbeo  WHITE  IbC-rATA  T-ROM  SG-WUC-TITLE-3. 

blb90  WHITE  IbC-'^ATA  FROM  SG-WUC-TITLE-«». 

blVOO  WRITE  IbC-nATA  FROM  SG-WUC-TITUE-b. 

bI9I0  WRITE  IbC-iiATA  FROM  SG-WUC-FREO-LlNE-|-tSC» 

blVl2  wRITF  IbC-'ATA  FHOM  SG.WUC-FREO-LlNE-2-ISC* 

blSl*t  wHITF  IbC-OATA  FROM  SG-WUC-FREO-LlNE-5-tSC* 

bISiS  WRITE  IbC-PATA  FROM  SG-WUC-FREO-LlNE-R-lSC • 

blVlb  WRITE  IbC-OATA  FROM  SG-WUC-FREO-LlNE-5-lSC • 

bIVI7  WRITE  IjC-LATA  FROM  SG-WUC-FREO-LINE-G-ISC* 

51420  AUt)  In  fO  r 0-REC-PRINT-ISC* 

51430  MOVL  la  TO  LINt-CNT-ISC. 

b2U00  PHOC-wPL. 

52010  MOVt  ^LhO  .0  POb-WOC, 

b2o20  MOVL  ^K.<0  ’0  CNT. 

b2030  PROC-wCC-A, 

520*40  AOn  1 TO  CNT. 

b20bO  MOVE  wDC-L.’bT  CLNTl  TO  WOC-TEMP* 

52060  IF  WOC  IS  VLSS  THAN  wOC-TEMP  GO  TO  ENO-PROC-»OC . 

52070  IF  woe  IS  EQUAL  TO  WOC-TEMP  GO  TO  PROC-»0C-C* 

b20H0  IF  cNT  IS  cESS  THAN  NO-wOC-COLS  GO  To  PROC-WOfA* 

52100  PHOL-wPC-L. 

b2U0  MOVL  t»*T  TP  POS-WOC. 

52140  ENO-PROc-wOL.  kXiT. 

52^00  OUTHuT-LINL-OF.  r*I-OATA, 

52^20  MOVt  2LrO  *0  CNl , 

52230  0UIPUT-LU4C-NI-A. 

522*40  AOO  I Tu  CM. 

52250  MOVE  HRc-n:  (CNTI  TO  HMc-FREO-RPT  CCNT3« 

b22bU  IF  CNT  IS  'ESS  THAfJ  NO-wOC-COLS  GO  TO  OUTPUT-LiNC-NI-A, 

52300  MOVL  2tM0  TO  HMC-FREO-TOTAt-NI , 

52310  MOVE  2t.K0  lO  CNl, 

52320  SUM-nI-LOL* 

5233C  AOO  I TO  CNl, 

523*40  MOVL  bUM-wPC-COL  CCNTI  TO  TEMP-INOEA. 

52350  AOP  HMC-NI  CTEMP-IMDEXJ  TO  HMC-FREO-TOTAL-NI . 

b23b0  IF  CNl  IS  LSb  THAN  SUM-INDEX  60  TO  SUM-Nf-COLt 

52340  MOVL  h^*C-FPLO-TOTAL-NI  TO  MMC-FHEO-TOTAL-RPT • 

52392  IF  LINE-CNT-NI  IS  GHfATER  THAN  LINE-PAGE 

52394  PLI  FORM  WR I TE-T I TLE-Nl . 

52400  WRIIE  NI-O^TA  FROM  HMC«FREQ-LlNE. 

52410  AOn  1 To  140-REC-PKINT-NI  • 

52415  ADO  1 TO  LTNF-CNT-NI. 

52500  MOVL  CUM-wl  C TO  CUR-WUC-NI. 

52510  MOVL  tUR-MMC  TO  CUR-HMC-NI. 

52520  WRITE  TAPt-FlLE  FROM  lAPC.OUT-Nl* 

52530  AUO  I To  Nv-REC-TAPt. 

523R0  PERFORM  RE'ET-HMC-LINE-Nl  THRU  EN0-RE5ET-NI • 

52590  ENO-OUTHUI-LINF-Nl-OAIA,  EXIT. 

52600  0UTPuT-Lir4F-0F-ISC-DATA, 

52bI0  MOVE  2EhO  *0  CNT. 

52b20  0U1MUT-LINL-Ib'‘-A, 

52b30  AOn  I TO  CNT. 

52b40  MOVt  H»-C-I:>C  CCNTJ  TO  HMC-FHFG-RPT  CCNT3. 

52b50  IF  lNI  is  (ESS  THAN  NO-wOC-COLS  60  TO  OUTPUT-lINC-ISC-A. 

52700  MOVt  2ErO  TO  MMC-FREO-IOIAL-ISC. 

52710  MOVE  2ER0  TO  CNl , 

52720  SUM.iSC-COL. 

52730  ADO  I To  CM  . 

52740  MOVL  SUM-wOC-COL  CCNTJ  TO  TE‘G>. INDEX. 

527S0  AOO  HMC-lbC  tTEMP-INOEXj  TO  HMC-FRCG-tOTAfISC« 
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b2760  IF  CNT  IS  I ESS  THAN  SUM*tNOCX  GO  TO  SUM*ISC-COi.» 

b2790  MOVL  HMC-FRtO-TOTAL-lSC  TO  MMC-FRCO-TOTAL-RPT . 

b27q2  IF  L1NL-CNT*1SC  IS  GRCATCR  THAN  LlNC^PAGE 

b279H  PCi  FORM  wR1TC*T1TlC*1SC« 

b2ttOO  WRITE  ljC*r>ATA  FROM  HMC*FRCO«.LlNe« 

b2dl0  ADD  1 To  N0-REC*PK1NT-1SC« 

b2H20  AOn  1 ru  LINE-CNT-ISC. 

b2900  MOVL  CUH-WUC  TO  CUR-WUC-ISC. 

b2'^I0  MOVL  LUh-H‘ : TO  cur-mmc-isc. 

b2920  WRITE  TmPC.ci(,c  FROM  TAPC^OuToISC. 

b2*^30  ADD  1 TO  NO*REC*TAPE* 

b2VeO  PLRFORM  RLScT*HMC<-LlNCoiSC  THRU  CND-RCSCT*  ISC  • 

b2V90  ENO-OUTPUT-Lll4t-lSC-nATA,  EXIT. 

b3u00  OUTPUT•T*bLL-E^'0• 

b3UlO  IF  Nl*LlNL*fLA6  IS  LOUAl  TO  SPACE  GO  TO  OUTPUT*HDC*Nl • 

b3u20  IF  Nl-TITLL-FLAG  IS  FOUAL  TO  SPACE  PERFORM  wRlTE.TITLE*Nt» 

b3U30  MOVE  ONL  jr  N1*T1TLEoFLAG« 

b3U40  PERI-OHM  Ou^PUT-LINE-OFoNI^OATA  THRU  eNO-OuTPUT*LlNE*NUOATA. 

b3U60  OUTPUT-iiOC*(<I« 

b3U70  IF  NI*T1TlL-FlAo  IS  EQUAL  TO  SPACE  GO  TO  OUTPUT-CHECK*lSC • 

b3I00  MOVL  2Ei<0  ▼O  TOTAL-wnC-FRCQ-Nl* 

b3110  MOVL  2Cm0  TO  CNT. 

b3120  SUM*Nl-«rC« 

b3130  ADO  1 To  Cl  T. 

b3m0  MOVL  SUM-wOC-COL  tCNTj  TO  TEMP.INOEX* 

b31bU  ADO  WUC-FhEQ-NI  CTEMP^INOExJ  TO  TOTAL •WOC*FREO-NI . 

b3160  IF  CNT  is  L-SS  THAN  SUM-INOEX  GO  TO  SUM-Nl^wOC* 

b3i70  MOVL  TOI Al-«OC-FREO-NI  TO  TOTAl*WOCoFRCO-RPT* 

b3ie0  MOVL  2LkO  TO  CNT. 

b31R0  OUTPUT-A. 

b3^00  AOO  1 To  Cl  T. 

b3210  MOVl  WOC-FPEQ-Nl  (CNT I TO  wOC-FREO^RPT  CCNTJ. 

b3220  IF  cNT  IS  LESS  THAN  No<-wOC-COLS*  GO  TO  OUTPUT**. 

b3230  WRIIE  N1*OmTA  FROM  wOC*FRCO*L1NE*RPT. 

b323b  MOVL  CUn-Wl  C TO  CUR*WUC*W*NI . 

b3^4U  WRIU  TAPC*F1LE  FROM  wOC«FREO«OATA*Nl . 

b3^50  AOO  1 To  NO*MEC*TAPE.  AOO  I TO  NO*REC*PRINT*NI . 

b3260  output*lheca*ie:. 

b3^70  IF  lSC«LlNe-FLAG  IS  EQUAL  TO  SPACE  GO  TO  OUTPuT*wDC*ISC* 

b32fl0  IF  ISC-IITLE-FLAG  IS  EQUAL  TO  SPACE  PERFORM  WRi TE*TITLE»1SC . 

b3-:90  MOVL  ONL  TO  1SC*T  1TLE*FLAG. 

b3300  PERFORM  OUT ^UT*L1NE*OF*1SC*OATA  THRU 

b3310  ENO*OUTPUT*LtNC*tSC*OATA» 

b3320  OUTPUT-wOC*lSc. 

b3330  IF  iSC«nTL.-FLAG  IS  EQUAL  TO  S^ACE  GO  TO  CHEC^^ID* 

b3340  MOVL  2LkO  TO  TOTAl*WOC*FREQ*1SC* 

b334b  MOVL  ^LHO  TO  CNT. 

b3350  SUM«1SC*WJC« 

b33bb  AOD  1 TO  Cl  T. 

b3360  MOVL  SUM*wPC-COl  ICNTJ  TO  TEMP*IN0EX. 

b336b  ADD  WUC-FhCQ-ISC  (TEMp-INOEXJ  TO  TOTAL*WOC*FREQ*ISC . 

b3370  IF  CNT  IS  LESS  THAN  SUM-INQEX  GO  TO  SUM*lSC-«OC. 

b3390  MOVE  TOlAf  VOC*FpeO*ISC  TO  TOTAL*WOC*FREO*RPT. 

b3400  MOVE  2EH0  to  CNT. 

b34l0  0UTPUT*H. 

b3420  ADD  I TO  CN'. 

b3430  MOVE  W0C-FR*0*ISC  (CNT 3 TO  WOC*FRCO*RPT  tCNTJ. 

b3440  IF  CNT  IS  LLSS  THAN  NO*hOC*COLS  GO  TO  OUTPUT*B. 

b34b0  WRITE  ISC*0*TA  FROM  WDC*FREO*LlNE*RPT. 

b34bb  MOVE  CNm*WU^  to  CUR*MUC*H«ISC. 

b3*»60  WRITE  tape-file  FROM  WOC-FREO-OATA-ISC* 

b3470  AOO  I TO  NO-REC-TAPE. 

b34e0  Aun  I TO  NO 'REC^PRINT-ISC. 

b348I  CHECK-IU. 

b34Ab  IF  iDLNt  IS  equal  TO  191  GO  TO  CLOSE-FILES. 

b3490  GO  lO  liLXT-WUC. 

b3bOU  CLOSE-TARlF. 

b3bI0  MOVE  19;  TO  lOENT. 

b3b20  GO  TO  OuTPU*-TABlE*ENO. 

b3700  OUTRUT-LlNi. 

b37I0  IF  NI-LINE-ILAG  IS  EQUAL  TO  SPACE  GO  TO  OUTPUT*LINE-ISC. 

b3720  IF  NI-TITLE  FLAG  IS  EQUAL  TO  SPACE  PERFORM  WRiTC-TITLE-Nl. 

b)730  MOVL  ONL  TO  NI-TITLE-FLAG. 

b3740  PERFOhF  OuTKUT-LINE-OF-NI-OATA  THRU  ENO-OUTPUT*LINC*N|-DATA. 

b3000  OUTPuT-LINE-ISC. 

b36I0  IF  iSC-LlrjE -FLAG  IS  EQUAL  TO  SPACE  GO  TO  NEXT-HMC. 

b3tt20  IF  ISC-TITLE-FLAG  IS  EQUAL  TO  SPACE  PERFORM  HrITE^TITLE-ISC. 

b3630  MOVE  ONL  TO  ISC-TITLE-FLAQ. 

b3tt40  perform  out.'ut-line-of-isc-oata  thru 

b3ttb0  ENO-OUTPUT-LINE-ISC-OAtA. 

b309O  GO  TO  NcXT-HMC. 

b3900  RESLT-HMC-LlNe-.SC. 

b39I0  MOVL  2EkO  T'"  CNT. 

b3920  RESET-HMC-LINE-?. 

b3930  AOr  I TU  CNT . 

b3940  MOVE  2EHO  TC  HMC-ISC  (CNT). 
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53-#50 
b3990 
54U00 
54U10 
t>4U?0 
b4U30 
54100 
54110 
54120 
54130 
55U00 
55Ut0 
55U20 
5503U 
55040 
55U50 
55U60 
55070 
55U00 
55U90 
55100 
55II0 
55120 
55130 
55140 
55150 
55160 
55165 
55170 
55160 
55190 
55200 
55220 
55230 
55235 
5524U 
55250 
55200 
554A0 
tn4!U 
55420 
55425 
554  30 
55440 
55450 
55460 
55500 
55510 
55520 
55530 
55540 
55600 
55610 
55620 
55630 
70000 
70010 
70020 
70030 
70040 
70U50 
70060 
70070 

70075 

70076 
70080 
70090 
70200 
70210 
70220 
70230 
70232 
70240 
702S0 
70260 
70270 
70260 
70290 
70300 
70310 
70320 
70330 
70340 
70350 
70360 
70370 
70360 


IF  CNT  is  less  than  NO-wOC-COLS  60  TO  ReseT-HMC*LlNE«2, 
ENO-HESLT-ISC,  lxit. 

AUU-Nl . 

MOVt  ONt  TO  Nt-LINE-FLAO, 

AOO  Ma  |0  HHC-NI  CP0S-4DC1. 

Aoo  ma  to  WUC-FHEQ-NI  CPOS-WOCl* 

AOU-ISC, 

MOVt  out  TO  ISC-LINE-FLAG. 

AOO  ma  to  HMC-ISC  CPOS-wOC], 

AOO  ma  10  VUC-FHEO-tSC  CP0S-W0C3. 

CL05E-FILtS. 

COMPUTE  CNT  > NO-REC-TAPE  • NO-R£C-TAP£  / BF*  • BF, 

IF  CNT  is  EuuAL  TO  2EH0  GO  TO  CF**!, 

CF-2. 

WRIIE  TAPE-riLE  FROM  NINE* 

AOO  I TO  CNT, 

IF  cnt  is  Ltss  Than  rf  go  to  cf«2« 

CF-l, 

COMPUTE  CNT  > NO-HEC-TAPE-TI  - flO-HEC-TAPE-T|  / BT  A 
IF  CUT  IS  EuuAL  TO  ZERO  GO  TO  CF«5* 

CF-4, 

WRITF  TaPC-.  ILE-TI  FROM  Ntf^C. 

AOn  I To  CM*, 

IF  CNT  IS  LESS  THAN  RF  OO  TO  CF«4« 

CF-3, 

OISPLAY  : N < TITLE  RECOHO  : NO-PEC*TAPE«TI  i;PON  CONSOLE* 
OtSPLAY  : N^  TAPE  HECS  t NO^REC^TAPE  UPON  CONSOLE^* 

OISPLAY  : NO  OF  W.U.C,  I NO-WUC  UPON  CONSOLE* 

OISPLAY  : ISC  PRINT  M£C  I NO-R£C*FRtNt^ISC  UPON  CONSOLE* 

OISPLAY  : W N1  PRINT  HEC  I NQ-REC-PRINT-NI  UPON  CONSOLE* 
OISPLAY  : ENO  OF  JOB  C9897  : UPON  CONSOLE* 

CLOSE  lN-FILE-Od« 

OoT-Oa^TA. 

OUT-PPINT-TSC# 

IN-FILE-ISC# 

OuT-PhINT-NI* 

OuT-T  TLE5  4!TU  LOCK, 

GOrtACH* 

PHOC-SrL<'-Ss»WUC* 

IF  :>rHlAL<-Nc  IS  NuT  rouAL  to  CuH*SN  OO  to  Nt«*SN»SO-WUC* 

IF  mEEK  • P*2EEh  is  greater  than  SPEC-WEEK-LIST  CSFEC*1N0EX3 
GO  TO  ENO-SG-WUC-INSP* 
N0T«EN0«SPEC*SG«2UC«INSP« 

MOVt  «.EtK  TO  P-«EtK, 

MOVE  PLT-MR5  TO  P-FLT-HHS* 

GO  TO  WtA()-5G-«»UC, 

NEwSN«5G-V  JC, 

I^  ISLMhOmAL  is  equal  to  one  AOO  1 TO  S0-WUC*FRE0*ISC 

C TtMP-CO  ,-NO]  ELSE  AOO  1 TO  SO-WUC-FREO-Nl  t TEMP-COL*NO 3, 
MOVE  5EhUL-nO  to  CUR-SN,  • 

GO  TO  HuT-ENO-SPEC-SG-liUC-INSP* 

ENO-SG-4UC-INSP, 

IF  ISCHhONAL  is  equal  to  ONE  AOU  1 TO  S0*WUC*FRE0-1SC 

t TEHP-COL-NO  ) ELSE  AOO  1 TO  SO-WUC-FREO-NI  t TE^P-COL-NO 3* 
GO  TO  NOT-ENU-SPEC-SG-WUC-INSP, 

REAO-ISC-A-C* 

REAU  IN-FilL-ISC  into  740- TSC  Aj  ENO  OO  TO  ENO-PlAC* 

MOVE  2EhO  to  KNT* 

RIAC, 

AOO  1 TO  KNT 

HEAU  IN-FTLE-ISC  INTO  ISC-A-C  AT  ENO  OO  TO  ENO-RIAC* 
move  ISv.-Tf4  -.0  ISC-AC-TN  tKNT3* 

MOVE  ISC-WK  '0  ISC-AC-WK  CKNT3* 

IF  ISt-«iK  Ib  LE5S  than  MIN-ISC-MEEK  MOVE  ISC-WK 
TO  MIN-ISC-WEEK* 

IF  kNT  is  LEJS  than  NO-ISC.AC  go  TO  RiAC* 

ENU-HlAc.  EaIT* 

CHtCK-l5CMH0NAL* 

IF  SFHIAL-NO  IS  NOT  EQUAL  TO  PREV-TESTEO-SN  OO  TO  CHCCK-1*2* 
IF  ISC-MAG  is  equal  TO  TWO  OO  TO  ENO-CI* 

IF  IScHhOnAI  is  equal  TO  ONE  AND  WEEK  IS  NOT  LESS  THAN 
MIN-ISC-WEEK.  then  OO  TO  ENQ-Cl* 

CMtCK-I-2. 

MOVE  IWU  TO  ISCHRONAL* 

IF  wftK  IS  LTSS  THAN  MIN-ISC-WEEK  OO  TO  ENO^Cl* 

MOVL  2EhO  TO  cnt* 

CHELK-I-1 . 

AUU  1 TO  CNT 

MOVL  ISC-AC-fN  tCNT3  TO  ISC-TEMP, 

IF  SEHIAL-NO  is  less  than  ISC-TCMP  60  TO  CHECK-1-4* 

IF  SCHIAL-NO  IS  equal  TO  ISC-TEMP  60  TO  CHECK-l-lA. 

IF  cnt  is  less  than  NO-ISC-AC  OO  TO  CMCCK-I-I, 

CMECK-1-4, 

MOVL  T«o  TO  ;sc-flag, 

GO  TO  CHECK-T-3. 

CHECK-1-IA, 

MOVt  ISC-AC-WK  CCNT3  TO  WEEK-TEMp, 
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70J90  IF  wEEK*TEMP  IS  EQUAL  TO  WEEK  Oft  MEEK  IS  ftftEATER  THAN 

70400  MELK-TEMP  MO^E  one  to  ISCHftONAL* 

70410  MOVE  ONE  TO  ISC-FLAG, 

70430  CHECK-I-3. 

70440  move  SEHIAL-'’0  TO  PHEvTESTEO-SN. 

70450  ENO-CI,  EXIT. 

70b00  ftEStT-WuC-FnEo, 


70bl0 

MOVE 

ZtHO 

TO 

NOC-FReO-Nl-l« 

70520 

MOVE 

Z£HO 

TO 

MOC-FRCO-NI-2* 

70530 

MOVE 

zero 

TO 

WOC-FReO-NI-3* 

7054U 

MOVE 

ZthO 

TO 

KnC-FHEO-NI-4. 

70550 

MOVE 

itnO 

TO 

WUC-FREO-Nl-5* 

70560 

MOVE 

2EhO 

TO 

NOC-FHCO-Nl-6* 

70570 

MOVE 

2eKO 

TO 

Nt)C-FReQ-Nt-7* 

70560 

MOVE 

2EhO 

TO 

wC)C-FReO-NI-8« 

70590 

MOVE 

^EhO 

TO 

•(UC-FReO-Nl-9* 

70600 

MOVE 

^EHO 

TO 

MUC-FREO-Nl-tO* 

70610 

move 

2eH0 

TO 

KUC-FREO-Nl-f  1* 

70620 

move 

2eH0 

TO 

W0C-FPE0-NI-I2* 

70630 

MOVE 

2EhO 

TO 

•(OC-FREO-Nl-13* 

70640 

MOVE 

2CK0 

TO 

W0C-FRe0-Nl-l4* 

70650 

MOVE 

2E'hO 

TO 

WOC-FREQ-Nf-lb* 

70660 

MOVE 

2eH0 

TO 

bOC-FREO-Nl-l6* 

70670 

MOVE 

^f.HO 

TO 

bOC-FREO-Nl-I7* 

70oR0 

MOVE 

2th0 

TO 

WOC-FREO-Nl-le* 

70690 

move 

2EK0 

TO 

WOC-FREO-NI-19* 

70100 

MOVE 

2EkO 

TO 

WOC-FReO-Ul-20. 

70710 

MOVE 

2EH0 

TO 

WOt-FREO-NI-?l* 

/06IU 

MOVE 

2EhO 

TO 

WOC-FReO-I5C-I« 

70620 

MOVE 

2ER0 

TO 

WOC-FREO-lbt-2. 

70630 

MOVE 

2r.H0 

TO 

wOC-FReo-lbC-3* 

70640 

MOVE 

2eH0 

TO 

NOC-FReO-ISC-4* 

70650 

MOVE 

2LHO 

TO 

KOC-FREO-ISC-S* 

70660 

MOVE 

ZLhO 

TO 

WOC-FREO-ISC-6* 

70670 

MOVE 

2EkO 

TO 

bOC-FREO-ISC-7* 

70680 

MOVE 

ItnO 

TO 

>lOC-FREO-ISC-8* 

70890 

MOVE 

ZtHO 

TO 

KUC-FREO.ISC-9* 

70900 

move 

2th0 

TO 

WOC-FREO-lbC-10* 

70910 

MOVE 

ZERO 

TO 

KOC-FREO-ISC-ll* 

70920 

move 

2th0 

TO 

WOC-FREO-ISC-12* 

70930 

MOVE 

2ER0 

TO 

W0t-FHe0-ISC-I3* 

70940 

MOVE 

2EhO 

TO 

NOC-FREO-ISC-14* 

70950 

MOVE 

ZERO 

TO 

WOC-FREO-ISC-15* 

70960 

MOVE 

2EhO 

TO 

bOC-FREO-ISC-16* 

70970 

MOVE 

2th0 

TO 

WOC-FREO-ISC-17* 

70980 

MOVE 

2ER0 

TO 

WOC-FHEO-ISC-16* 

70990 

MOVE 

zcho 

TO 

WOt-FREO-lSC-I9. 

71000 

MOVE 

ZtHO 

TO 

KOC-FREO-ISC-20. 

710IO 

MOVE 

ZtHO 

TO 

KOC-FREO-ISC-21* 

80000 

RtAO-IN-THLE- 

•OA>  A* 

60010 

MOVE 

/tHO 

TO 

CNT* 

OOU20  REAO-WOC«lNPUTf 

60030  REAU  IN-FiLt-ISC  INTO  MOC-INPUT* 

60040  AT  ENn  GO  TO  ENq-RITO, 

eOObO  AOO  1 TO  CNT 

600fC  WOVE  Wnc-IN  TO  4DC«LIST  CCNTJ* 

bC'.70  MOVE  mOC-TITLE-INPUT  to  MDC-TItUE-DATA  tCNTJ, 

600flU  IF  CNF  IS  LE^S  THAN  21  GO  TO  READ-M0C*INPUT, 

60100  RCAO-UNSChEU-MAINT-COLS* 

601 10  HEAU  IN.FILE«ISC  INTO  NUMBER^CAHO* 

80120  at  ENO  go  TO  ENQ-ftlTO. 

60130  MOVE  NUMPER.rTEMS  TO  SUM-INOEX, 

60140  MOVE  4dEHO  TO  CNT, 

eolso  read-unscheo-cols* 

80160  HEAu  iri-FILE-ISC  INTO  NUM0ER-CAHO# 

80170  at  ENO  GO  TO  ENO-ftlTD* 

60180  AOO  1 TO  CNT* 

80190  MOVE  NUMDeR-I;EMS  TO  SUM*MDC*COt  tCNTJ, 

60200  IF  CNT  IS  LESS  THAN  SUM-INOEX  60  TO  READ-UNSCmEO-COLS* 

60290  MOVE  2EHO  TO  CNT 

60300  HEAU  IN-FILE-ISC  INTO  NUMBER^CAHD* 

80310  at  ENO  GO  TO  ENO*ftITOt 

60320  MOVE  NUMBER-TTEMS  TO  NUMOER-SGwUC* 

60330  REAU«SGliUC-UMf  A, 

80340  read  IN-FILE-ISC  INTO  NUMBER-CARD* 

80350  AT  ENn  GO  TO  ENQ-RITO. 

60360  ADO  1 TO  CNT* 

60370  MOVE  number-items  TO  COL-NO  CCNTJ* 

60380  MOVE  MHUT-SG-COOE  TO  SG-WUC  IC»T1, 

60390  IF  CNI  IS  LESJ  THAN  NUMBEH-SGWuC  GO  TO  HEAD-SGWUC-OATA , 

60400  READ-SGmUC-UTLE- INPUT* 


60410 

REAU 

III-HLE-ISt 

INTO 

SU-WUC-TITLE-IA, 

AT 

END 

©0 

TO 

ENd-HITD, 

6042U 

HEAU 

IN-FILt-»SC 

INTO 

SG-WUC-TirLE-2A, 

AT 

ENO 

Go 

TO 

FNo-HITD, 

60430 

HEAU 

in-file-isc 

INTO 

S6-WUC-TITLE-3A, 

AT 

END 

Go 

TO 

ENd-HITD. 

60440 

HEAU 

in-file-  I'.C 

INTO 

Sb-WUC-TITLE-HA. 

AT 

END 

Go 

TO 

ENd-HITD. 

60450 

HEAU 

IN-FII  E-ISL 

INTO 

sg-hkc-title-sa. 

AT 

END 

Go 

TO 

ENO-HITD. 
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RCAU  lN*FlLC-iSC  IMO  T£MP.lNPoT-S6WUC  AT  END  60  TO  ENQ^RITO* 
MOVL  TLMP-SOV.JC-TITLE  TO  S6-teUC-TlTLE«ie* 

READ  LN«Fill-TSC  INTO  TEMP.1NPUV-S6WUC  AT  END  GO  TO  ENO-RITO. 
MOVL  rLMP-SGWUC-TlTLE  10  S6-WUC«T 1TLE«2B* 

HEAU  IN-FILE-iSt  INTO  TEMP-INPUT-SCWUC  AT  END  GO  TO  ENQ-RlTO, 
MOVl  UMP-SOw  )C-T1TLE  to  S6-WUC-T1TLE«36« 

head  IN-FILL-tbC  INTO  TEMP.lNPuT^SGMUC  AT  ENO  GO  TO  ENO-RITO, 
MOVL  TEMP-SGWUC-TITLE  10  S6-mUC*T ITLE^AB* 

READ  1N-FILL-.SC  INTO  TEMP-lNPuT-SGWUC  AT  ENO  GO  TO  ENO-RITO» 
MOVL  rLMP-S\jW'lC-TlTLE  TO  SO-WUC-T  1TLE<-SB* 


BObOO  READ-2-UlOll-COUC, 


read  IN-FILE-ISC  into  NUMDER-CARO*  at  ENO  60  TO  ENO-RlTO» 
MOVL  NUMRLR-irEMS  TO  TMO-OIG IT-COL* 

MOVL  INPUT-Sr— CODE  TO  Tw0-01G1T-€00€* 


B0700  RLAU-INTERCHAngE-COL. 

BOTiO  READ  IN-FlLE-ISC  INTO  1NTERCHAN6E-C0LS»  AT  ENO  60  TO 

B0720  ENO-RITO. 

aO/90  ENO-RlTb.  LXIT. 

60B00  REAO-SPLC-SO-MUC. 

BOBiU  MOVL  ^ERO  TO  lO-SPCC-SG-lfUC • 

60B2U  REAU-SPlC. 

BUB30  read  IN-FILE-ISC  INTO  SPEC-SG-vUC-RCC  AT  ENO  60  TO  ENO-RSSW. 

eOBHO  ADD  1 TO  NO-St^EC-SG-WUC. 

80B50  MOVL  SPEC-S6- 'UC  TO  SPEC-S6-WUC-LISt  C NO-SPEC -S6-WUC J. 

60B6U  SUP  TRACT  1 FROM  SPEC-MEEK-A  OlViNG 

60B70  SPEC-wEEK-LIST  C NO-SPEC-SG-WUC 1. 

aOBBO  60  TO  REAU-SPCC. 

B0690  enj-rssm.  Exit. 
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42U50 

03 

wnC-FREO-Nl-l 

picture 

5919  3. 

098970 

42060 

03 

4UC-FF  LO-N1-? 

pictupf 

5919  3. 

098970 

42070 

03 

Wl)C-FREO-Nl-3 

picturf 

S9t  9 3. 

C98970 

42U80 

03 

WUC-FHEO-NT-4 

picture 

59t  9 3. 

098970 

42090 

03 

»«OC-FKty-Nl-S 

PICTURE 

5919  3. 

096970 

42100 

03 

WUC-Ff  *0-Nl-6 

picture 

59C9  3. 

096970 

42110 

03 

WOC-FPtU-Nl-7 

picture 

59C9  3. 

098970 

42120 

03 

40C-FPt0-Nl-8 

picture 

59t9  3. 

C98970 

42130 

03 

4{jC-F».tg*Nl-9 

picture 

5919  3. 

C98970 

42140 

03 

4UC-F''tO-Nl-10 

picture 

59C9  3. 

C98970 

42150 

03 

fcOC-FREO-Nl-ll 

picture 

59193. 

C98970 

42160 

03 

WUC-FNEti-Nl-12 

picture 

5919  3. 

098970 

42170 

03 

WUC-Ff  Eo-NI-13 

picture 

59t  9 3. 

C96970 

42160 

03 

W0C-FPt0.N|-14 

picture 

5919  3. 

C98970 

42190 

03 

woc-freo-ni-is 

picture 

59t93. 

C98970 

(i-13« 


mtUrn 


42^00 

03  »DC-FKeo-Nl-16 

PlC  TURE 

S9t9). 

C98970 

42^10 

03  WDC-Ff EO-Nl-17 

PICTURE 

S9t9]. 

C98970 

42<f20 

03  WDC-FREu-Nl-lS 

PICTURE 

S9C9). 

C96970 

42230 

03  WDC-FRlQ-NI-19 

PICTURE 

S9t91. 

C98970 

42240 

03  WDC-FRlW-Nl-20 

PICTURE 

S9t9). 

C98970 

42250 

03  »DC-Fr5U-Nl-21 

PICTURE 

S9C91. 

C98970 

42251 

02 

FILLER  REDEFINES  TFBLE-KOC-FREO-Nl. 

C9a970 

42252 

03  »0C-FPCU*N1  OCCURS 

21  TIMES 

PICTURE  S9t9J. 

C98970 

42260 

02 

total-hoc-fheo-ni 

PICTURE 

S9t91. 

C98970 

42o00 

01 

NINl 

C98970 

42ul0 

02 

filler 

PICTURE 

XC  5U  ] VALUE 

C98970 

42O20 

1 q949a<)9q999<lq999<l99<>9999994499499<)944494**99*9**99l  . 

C96970 

42O30 

02 

FILlEH 

PICTURE 

xcsoi  value 

C98970 

42O40 

i9999S  9999999999999999999999999999999999999999999991 . 

C98970 

42O50 

02 

filler 

PICTURE 

XC30]  value 

C98970 

42U60 

: 499R99999999V9999999999<)<»9R99>  2 • 

C98970 

4 3U10 

01 

56*«UL-FRL0-NI*1  sync* 

C98970 

4 3U20 

02 

filler 

PlCrURE 

XC120). 

C96970 

43U30 

02 

filler 

picture 

XCIOI. 

C98970 

43U70 

01 

SG-Hdc-^REO-Nl-S  SYNC. 

C98970 

430HO 

02 

filler 

PICTURE 

XC120]. 

C98970 

43uQ0 

02 

filler 

PICTURE 

xciol. 

C 98970 

43100 

01 

b6-aUC-fRLO*Nl«3  SYNC* 

C98970 

43110 

02 

filler 

PICTURE 

XC120]. 

C98970 

43120 

02 

filler 

PICTURE 

XClOl. 

C96970 

43130 

01 

SG-mUC-F  HLO-N  r«4  SYNC  * 

C9e970 

43140 

02 

filler 

PICTURE 

XC120]. 

C9B970 

43150 

02 

filler 

PICTURE 

XClOl. 

C98970 

43160 

01 

SG-I^UC-^REO-Nr-b  SYNC. 

C9B970 

43170 

02 

filler 

PICTURE 

XCUO). 

C9B970 

431A0 

02 

FILLER 

PicruRE 

XCIO]. 

C9B970 

43190 

01 

Se-l«Ut-.-RE0-N1.6  SYNC. 

C9B970 

43200 

02 

filler 

PICTURE 

«C120]. 

C98970 

43210 

02 

filler 

PICTURE 

xciol. 

C9B970 

43220 

01 

S6- 

■UL-^REo-ls:-I  SYNC. 

C98970 

43230 

02 

filler 

PICIURE 

XC120]. 

C98970 

43240 

02 

filler 

PICTURE 

xClOl. 

C9B970 

43250 

01 

SO. 

■UL-EReO-ISC-2  sync. 

C9B970 

43260 

02 

filler 

PICTURE 

XC1201. 

C9B970 

43270 

02 

filler 

PICTURE 

XClOl. 

C9B970 

43260 

01 

S6- 

•UC-FREO-ISC-J  SYNC. 

C9B970 

4 5290 

02 

filler 

PlClURt 

XC1201. 

C98970 

43330 

02 

filler 

PlCTURt 

XClOl. 

C98970 

43340 

01 

SO- 

•UC-FRtO-I'C-*  SYNC. 

C98970 

4 3350 

02 

filler 

PICTURE 

XC1201. 

C9B970 

43360 

02 

filler 

PICTURE 

XClOl. 

C9B970 

43370 

01 

so- 

■ul-fReo-is'.-s  sync. 

C98970 

43360 

02 

filler 

PICTURE 

XC1201. 

C9B970 

43390 

02 

filler 

PICTURE 

XClOl. 

C98970 

43400 

01 

SG- 

•ul-eReo-is;-*  sync. 

C98970 

43410 

02 

filler 

PICTURE 

XC1201. 

C9B970 

43420 

02 

filler 

PICTURE 

XClOl. 

C98970 

4 34  30 

50U00 

PMOLtOUNt 

UIVISIP'  . 

C98970 

50U10 

OPln-FIlCS. 

C98970 

50020 

OPEN 

INPUT 

OUT-DATA,  out-titles. 

OUTPUT 

OUT-I 

PRINT-NI. 

C98970 

50050 

WRl  TE 

ra-OAT**  FROM  REPORT-10* 

C98970 

50070 

ADD  1 

TO  NO-R*  C- 

PRINT-Nl, 

C98970 

50100 

REAU 

OUI-TITLFS 

INTO 

new-page 

AT 

END 

00 

TO 

INF. 

C9B970 

50110 

NEAU 

OUI-TlTLtS 

into 

TITLE-LINE-Nl 

AT 

END 

00 

TO 

INF. 

C98970 

50120 

REAU 

OUI-TITLLS 

into 

•men-disc-cooe- 

TITLE  at 

END 

GO 

TO 

INF. 

C98970 

50130 

REAu 

OUT-TlTLrS 

INTO 

SG-wUC-TlTLC-1 

AT 

END 

GO 

TO 

INF. 

C98970 

50140 

RCAu 

OUI-riTLES 

INTO 

SG-|»UC-TlTLE-2 

AT 

END 

00 

TO 

INF. 

C9BQ70 

50140 

HI  Au 

OUf-TIILt'i 

INTO 

SO-|fliC-TirLC«3 

AT 

ENU 

00 

TO 

INF. 

COBOfft 

Onif.U 

Ml  An 

out«rrii  I s 

INfO 

.Tlfl  r-4 

A1 

INU 

AO 

TO 

INF. 

C'lBOTft 

501  TO 

Ml  Au 

oiii-ri  ri  rs 

into 

S<*-|«U(  -titlt-b 

AT 

END 

00 

TO 

INF. 

CTiftQTO 

501  HO 

HLAu 

Onr-TITLLS 

INTO 

50-wUC-T MEO-Nl- 

1 At  lno 

GO 

TO  1 

INF  . 

C9B970 

i 


50181 

read 

OUT-TlTLtS 

INTO 

sg-wuc-freo-ni-2  at 

END 

GO 

TO 

Inf. 

C90970 

501B2 

REAU 

OUT-TITLLS 

INTO 

SG-WUC-FREO-Nl-3  At 

END 

GO 

TO 

Inf. 

C9n970 

50183 

REAu 

OUf-TlTLrS 

INTO 

SG-tfUC-FREO-Nl-4  Ay 

end 

GO 

TO 

INF. 

C90970 

501B4 

REAU 

OUl-fllLES 

INTO 

50-VUC-FRE0-N1-S  Ay 

END 

00 

TO 

INF. 

C9B970 

50185 

REAU 

OUI-TITLLS 

INTO 

SG-lfUC-FREO-Nl-O  Ay 

END 

«0 

TO 

INF. 

C9B970 

50190 

REAU 

oui-titles 

INTO 

title-line- ISC 

AT 

END 

GO 

TO  INF. 

C98970 

50200 

read 

OUl-TITLtS 

INTO 

SG.«uC>FREO>ISC>1  at  snd 

00 

TO 

INF. 

C90970 

50210 

REAU 

oui-titles 

INTO 

SG-»UC-FRE0-1SC>2  AT 

END  GO 

TO 

INF. 

C98970 

50220 

HEAu 

OUT-TlTLEi 

INTO 

SG-»UC>FRE0>1SC>1  AT 

eno 

00 

TO 

INF. 

C9BQ70 

50230 

HEAu 

OUl-TiTLtS 

INTO 

SG-VUC-FREO-ISC-9  AT 

enO 

00 

TO 

INF. 

C98970 

50240 

NEAU 

Onr-TlTLtS 

INTO 

SG-VUC-FREO-ISC-S  AT 

END 

00 

TO 

INF. 

C98970 

50250 

NCAU 

OUl-TlTLEb 

INTO 

SG-wuC-FREO-lSC-6  AT 

ENO 

00 

TO 

INF. 

C98970 

51U00 

INF* 

C98970 

51U10 

HEAu 

OUT-UATA  INTO  DATA 

i-lN,  AT  END  GO  TO  C10SC*F1LCS. 

C98970 

51U20 

IF  irtNT  IS  NOT 

EOUXL  TO  IHI  GO  TO  ERROR'l. 

C98970 

51U30 

NtMT-«UC* 

C9fl970 

51040 

MOVE 

2LhO  TO  XLE-NUNhCH-NI. 

C98970 

51050 

move 

HUE  TO  Ci'N- 

GUC* 

C9897ft 

51060 

MOVE 

5PACE  TO  N1 

-TITLL- 

flag. 

C98970 

51070 

ADO  1 

TO  rjo-mC* 

C98970 

r 


blUBO  PLPFOk*^  WUC-FREU, 

biU90  »^OVL  iScHHONAL  TO  CORISC. 

bllOO  NL)il-HMc. 
blllO  MOVt  HA'C  TO 

bll?0  VOVL  bPACE  TO  N1-L1NE«FLAG, 

bllJO  PLPhOHM  Re<ik.T-HMC-LU€-Nl  THRU  ENO*HESET*NI* 

51140  GO  10  ACC-HMC. 

bl200  RLAD-DAIA. 

51210  read  OUT-OATA  INTO  0ATA*1N>  AT  ENO  GO  TO  CL0SE*FILES» 

51215  IF  lOLrjr  IS  EGJAl  to  19:  GO  TO  CLOSC^rXLES* 

51220  IF  irti4(  IS  ECUAL  TO  :h:  go  to  CHECK^WuC* 

51230  IF  lObNI  IS  NOT  EOUAL  TO  :W2  00  TO  ERROR-1. 

51240  IF  Nl-LINE-FLAG  IS  EOuAL  TO  ONE  PERFORM  OUTPUT-LINC 

51250  THRU  ENO-OL. 

51260  FERFOKM  ACCUH.  WUC-DATA • 

51270  GO  TO  HlAO-OATA. 

51300  CHECK-WuC. 

51310  IF  mUL  is  ECIU*  L TO  CUR-WUC  GO  TO  CHECR-HMC. 

51320  PERFOKM  luHlTF-WUC  THRU  CNO-WRITE-WOC. 

51330  GO  10  riLXT-i^liC. 

51400  CHLCK-HHC. 

51410  IF  mHC  is  EOU^'.  to  CUK-HHC  GO  TO  ACC-HMC. 

51420  perform  0UTPU’’-L1NE  THRU  ENO-OL* 

51430  GO  10  NlXT-HMC. 

51500  RESET-HMC-LINE-NI. 

51510  MOVt  2LR0  TO  CNT, 

51520  RLSLT-HHC-LINC-1. 

51530  AUO  1 TO  CNT. 

51550  HOVL  2EhO  to  ; Hc-Nl  CCNTl. 

51560  IF  CNT  IS  LLS*'  THAN  NO-i(OC-COLS  GO  TO  RESET-HMC-LtNE-1. 

51570  HOVb  2LR0  TO  MMC-FREO-TOTAL-NI. 

51590  ENo-HESET-Nl.  Exl . • 

51600  WHITE-TITLE-Nl, 

51610  AOn  1 10  PAGE-NUH(iER-Nl. 

51620  HOVL  PAoE-NuHBtR-Nl  TO  PAGE-NO. 

51630  WRITE  NI-OATA  .-ROM  NFw-PAGE. 

51635  MO\L  CUn-WUC  TO  WUC-Nl , 

51640  wRlfE  (U-OATA  from  T 1 ILE-LINE-NI . 

51660  WHirr  Nl-OAIA  <R0H  WlffN-DlSC-COUt-TlTLC* 

blu70  wRlfl  ni-UA1A  ‘ROM  SG-wUC-TITLI-I. 

516A0  WRIIF  (U-OATA  FROM  5G-WUC-T1TLE-2. 

51690  WRITE  lU-OAfA  FROM  SG-«UC-TX TtE-i. 

51700  WRITE  Hl-OAT*  FROM  bC-wUC-T 1 TLE-4 . 

51710  write  NI-OATA  FROM  SO-wUC-TlTLE-S. 

51720  wRlTf  N1-I)A1A  From  5G-WUC-FRE0-Nt«i. 

51721  WRIIE  'U-OATA  FROM  SG-wUC-FRFO-Nl-2, 

51722  WRITE  (U-iJAIA  From  SG-WUC-FRFO-Nl-J, 

51723  wRllt  ru-UATA  FROM  SG-wUC-FRtO-NUw. 

51724  wRllF  lU-OAlA  ^ROM  bG-wUC-FREO-Nl^S. 

51725  WRIIE  Nl-OATA  From  SC-WUC-FHCO-NI-g. 

51730  AOO  14  lO  NO-REC-PRINT-NI, 

51740  MOVL  14  10  Lp.f.-CNT-Nl , 

51600  WRlTE-TlTLt-lSC. 

51610  AOO  1 10  PAOK-NUMUER-NI 

51620  MOVE  HAoE-NUMbER-Nl  TO  PAGE-nO. 

51630  WRITE  NI-UATA  FROM  NEw-l'AOK. 

51635  MOVL  CUR-WUC  "0  WUC-I5C. 

51640  wRIlE  Nl-OATA  FROM  T ITLL-L INE-lSC . 

51650  wRllE  Nl-UATA  FROM  WMtN-OlSC-COUE-TITLE# 

51660  WKIIE  (U-OAIA  '^ROM  SG-WUC-T  ITLE-l  . 

51670  wRlIt  fU-l)AIA  FROM  SG-WUC-T lTLE-2 

518flU  WRITE  Nl-OAIA  FROM  5G-WUC-TITLE-3. 

51690  WRITE  NI-OAtA  -ROM  SG-WUC-T lTLE-4 . 

51900  write  IU-OATA  s^ROM  SO-wUC-T I TLE-5* 

51910  WRITE  ru-UATA  FROM  SG-WUC-FREO-lSC-1 * 

51920  WRlIf  Nl-UATA  .-ROM  5G-WUC-FRE0-ISC-2* 

51930  wRllL  UI-OATA  'HQM  5G-WUC-rREO-lSC-3* 

519UU  WRllE  (U-UAIA  <^ROH  5G-WUC-FK£0-lSC-4. 

51950  WRIIE  (U-OAIA  r-RQM  50-WUC -FREO- 1 SC-5* 

51960  wRlIE  (U-JATA  .ROM  SG-WUC-FRFO-ISC-6. 

51970  AOO  14  |0  N0-R';C-PR1NT-N1. 

5l9flO  MOVE  14  TO  LINE-CNT-Nl. 

52200  0UIPUT-L1I4E-0F-N1-0ATA. 

52220  MOVL  2LnO  TO  CVT. 

52230  OUTPUT-LINL-NJ-A, 

52240  AOO  1 TV  CNI • 

52250  MOVL  NMC-M  (C4TI  TO  HMC-FREO-RPT  tCNTl. 

5227,0  IF  CNT  IS  LES''  THAN  NO-WUC-COLS  GO  TO  OUTPUT-LlNE-Nl-A. 

52390  MOVE  HMc-FRLO-TOTAL-NI  TO  HMC-FREO-TOT AL-RPT • 

52392  IF  LiNE-CNT-rJl  IS  GREATER  THAN  LINE-PAOE  AND  C^RlSC  IS  EQUAL 

52394  TO  TWO*  PERFORM  WR I Tf -TI TLE-Nl , 

52396  IF  LlNE-CNT-Nl  Js  GREATER  THAN  LINE-PAGE  AND  CURiSC  IS  EQUAL 

52397  TO  out  perform  wR 1 TE-T 1 1 Lt- iSC . 

524O0  WRITE  NI-OATA  FROM  HMC-FREQ-LINE. 

52410  AOn  1 To  NO-RE>PRlNr-Nl, 

52415  ADO  I To  LINE-CNT-NI * 

52420  MOVL  SPACE  TO  NI-LINE-FlAG. 
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•>2b90  ENO-OUTPUT-LINE-NI-UAtA.  EXIT.  ^ 

b3100  WRITL-WDC. 

53110  MOVE  WDC-FREO-Nl-;^  TO  WOC-FHeO*RPT-2. 

53120  MOVE  WOC-FREO-NI-4  TO  w0C*FRE0*RPT-4. 

53130  MOVE  WOC*FREO* Nl-6  TO  W0C*FRCQ*RPT*6. 

53140  MOVE  WOC-FREQ-Nl-e  TO  WOC*FREO-RPT»d« 

53150  MOVE  WOC-FREQ-Nl-10  TO  WOC-FREO-RPT-IO. 

53160  MOVE  W0C-FRE0*N1*12  TO  W0C«FRE0*RPT*12. 

53170  MOVE  wOC-FREQ-Nl-14  TO  M0C-FRE0*RPT*14« 

53160  MOVE  W(K-FREQ-N1*16  TO  W0C*FRE0*RPT*16. 

53190  MOVE  wOc-FREO-Nl-ia  TO  WOC-FHEO-RPT-IS. 

53200  MOVE  nUC-FREO- 41-20  TO  WOC-FREQ*RPT*20. 

53210  MOVE  TOTAl-wOC-FREO-NI  TO  TOTAl*WOC»FREO-HPT • 

53220  WRITE  rU-OATA  FROM  WOC*FMEO-ElNe*RPT. 

53230  MOVE  wOC-FREO-Nl-l  TO  WOC-FREO*RPT*l • 

53240  MOVE  WOC-FREQ-Nl-3  TO  WOC-FREO-RPT*3. 

53250  MOVE  WDC-FREO- Vl-5  TO  WOC-FREQ-RPT-5. 

53260  MOVE  wDC-FREQ-Nl-7  TO  w0C-FRE0-RPT«7. 

53270  MOVE  WOC-FREO-N 1-9  TO  W0C-FRE0-RPT*9* 

53260  MOVE  wOC-FReO-i4I-11  TO  wOC*FREO-RPT*l  1 . 

53290  MOVE  wOC-FREU- 41-13  TO  WOC-FREO*RPT*l 3. 

53300  MOVE  wOC-FREO-Nl-15  TO  W0C-FRE0*RPT*15. 

53310  MOVE  WOt-FREO-NI-17  TO  WOC-FREO*RPT*17. 

53320  MOVt  WIK-FRE0-.4I-19  TO  w0C-FRE0*RPT*19. 

53330  MOVE  wO\.*FREO-  41-21  TO  WOC-FREO*RPT»2l . 

53340  WRITE  NI-OATA  «^HOM  W0C-FRE(»-tlNE«2»RPT. 

53350  AOO  2 TO  NO-REC-PHINT-NI* 

53390  ENU-wR1tE-2uC«  EXir. 

53700  OUTPUT-lINE* 

53/10  IF  N1-L1NE-FLA6  IS  EQUAL  TO  SPACE  00  TO  END-OL* 

53720  IF  NI-TITlE-FLAO  IS  EQUAL  TO  SPACE  AND  CURISC  IS  EOuAl  TO 

53722  onf  Perform  wf  ite-title-isc. 

53724  IF  n1-T1TLE-F(  AU  IS  EQUAL  TO  SPACE  AND  CURISC  IS  EQuAL  TO 

53726  TWO  Perform  wkite-TITle-ni* 

53730  MOVE  ONE  TO  Nk-TlTLE-FLAG. 

53740  PERFORM  OUTPUT -LINE -OF-NI-DATA  THRU 

53/50  END-OUTPUT-LINE-NI-OATA* 

53760  MOVE  space  TO  .41-LINE -FLAG. 

53790  ENO-OL.  EXIT. 

54900  CRHOR-1. 

54910  OlSPLAY  : INPUT  DATA  OUT  OF  SEQUENCE  t UPON  CONSOLE. 

55U00  CLOSE-FILES. 

55010  PERFOH*^  write- <UC. 

55165  DISPLAY  : NO  OF  w.U.C.  : NO-WUC  UPON  CONSOLE* 

55160  OlSPLAY  : NO  N1  PRINT  HEC  $ NO*REC»PRlNT-Nt  UPON  CONSOLE. 

55190  OlSPLAY  : END  OF  JOB  C9697  I UPON  CONSOLE. 

55200  CLOSE  OuT-OAT/ ♦ 

55240  OuT-PRlNT-NI* 

55250  OuT-TlTLES  WITH  LOCK. 

55290  GORxCk. 

61500  ACC-HMC. 

61510  AOO  HMC-lN-1  TO  HMC-Nl-l. 

61520  ADD  HMC-lN-2  TO  HMC-NI-2. 

61530  AOO  HMC-lN-3  TO  HMC-NI-3. 

61540  AOO  HMC-lN-4  TO  HMC-Nl-4. 

61550  AOO  HMC-lN-5  fO  HMC-NI-5. 

61560  AOO  HMC-Iri-6  TO  HMC-NI-6. 

61570  AOO  HMC-lN-7  TO  HMC-NI-7. 

61560  AOO  HMC-lN-6  TO  HMC-Nl-6. 

61590  AOO  HMC-lN-9  fO  HMC-NI-9. 

61600  AOO  HMC-lN-lfl  TO  HMC-NI-IO, 

61610  AOO  HMC-lN-11  TO  HMC-NI-11. 

61620  AOO  HMC-lN-12  TO  HMC-NI-I2. 

61630  AOO  HMC-lN-13  TO  HMC-NI-I3. 

61640  AOO  HMC-lN-14  TO  HMC-NI-14. 

61650  AOO  HMC-lN-15  TO  HMC-NI-I5. 

61660  AOO  HMC-lN-16  TO  MHC-NI-16. 

61670  AOO  HMC-lN-17  TO  MMC-NI-I7, 

61660  ADO  HMC-lN-18  TO  MMC-Nl-18. 

61690  ADO  HMC-lN-19  TO  MMC-NI-19. 

61700  AOO  HMC-lN-20  .0  HMC-Nl-20. 

61710  AOO  HML-lN-21  ’0  HMC-NI-21, 

61720  Ann  hmc-fhfq-in  to  hmc-freq-total-ni* 

61730  MOVt  ONE  TO  NT-L INE-FLAG. 

61740  GO  10  HEAo-UATA. 

61000  ACCUM-WUC-OATA. 

61010  AOO  HMC-lN-1  TO  WOC-FREQ-nI-I . 

61020  AOO  HMC-IN-2  TO  WOC-FHEO-Nl-2 . 

61030  AOO  HMC-lN-3  TO  WOC-FHEO-NI-3. 

61040  ADD  HNC-lN-4  TO  2nC-FrttO-NI-4 . 

61050  AOO  HMC-IN-5  TO  WOC-FREO-NI-5. 

61060  AOO  HMC-lN-6  fO  WOC-FHEQ-NI-6. 

61B70  AOO  HMC-lN-r  TO  WOC-FREO-Nl-7. 

61680  AOO  HMC-lN-8  .TO  WOC-FMEQ-Nl-8. 

61H90  AOO  HMC-lN-9  TO  WOC-FREO-NI-9. 

61900  AOO  HMC-IN-IO  fO  WOC-FREQ-Nl-lO* 

61910  AOO  HMC-lN-ll  JO  WOC-FRtQ-Nl-1 1 ♦ 


C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

098970 

098970 

C98970 

C9B970 

C98970 

C98970 

C98970 

098970 

C98970 

C98970 

C98970 

C98970 

098970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

098970 

098970 

098970 

098970 

098970 

098970 

098970 

098970 

098970 

098970 

098970 

098970 

098970 

098970 

098970 

098970 

098970 

090970 

090970 

098970 

098970 

098970 

098970 

098970 

090970 

098970 

098970 

098970 

098970 

098970 

098970 

098970 

098970 

098970 

098970 

098970 

096970 

098970 

098970 

C98970 

098970 

098970 

098970 

098970 

098970 

098970 

098970 

098970 


6-139 


1 


blS20 

AOO  HMC>1N>12  TO  i>0C-FRE0>n1>12« 

C98970 

61930 

AOO  HMC-1N>13  TO  MOC>FNLO>Nl-15< 

C98970 

61960 

AOO  HMC>IN>14  TO  M0C-FRE0«Nt>16i 

C 98970 

61950 

AOO  HMC>IN-1S  TO  60C>FRE0«nI-1S« 

C98970 

61960 

AOO  HHC>1N.16  to  hOCoFNEO-nI'IS* 

C90970 

61970 

AOO  MHC-IN-17  TO  BOC-FREO-Nl-lT. 

C98970 

61980 

AOO  HMC-1N>18  TO  M>C-FHE0-N1-18« 

C98970 

61990 

AOO  HMC-lN-19  TO  MOC-FHEO-Nt-19* 

C98970 

62000 

AOO  HMC-IN-20  to  «OC-FREO>Nl>tO« 

C98970 

62U10 

AOO  HHC-IN-ZI  TO  »OC-FRtO-Nl>2l. 

C90970 

62020 

AOO  HHC-FHEO-19  to  total-woc>freo>ni. 

C90970 

TObOO 

RCSET-WUC-FkEO, 

C98970 

TublO 

HOVE  zero  to  aOC-FREO-Nl-l. 

C98970 

70!>20 

MOVb  CEHO  to  bOC-FREO-Nl-2, 

C98970 

70!>30 

MOVE  /ErO  to  «7C-FRE0-N1-3. 

C98970 

70!>«0 

MOVE  2EHO  TO  aOC-FREO-Nl-4. 

C98970 

70!>50 

MOVE  CEkO  to  aOC-FREO>Nl>5. 

C90970 

70!>60 

MOVb  CEHO  to  aJC>FREO-Nl>6. 

C98970 

70S70 

MOVE  CEHO  TO  lOC-FREO-NI-7. 

C98970 

70b80 

MOVb  2EH0  to  aOC-FHEO-Nl>8. 

C98970 

70b9O 

MOVE  CEHO  to  aOC-FREO-Nl-9. 

C98970 

70600 

MOVE  2EHO  TO  bDC-FREO-Nl-lo. 

C90970 

70610 

MOVE  zero  to  vOC*FREO-N1-11. 

C90970 

70620 

MOVE  2EhO  to  m0C-FRE0-N1>12. 

C98970 

70630 

MOVE  zero  to  aJC-FRE0-Nl>t3. 

C90970 

70640 

»IOVE  zero  to  k7C-FRE0-Nl-14. 

C98970 

70650 

move  zero  to  at)C-FREO-Nl>ls. 

C90970 

70660 

MOVb  zero  to  MJC-FRbO*Nl-16. 

C98978 

70670 

MOVb  zero  to  aJC-FREO-Nl>17. 

C98970 

70680 

MOVE  zero  to  a1C-FRE0-Nl>18. 

C98970 

70690 

MOVE  2ER0  to  aOC-FREO-Nl-lq. 

C98970 

70700 

MOVE  zero  to  aOC-FREO-Nl-OO. 

C98970 

70710 

MOVE  zero  to  a )OFREO-Nl-2l. 

C98970 

70720 

MOVb  2ENO  TO  TOTAL-aDC-FREO-NI . 

C98970 

/• 

PLACE  COBOL  SOURCE  8EP0f)E  THIS  CARO 

//CM«, 

TPOIN  DO  •tSPACLHCTLtClUll 

IMO  CDS 

/• 

PLACE  TPG  DATA  FEFORE  THIS  CARO  ' " 

//IPR. 

TU12 

DU  D 1SP>C  OLD>  KEEP !• VOL>SeR>«Fl »UNIT>T*F1 

Til 

//TPR, 

TU14 

DU  DlSP>C0LD>KCEPltV0L>SCR>4FS>UNIT>T4F3 

T14 

//IPR. 

TU24 

DO  DlSPl :0L0>KECPl«V0L>SCR>«F7tUNlT>TtF7 

TI6 

//TPR, 

TPRIN  DO  ••SPACCHTRK.tl*!]! 

T/P  TU12 

10101302130 

T/P  TU14 

10101302130 

T/P  Tg24 

IIOOUOROOO 

/# 

PLACE  T/P  CONTROL  CAROS  BEFORE  THIS  CARO 

ifa1M»ih 


6.  8 PROGRAMS  FOR  MANHOUR  AND  NOR  TIME  ANALYSES 
6.  8. 1 PREPROCESSOR  - TASK  H 


//T9697N  JO0 
//C 96976  exec 
//CHG.TU14 
// 

U 

//CHG.TU22 

// 

// 

//CHG,TU2i| 

// 

// 

//CHo. Input 
uouoo 
01U40 
D1U50 
UlUtiU 
U1U70 
u2aoo 

U201U 
U2U20 
02a3u 
02100 
02110 
U212U 
0213U 
U21<«0 
0216U 
U216CI 
02170 
02160 
U219U 
02200 
U221U 
lOUOO 
lOUlO 
10100 
10120 
10130 
lOlHU 
10150 
lOlbO 
102U0 
10210 
1022U 
lUOU 
11320 
1133U 
1134*U 
11350 
11360 
11*»00 
llHlU 
12100 
12120 
12130 
1214U 
12150 
12160 
12200 
12210 
13300 
13320 
13330 
13340 
13350 
13360 
13400 
13410 
14100 
14120 
14130 
14140 
14150 
14160 
14200 
14210 
30U00 
30012 
30U15 
30ulb 
30017 
30U20 


01*1  6 WANG  X•PRTV>0^*Ty^6UN>HOLD 

P96b5C*TIMe>lSiACCT>0 55325007 

00  OISP>C iPASS)*UNlT>CT^F5«l*OefEft)#DSN>^C.96979l6i 
VOL>SeR>CiF3*A4F5»b6F3*C^P5*D4P5«e4F3*FiF5«G^F5»NiF5i 
j^F5*K4F5«L«F5*M6F5«N6F5*04F5*P4F5«9»F5iR^F5iS^F53 
OU  0ISP>CipASS]»UNlT>CT4F5»l*OeF£H)*0SN>^e«9697952» 

V0L>SLR>C iFai A^FSt6^F5#C^F5#0«F5*e4F5*FiF5*6^F5»H6F5i 
|4F6i  j4F5iK^F5iC4F5»H4Ft>*N4F5*04F5*P4F5#04Fb»K^F5»S^Fb3 
Ou  UI5P>C  I PASS  l«UNlT>lT4F7*l*DeFe«<)#05N>46  •9697429* 
V0L>SeR>C4f 7iA4F7g84f 7*C4F7*D4F7*e4F7«F4F7i64F7iH4F7« 
I4F  li J4F7iK4f 7iL4f 7»M«F7*N4F7*04F7*P4F7»04F7iH4F7iS4F7) 
OU  ••SPACe>CCTL*ll*l]3 
COMUINC  COMPUL  G,  »ANG. 

UATt«WRlTlLU.  2U  APh  72. 

remarks* 

PtiAse  11  PHUGHAM 

TAS^  2A  MANhOUH  AnO  NOM  TIME  ANALYSIS* 

eNvlRONMCNT  division, 
configukauun  section. 

SOuHCe^COMPuTER.  ldM.36U« 

ObJLCT^COMPuTCR.  lBM«3bU. 
iNPUT-OuTPUf  SeCTlOi^. 

FILE-COuThOL. 

setter  iN.FiLe-u-d 

RtsLHve  1 ALTERNATe  AReA. 
setter  iN-Fite-ise 

RtstRve  1 Alternate  area* 

setter  pso-Fite 

RtstRve  1 alternate  area* 

StttCT  w»OT-Fltt-l 

RtStRtfe  1 alternate  area* 

setter  oUT-Fite-2 

RtstRve  1 Alternate  area* 

data  OlvlblON, 

Fltt  section. 

FO  IN-FUe-O-U 

RECvRUH^G  mode  is  f 
atOCK  contains  40  RECORDS 
HCCORu  CQUTAINS  TO 
tABtt  MtCORUS  are  omitted 
DATA  HttOROS  ARt  tN«ReC*0«6* 

|N*KeL«U*d  STNC* 


assign  to  UT-S-TU14 
assign  to  DA»S»0Tu1 

ASSIGN  TO  DA»S»DTo2 
ASSIGN  TO  UT*S»TU24 
ASSIGN  TO  UT*S»TU22 


charactehs 


01 


02  FUlEh 


lN*Fltt*tSe 
RECuRuING  mode  is  f 
btOCK  CONTAINS  20  RECORDS 
record  tOr4TA|NS  6U 
tABtt  RtCORUS  AkE  STANDARD 
data  hLCOrOS  ARt  1N«REC«1SC 
IN-MEC-I5C  SYNC* 

U2  FUlEr 
OUT-Fltfl 
RECORuInG  mode  is  f 
atOCK  CONTAINS  90  RECORDS 
RECuRU  vOnTAINS  20 
tAOtt  nlCORUS  AmE  omitted 
UATA  RttOHOS  ARt  OUT*REC«l« 
OuT-RtC-I  SYNC. 

U2  F IttER 
MSG-FILE 

RECORDING  MOM  IS  F 
BtOCK  contains  20  RECORDS 
RECORD  COtnAlNS  60 
tABtt  RECORDS  ARE  STANDARD 
DATA  RECORDS  «Rt  MSG-REC * 
MSG-RtC  SYNC, 

02  FlttER 
ODT-Fltt-2 
RECORDING  MOM  IS  F 
BtOtK  contains  90  RECORDS 
RECORD  CONTAINS  20 
tABtt  NtCOROv  are  omitted 
DATA  RECORDS  ARE  0DT«REC«2, 
ODT-RtC-2  SYNC. 

02  FlttER 

WORKING*STOhAgE  .ECTION. 

77  WDC*FtAG  SYNC  PICTDRE 
77  FtT*FtA(,  SYNC  PICTURE 
77  CDR-65  SYNC  PICTURE  X 
77  OATA-bS  SYNC  PICTURE  X 
77  CDRvFEK  STNC 


FO 


01 

FU 


01 

FO 


01 

FO 


01 


PICTURE  XC701, 


cnapacters 


PICTURE  xcao). 


CHARACTERS 


PICTURE  XC20  3, 


CHARACTERS 


PICTURE  XC60  3. 


characters 


PICTURE  XC20  3, 


X VALUE  SPACE, 

* VALUE  SPACE, 
VALUE  SPACE, 
VALUE  SPACE, 
PICTURE  999* 


CT14 

CT14  2 
T14  3 

CT22  1 
CT22  2 
T22  5 

CT24  1 

CT24  2 

T24  5 

1440  COS 
C96970 
C96970 
C96970 
C96970 
C96970 
C9a970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
€96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
€96970 
C96970 
C96970 
C9B970 
C96970 
C90970 
€96970 
€96970 
C96970 
C96970 
€96970 
€96970 
C96970 
C9B970 
C96970 
€96970 
€96970 
C96970 
€96970 
€96970 
€96970 
€96970 
€96970 
€96970 
€96970 
C96970 
€96970 
C 96970 
C96970 
C90970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C 96970 
C96970 
C96970 


30U30 

77 

COR' 

-StR-NO  SYNC 

picture 

xio). 

C90970 

30040 

77 

COR 

-ISC  SYNC 

PICTURE 

X. 

C98970 

30U&0 

77 

KNT 

SYNC  CON"yTATIONAL 

PICTURE 

S999. 

C98970 

30U60 

77 

week-temp  sync 

picture 

999. 

C96970 

30U70 

77 

0ELT*-WEEk  sync 

PICTURE 

S999. 

C98970 

30U00 

77 

oelta-elt-hrj  sync 

picture 

S999999. 

C90970 

30U90 

77 

CUR< 

-flt-hps  sync 

picture 

S999999, 

C98970 

30100 

77 

FL*«  SYNC  COMPOTATIONAL 

PICTURE 

S999  VALUE  ZERO. 

C98970 

30110 

77 

HMC 

-TtMP  SYNC 

PICTURE 

XXX. 

C90970 

30120 

77 

NO- 

mmc  sync  '.OMPUTRTIONAL 

picture 

S999  VALUE  <IO0. 

C98970 

30130 

77 

NO- 

rec-1  sync 

PICTURE 

S9tT)  value  zero. 

C96970 

30140 

77 

fgO. 

REC-2  sync 

PICTURE 

S9I7)  value  zero. 

C98970 

301S0 

77 

HAX 

-No-HMC  S.'NC  COMPUTATIONAL 

C98970 

30160 

PICTURE 

S999  VALUE  ZERO. 

C98970 

30170 

77 

cny 

SYNC  computational 

PICTURE 

S999. 

C96970 

30380 

77 

ONE 

SYNC 

PICTURE 

X VALUE  1I>. 

C96970 

30390 

77 

THO 

SYNC 

PICTURE 

X VALUE  121. 

C98970 

30391 

77 

three  Sync 

PICTURE 

X VALUE  IS). 

C98970 

30392 

77 

FOUH  SYNC 

PICTURE 

X VALUE  Ul. 

C96970 

30400 

77 

ISC 

-YEMP 

SYNC 

PICTURE 

XI «)  VALUE  SPACE. 

C96970 

30410 

77 

PREW- TESTED- *.N 

SYNC 

PICTURE 

XIB)  VALUE  SPACE. 

C96970 

30420 

77 

ISC 

-FLAb 

SYNC 

picture 

X VALUE  SPACE. 

C98970 

30430 

77 

M1N< 

-16C-WCEK  SYNC 

computational  picture  S900  VALUE  <9«0.  COSOTO 

30600 

77 

CORWOC  SYNC 

PICTURE 

xcsi. 

C98970 

30606 

77 

CUR< 

•HMC  SYrC 

picture 

XXX. 

C98970 

30610 

77 

ISCHRONAL  sync 

PICTURE 

X. 

C98970 

30620 

77 

SON-NORM  SYNC 

PICTURE 

S9t6)  VALUE  zero. 

C96970 

30630 

77 

SOM-MAU-HR  SYNC 

PICTURE 

S9t61  VALUE  ZERO, 

C98970 

30640 

77 

SUM 

-na  sync 

PICTURE 

S9tsi  value  zero. 

C98970 

306S0 

77 

CUR 

-10  SYNC 

PICTURE 

9. 

C98970 

31U10 

01 

NO- 

ISC  SYNC. 

C9S970 

31020 

02 

filler 

PICTURE 

XX. 

C96970 

31030 

02 

no-tsc-ac 

PICTURE 

S999. 

C96970 

31U40 

02 

filler 

PICTURE 

XI TS). 

C98970 

31US0 

01 

ISC 

• A-C  SYNC. 

C98970 

31060 

02 

filler 

picture 

XX. 

C98970 

31070 

02 

ISC-TN 

PICTURE 

XfO). 

C98970 

31080 

02 

filler 

PICTURE 

XX. 

C98970 

31090 

02 

ISC-WK 

picture 

999. 

. C96970 

31100 

02 

filler 

picture 

Xt6S). 

C98970 

31200 

01 

pillen  sync, 

C98970 

31206 

02 

filler  occurs 

36  times. 

C90970 

31210 

0]  ISC-AC-TN 

PICTURE 

XIO). 

C98970 

31220 

0]  ISC-  AC-WK 

computational  picture  S»99. 

C98970 

31300 

01 

OAYA-bANK-lNPOT  SYNC, 

C98970 

31310 

02 

filler 

PICTURE 

XIS). 

C98970 

31320 

02 

SLR|Al-NO 

PICTURE 

XIS). 

C96970 

31330 

02 

week 

PICTURE 

999. 

C96970 

31340 

02 

WUC 

PICTURE 

XIS). 

C96970 

31350 

02 

WUC-B  redefines  WUC. 

C98970 

31360 

03  »UC-2 

PICTURE 

XX. 

C96970 

31370 

03  FltlCR 

PICTURE 

XXX. 

€98970 

31380 

02 

filler 

PICTURE 

X. 

€98970 

31390 

02 

HMC 

PICTURE 

XXX. 

€98970 

3140U 

02 

uNirs 

PICTURE 

S999. 

€98970 

31401 

02 

MAN-HH 

picture 

S9(9). 

€98970 

31402 

02 

filler 

PICTURE 

XT  SI. 

€98970 

31403 

02 

nqhm-hr 

PICTURE 

S9t9  J. 

€98970 

31404 

02 

N0R6-HR 

PICTURE 

S9t9J. 

€98970 

31406 

02 

filler 

PICTURE 

XtS). 

€98970 

31420 

02 

lUENV 

PICTURE 

9. 

€98970 

3148U 

02 

filler  picture  Mr]. 

€98970 

31460 

02 

FLT-hrs  picture  SK«). 

€98970 

31470 

02 

filler  picture  will]. 

€98970 

31600 

01 

OOT-OAYA  SYI.C, 

€98970 

31610 

02 

WUC -out 

PICTURE 

XI S). 

€98970 

31620 

02 

nhc-out 

PICTURE 

XXX. 

€98970 

31630 

02 

filler 

PICTURE 

X VALUE  SPACE. 

€98970 

31540 

02 

ObS 

PICTURE 

S9C6). 

€98970 

316S0 

02 

filler 

PICTURE 

X VALUE  SPACE. 

€96970 

31660 

02 

ISC-OUY 

PICTURE 

X. 

€98970 

31670 

02 

filler 

PICTURE 

X VALUE  SPACE. 

€98970 

31680 

02 

data-tt’e 

PICTURE 

X. 

€96970 

31690 

02 

filler 

PICTURE 

X VALUE  >01. 

€96970 

31800 

01 

NINE  SYNC, 

€96970 

31810 

02 

filler 

PICTURE 

XttO)  VALUE 

€98970 

31820 

1 999q90909<>99999999991 . 

€98970 

32U00 

01 

SPE(.*RUC  SYNC* 

€98970 

32U10 

OS 

ci-hpf 

PICTURE 

XISI, 

€96970 

32U20 

os 

CI-MAl.l 

PICTURE 

XI  s). 

€98970 

32U30 

os 

Cl-MAl-Z 

PICTURE 

XIS], 

€98970 

32U40 

OS 

CI-MAl-J 

PICTURE 

XI  s). 

€96970 

32U60 

os 

Cl -PERI 

PICTURE 

xIS). 

€98970 

32060 

os 

Cl-IRAT' 

PICTURE 

XIS). 

€96970 

32U70 

OS 

Cl-PREFLT 

PICTURE 

XIS). 

€96970 

32U80 

os 

Cl-OPOST 

PICTURE 

XIS). 

€96970 

32090 

os 

Cl-SMPfST 

PICTURE 

XIS). 

€96970 

G-142 


32100 

32110 

32120 

30U00 

50U10 

50U20 

S0030 

50040 

50U50 

50060 

50U70 

50060 

50100 

50120 

50130 

50140 

50130 

5U160 

50170 

50160 

50190 

50200 

50210 

50220 
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05-  6*P-WK.l 

PICTURE  99. 

C96970 

05  6AP-¥K-2 

PICTURE  99. 

€98970 

05  filler 

PICTURE  XtSlJ. 

C96970 

PROCEOUHE  DIVISION. 

C98970 

opln-files. 

C96970 

OPEN  INPUT  IN-PlLC-O-e*  IN-PILC-ISC. 
OPEN  OUTPU’  MSG-PILE. 

OPEN  OUTPUT  OUT-PlLE-lf  OUT-riLE-2. 
PERFORM  ReAO-ISC-A-C  THRU  ENO-RUC. 

read-initial. 

READ  IN-FllE-O-ti  INTO  0ATA«BANK-1NPUT» 
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AT  CNO  GO  TO  €LOSE*PIteS. 

CHE€K-DATA. 

IF  IOLNT  is  equal  TO  3 AND  WUC-2  1$  EQUAL  TO  1031  80  TO 
PRO€-ll-l. 

IF  lOLNT  If  equal  TO  3 AND  WU€-2  1$  EQUAL  TO  1041  QO  TO 
PHOC-11-1. 

IF  lOLNf  15  equal  TO  3 ANO  WUC-2  1$  GREATER  THAN  1091  QO  TO 
PRO€-lt«2A. 

IF  IOENT  ir  equal  to  4 go  TO  PRO€-ll-2B. 

GO  TO  RlAO-1N1T1AL. 

PRO€-ll-l. 

PERfORM  €H.€K-15€HR0NAL  THRU  EN0-€1. 

HOVL  1S€HR^NAL  TO  €UR-1S€. 

HOVE  IOLNT  to  €UR-10. 

MOVE  WU€  TJ  €URhu€. 

MOVL  «LlK  ‘'O  €URWEEK« 

HOVL  SLHlAl.-NO  TO  €UR«SER-NO. 

MOvL  FLT-^WS  TO  €UR-FLT-HRS. 

MOVL  TWO  T)  cur-65. 

IF  nokm-hr  less  Than  2ER0  move  one  to  cur-65. 

INIT-SET. 

MOVL  UNI  Tw  PJ  T-FlAU. 

ir  nUL  LOu^L  fo  CI-I'HULT  MOVf  two  to  FLI-FLAQi 

IF  wUL  LOilAL  TO  Cl-H(»USr  MOVE  TWO  TO  FLT-FLAQ. 

IF  mUL  lOu*«L  to  C1-5HP05T  MOVE  TWO  TO  FLT-FLAQi 

COMPUTE  SU ’-NORM  > 0. 

IF  FLT-rLAA  (OI)Al  TO  ONL  AnO  NORM.HR  GREATER  THAN  2ER0 
MOVE  nohm-hk  to  Sum-norm. 

MOVE  HAN-H.!  TO  SUM-MAN-HR. 

ACC-set. 

HEAu  IN-FlCL-O-a  INTO  OATA-BANK-INPUT 

AT  ENO  GO  TO  CLOSE-FILES. 

PERFORM  CKTCK-lSCHflONAL  THRU  END-Cl. 

IF  iSLHKONtL  IS  HOT  EQUAL  TO  tUR-lSC  GO  TO  SET-BREAk. 

IF  IDENT  NOT  EQUAL  TO  CUR-10  GO  TO  SET-BREAK. 

IF  kUC  NOT  equal  TO  CURwUC  GO  TO  SET-BREAk. 

IF  SERlAL-MO  NOT  EQUAL  TO  CUR-SER-NO  GO  TO  SET^BREAk. 

MOVE  TWO  TO  0ATA-b5. 

IF  NORM-HH  less  than  2ERO  MOVE  ONE  TO  DATA»65. 

GO  TO  ChEC  -type, 

NOT-SP-TYHE. 

SURTRACr  CURWEEK  FROM  wtEK  GIVING  WEEK-TEMP, 

IF  kEEK-TE.iP  NOT  EOUAfc.  TO  l 

GO  TO  internal-break, 

AGO  MAtl-HR  TO  SUM-MAN-HR. 

MOVE  ONE  TO  FLT-FLAG, 

IF  kUC  EOL\L  TO  Cl-PREFLT  MOVE  TWO  TO  FtT-FLAG* 

IF  WUC  EQUAL  TO  Cl-BPQST  MOVE  TWO  TO  FLT-FLAG. 

IF  WUC  equal  to  Cl-SHPOST  MOVE  TWO  TO  FLT-FLAG. 

IF  FET-FEA3  EQUAL  TO  ONE  ANO  NORM.HR  GREATER  THAN  ZERO 
Ar*)  NORM-HR  TO  SUM-NORM. 

IF  fLT-FLAG  equal  TO  TWO  COMPUTE  SUM-HORM  > 0. 

MOVE  WEEK  TO  CURWEtK. 

MOVE  FET-61S  TO  CUR-FLT-HRS. 

IF  CUR-65  EQUAL  TO  TWO  OR  OATA-65  EQUAL  TO  TWO 
MOVE  Two  TO  CUR-65. 

MOVE  IOENT  TO  CUR-10. 

GO  TO  ACC- ;et. 

SET-BREAK. 

perform  WRITE-1  THRU  ENO-WRlTE-1. 

COMPUTE  Sum-norm  > o. 
compute  sum-man-hr  > 0. 

GO  TO  CHE(H-0ATA. 

INTERNAL-bKLAK. 

perform  WRlTt-l  THRU  ENO-WRlTE-1. 

MOVL  WELK  TO  CURWEEK. 

MOVL  FET-JRS  to  CUR-FLT-HRS. 

MOVE  UATA-65  TO  CUR-65. 

MOVE  10EN1  TO  CUR-10. 

GO  TO  lNi;-5tT. 

NOTE  write  NORM-HR  ANQ  MAN-MR  TOTALS  ON  OUTPUT  FILE, 
WRlTE-1. 

MOVE  tUR-iSC  TO  ISC -OUT. 

MOVE  CURW, c TO  WUC-OUT. 

MOVE  SPACr  TO  HMC-OUT, 

IF  FLT-FLAG  EOUAL  TO  TWO  GO  TO  WRlTE-l-A, 
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1^0b76  IF  CUK-bb  EQUAL  TO  ONE  GO  TO  WRlTC^l^A* 

bObOO  MOVE  bUM-  'ORM  TO  06S« 

50b90  MOVE  ONE  DATA-TYPE. 

bObOO  write  OUT-REC-2  FROM  OUT-DATA. 

bOblO  ADD  1 TO  ( O-REC-2. 

bOblb  WRITE-I-A. 

b062U  HOVE  bUM-HAN-HR  TO  06$. 

bObSO  MOVE  T«*0  tO  DATA-TYPE. 

b0640  WRITE  OUT'  REC-2  FROM  OUT-DATA. 

tObbO  ADO  1 TO  ^'0-REC-^• 

b0660  END-WRITE-1.  EXIT. 
blOOO  check-type. 

51U10  MOVE  ONE  0 WUC-FLA6. 

blU20  IF  WUC  tQ<IAL  TO  Cl-HPF  MOVE  TWO  TO  WUC-FLAQ. 

blU30  IF  wUC  EQUAL  TO  Cl-MAl-I  MOVE  TWO  TO  WUC-FLAG. 

blU4U  IF  wUL  EQJAL  TO  Cl-MAl-2  MOVE  TWO  TO  WUC-FLAQ. 

blUbO  IF  WUC  EQ'IAL  TO  Cl-MAi-3  MOVE  TWO  TO  WUC-FLAQ. 

blObO  IF  wUC  equal  to  Cl-PERI  MOVE  TWO  TO  WUC-FLAQ. 

blUTO  IF  WUC  EQJAL  TO  CI-IRAN  MOVE  TWO  TO  WUC-FLAQ. 

blueO  IF  WUC-FL\6  EQUAL  TO  ONE  60  TO  NOT-SP-TYPE* 

blU90  SUDTRACr  CURWEEK  FROM  WEEK  GIVING  W££K-TCMP. 

bllOO  5P-TYPE.  • 

blllO  IF  wUC  LE^S  THAN  CI-PERl  AND  WEEK-TEMP  GREATER  THAN  GAP-WK-A 

bill!  60  TO  INTERNAL-OREAK. 

bll20  IF  WUC  greater  THAN  Cl-MAl-3  AND  WCEK-TEMp  GREATER  THAN 

bll21  6AP-W^-2  60  TO  INTERNAL-OREAK* 

bll32  ADO  MAN-H  TO  SUM-MAN-HR. 

bll34  IF  NORM-HR  GREATER  THAN  2ER0  ADO  NORM-HR  TO  SuM-NORM. 

bll40  MOVE  WEEK  TO  CURWEEK. 

bllbO  MOVE  FLT-.lRS  TO  CUR-FLT-HRS* 

bllb2  IF  UAfA-^l  EQUAL  TO  TwO  OR  CUR-6S  EQUAL  TO  TWO 

bllbS  MOVE  TWO  TO  CUR-65. 

bllb4  MOVE  lOENr  TO  CUR-ID. 

bll60  60  TO  ACC.bET. 

bbUOO  PR0C-II-2A. 

bSUlO  perform  CHECK-IbCHRONAL  THRU  ENO-Cl. 

bb020  MOVE  ISCK<0NAL  TO  CUR-ISC. 

bbUSn  MOVE  wUC  ^0  CURWUC. 

bbUbO  MOVE  bERlAL-NO  TO  CUR-SER-NO. 

bbObO  MOVE  IOEN<'  TO  CUR-IO. 

bbOTO  PERFORM  WUTE-2  THRU  END-WRlTE-a. 

bOU72  MOVE  TWO  TO  CUR-6b. 

bb073  IF  NORM-HR  LCSb  THAN  ZERO  MOVE  ONE  TO  CUR*6S. 

bb07b  SET-NEW. 

bboflo  COMPUTE  Sum-norm  > o. 

bbUiM  IF  NOrM.»  i greater  THAN  ZERO  MOVE  NORM-HR  TO  SUM-NORM. 

bbOQO  MOVE  UNITS  TO  bUM-MA, 

bbOP2  IF  UNITS  EOUAL  TO  ZERO  GO  TO  SET-FLAG. 

bbU93  MOVE  CURWJC  TO  WUC-OUT. 

bSU94  MOVE  CUR-IbC  TO  IbC-OUT. 

5SU9S  PERFORM  WRITE-3  THRU  ENO-WRITE-3. 

bbU96  read  IN-FlLE-D-b  INTO  DATA-eANK-INPUT  AT  END  GO  TO  COF-BRK. 

bSU97  60  TO  OrE\K-1, 

bblOU  set-flag. 

bbl30  READ  IM-FlLE-D-O  INTO  DATA-eANK-INPUT 

bbl40  at  end  go  tO  EOF-BRK* 

bblbO  PERFORM  C HECK- ISCHRONAL  THRU  ENO-CI. 

bblbO  IF  ICENT  EOUAL  TO  CUR-IO 

bblTO  PERFORM  WRlTE-2  THRU  ENO-WRlTE-2. 

bbieO  IF  ISCHR  NAL  NOT  EQUAL  TO  CUR-ISC  GO  TO  BREAK-1. 

bbl90  IF  wUC  N^^T  EOUAL  TO  CURWUC  GO  TO  BREAK-i. 

bb200  IF  SERIAL-NO  NOI  EQUAL  TO  CUR-SER-NO  GO  TO  BREAK-I. 

bb2I0  IF  lOLNT  NOT  EOUAL  TO  CUR-lO  60  TO  BREAK-l. 

bb2l2  MOVL  two  to  0ATA-6b.  . 

bS21i  IF  NORM-MR  LEbS  THAN  ZERO  MOVE  ONE  TO  OATR-GB. 

bb21b  IF  cUR-bb  EQUAL  TO  TWO  OR  OATA-65  EQUAL  TO  TWO 

bb216  MOVE  TWO  TO  CUR-6b. 

b522U  IF  NORM-f*K  GREATER  THAN  ZERO  AQO  NORM-HR  TO  SUM-N0RM» 

bb230  ADD  UNII^  TO  SUM-MA. 

bb231  IF  UNITS  NOT  EQUAL  TO  ZERO  GO  TO  tNT-BREAK. 

bb232  CO  TO  SE'.-FLAG. 

bb240  INt-BREAK. 

bb2bO  MOVE  CURWUC  TO  WUC-OUT. 

bb260  MOVE  CUR-ISC  TO  ISC-OUT.  , ’ 

bb270  PERFORM  .KirE-3  THRU  END-WRlTC-5. 

bbZflO  COMPUTE  "UM-NOKM  > 0. 

bbZnZ  COMPUTE  bUM-MA  > 0. 

bb2e4  GO  TO  SL.-FLAG. 

bb290  eREAK-1. 

bb322  COMPUTE.  SuM-NOKM  > 0. 

bb324  COMPUTE  SUM-MA  > 0. 

b5330  GO  TO  CHfCK-DATA. 

bb390  WRITE-2. 

bb39b  IF  NOmS-Hr  LEbb  THAN  ZERO  00  TO  END-WRlTC-t* 

55400  MOVE  ISC».RON*L  TO  ISC-OUT. 

55410  MOVE  WUC  TO  WUC-OUT. 

55420  MOVE  SPACE  TO  HMC-OUT. 
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bSH^O 

55440 

55450 

55460 

55470 

55<‘80 

55482 

55500 

55510 

55520 

55520 

55540 

55550 

55551 

55552 
55552 

55554 

55555 

55556 
55560 
55:>70 
55380 
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b0U70 

boueo 

60U<)0 

60100 
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60250 
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60410 

60420 

60420 

60440 

60450 

60460 

60470 

70000 

70005 

70010 

70020 

70020 

70040 

70050 

70060 

70070 

70075 

70076 
70080 
70085 
70U90 


MOVL  N0h5«HR  to  OHS* 

MOVL  Four  TO  DATA-TYPE. 

WRITE  0U’‘-REC-2  FROM  OUT-OATA. 

ADD  1 TO  NO-REC-2* 

END-WRIU-2*  exit. 

WMlTE-2. 

IF  CUK-65  EQUAL  TO  ONE  GO  TO  END-tfRIte«3* 

MOVL  SPACE  TO  HMC-OUT, 

OIVIDL  S..M-MA  INTO  SUM«NORM  61VINO  OBS. 

MOVL  THH^E  TO  OATA-TYPE* 

6R1TE  OUT-REC-2  FROM  OUT-OATA* 

ADO  1 TO  NO-REC-2. 

enu*write-2*  exit* 

EOF-bRK. 

IF  SUM-NORM  equal  TO  ZERO  QO  TO  CLOSE-FILES* 

MOVL  CUKnUC  to  WUC-OUT* 

MOVL  LUH  ISC  TO  ISC-OUT* 

PEPf-ORM  'RirE-2  THRU  ENO-WRITE-^* 

GO  TO  ClOSE-FILLS* 

REMAPK-2* 

NOTE  OMPllTE  RATIO  OF  MH  TOTAL  OVER  M*  TOTAL 

r'ATA  sank  rlcoro  type  4* 

PR0C-11-2H. 

PERFORM  chECK-ISCHRONAL  THRU  ENO-Cl* 

MOVL  ISC  'RONAL  to  CUR-lSC* 

MOVE  tRUC  TO  CURWUC* 

MOVE  SLkIAL-NO  to  CUR-SER-NO* 

MOVL  lOL'.T  10  CUR-10* 

MOVL  HMc  TO  CUH-HMC* 

SET-NEW-2. 

MOVL  MAN-HR  TO  SUM-MAN-HR* 

MOVL  UNI  S TO  SUM-MA* 

IF  UNlTb  EOUAL  TO  2LR0  GO  TO  SET-FLA6-2* 

PERFORM  ViRlTE-4  THRU  ENO-WRlTe-4* 

REAu  IN-.  ILE-O-H  INTO  OATA.eANK-lNPUT  AT  ENO  OO  TO  EOF-BRK-t 
GO  TO  b»rAK-2. 

set-flag-2* 

REAU  IN-FILE-O-H  INTO  OAT A-RANK-INPUT 

at  ENO  GO  TO  EOF-BRK-2* 
perform  ChECK-ISCHRONAL  thru  ENO-Cl* 

IF  ISCHhONAL  NOT  EOUAL  TO  CUR-ISC  GO  TO  fiReAK-2* 

IF  wUC  NUT  equal  to  CuR«UC  GO  TO  BReAK-2* 

IF  seRlAl-NO  NOT  EOUAL  TO  CUR-SEP-NO  GO  TO  BREAk-2* 

IF  KLNf  NOT  equal  TO  CUR-10  GO  TO  BREAK-2, 

IF  M'-v  NOT  equal  to  CuR-HMC  GO  TO  BREAK-2* 

AOO  MAN-iR  TO  SUM-MAN-HR* 

ADD  UNIT'  TO  SUM-MA* 

IF  UNITS  NOT  equal  TO  ZERO  GO  TO  INT-BRCAK-G* 

GO  TO  Sti-FLAG-2* 

Int-ohtak-z* 

PLRFORM  WRITE-4  thru  ENO-tfRire-4* 

COMPUTE  SUM-MAN-HR  > 0* 

compute  SuM-MA  > U. 

GO  TO  StT-FLAG-2* 

BREAK-2* 

COMPUTE  SUM-MAN-HR  > 0* 

COMPUTE  SuM-MA  > 0. 

GO  TO  Cl  ^.CK-OATA, 

QHIIL-4* 

MOVE  CUR2UC  TO  WUC-OUT, 

MOVC  CUH-ISC  TO  ISC-OUT* 

MOVE  CUR-HMC  TO  HMC-OUT* 

IF  SUM-MA  equal  TO  ZERO  AOO  1 TO  SUM-MA* 

OIVIDL  SOM-MA  INTO  SUM-MAN.HR 
giving  OBS, 

MOVL  ONE  TO  OATA-tYPE* 

write  Ouf-REC-I  FROM  OUT-OATA* 

AOO  1 TO  NO-REC-1* 

ENU-wRlTE-4*  EXIT* 

EOF-HRK-2* 

IF  SUM-M*.N-HR  equal  TO  ZERO  GO  TO  CLOSE -FILES* 

PERFORM  i'RlTE-4  THRU  ENO-WRlTE-G* 

60  TO  CLOSE-FILES* 

REAU-ISC-A-C* 

KEAU  IN-i  ILE-ISC  INTO  SPEC-WUC  AT  ENO  GO  TO  EnO-RIAC* 

HEAU  IN-'*ILE-ISC  INTO  NO-ISC  AT  ENO  GO  TO  EMO-RlAC* 

MOVE  ZERO  TO  KNT, 

RIAC* 

AOO  1 TO  KNT* 

REAu  IN-MLE-ISC  INTO  ISC-A-C  AT  ENO  GO  TO  ENO-RIAC* 

MOVE  ISC-TN  TO  ISC-AC-TN  CKNTJ* 

MOVL  ISC-wK  TO  ISC-AC-MK  CKNTI* 

IF  lSC-w..‘  IS  LESS  than  Mxn.|SC-WEEK  MOVE  ISC-WK 
TO  MIN-ISC-WEEK* 

IF  KNT  IS  LESS  THAN  NO-ISC-AC  GO  TO  RIAC* 

CLOSE  ir^-FlLE-lSC  WITH  LOCK* 

END-HIAC*  LA^T* 
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70^00  CMtCK*ISCHhu*ML. 

70^10  IF  SEHIAL-NO  is  NOT  EQUAL  TO  PREV-TESTCO-SN  00  TO  CHCCk«1«2* 

70^20  IF  ISt-FuAG  IS  EOUAL  TO  TWO  GO  TO  ENO-Cl* 

70230  IF  ISCHK)NAL  IS  EQUAL  TO  ONE  AnO  WEEK  IS  NOT  LEsS  THAN 

70232  MIN*lSC*weEK.  THEN  00  TO  ENO*Cl« 

70240  CHLCK-I-2. 

702b0  MOVL  TWO  fO  ISCHROML. 

70260  IF  i*ELK  IS  LESS  THAN  HIN-lSC*WEEK  00  TO  END*C1* 

70270  MOVL  2Km0  TO  CNT, 

70200  CHECK-I-1. 

70290  ADO  I Tt  CNT. 

70300  MOVL  ISL^AC*TN  CCNTJ  TO  ISC«TENP* 

70310  IF  SEHIAu-NO  IS  LESS  THAN  ISC^TEMP  00  TO  CHtCK-I-R. 

70320  IF  SEHIA--NO  IS  EQUAL  TO  ISC^TEMP  00  TO  CHeCK*l«lA» 

70330  IF  CNI  1%  LESS  THAN  NO-ISC-.AC  GO  TO  CHCCK«t*l. 

70340  CHLCK-I-4. 

703‘>0  MOVL  TWU  TO  ISC-FLAG. 

703h0  00  TO  CH^CK-I*3. 

70370  CHECK-I-IA, 

703B0  MOVL  ISC*AC-WK  CCNTl  TO  WE£K*TEMP. 

70390  IF  mLlK-VEMP  IS  EQUAL  TO  WEEK  OR  WEEK  IS  GREATER  THAN 

70400  tvEfcK-*EMP  MOVE  ONE  TO  ISCHRONAL^ 

70410  MOVL  ONt  TO  ISC-FLAG. 

70430  CHECK-I-3. 

70440  MOVt  SLhiAL-NO  TO  PHE V-TESTEO-SN. 

70m>0  ENO-CI.  EXIT. 

70SIO  NINL-FIlL-2. 

70‘>20  write  Our-RfcC-2  FROM  NINE. 

70b30  AOO  I TC  KNT. 

70S40  IF  KNT  IS  LLSS  THAN  90  GO  TO  NINE-FILL-2. 

70S50  N-F-2.  EXIT. 

70b00  NiNt-F Ill-1. 

70bl0  WRITE  Ol'-REC-I  FROM  NINE. 

70b20  AOO  I TO  KNT. 

70b30  IF  kNT  is  LLSS  THAN  90  GO  TO  N1NC<.F1LL-I. 

70640  N-F-I.  exit. 

7I«00  CLOSE-FILLS. 

71810  COMPUTE  KNT  > NO-REC-I  • NO-KEC*!  / 90  ♦ 90* 

71820  IF  kNT  is  2EH0  GO  TO  CF-2. 

71830  PERFOhM  VINE-FILL-I  THRU  N-F-I. 

71840  CF-2. 

M81>0  COMpuTL  KNT  > NO-RtC-2  • N0-R£C*2  / 90  • 90. 

71860  IF  kNT  is  zero  GO  TO  CF-3. 

71870  PERFORM  VINt-FlLL-2  THRU  N-F-2, 

71900  CF.3, 

71910  DISPLAY  J NUMSEH  RECOROS-l  : NO-REC-I  UPON  CONSOLE. 

71920  DISPLAY  I NUMBER  RECORDS- 2 I NO-RtC-2  UPON  CONSOLE. 

71940  DISPLAY  \ end  OF  JOB  C9697S  UPON  CONSOLE. 

7I9bO  CLOSE  IN-FILC-O-Bi  MSG-FILE»  OUT-FILE-l# 

71960  0UT-FIlE»2  WITH  LOCK. 

71990  G08ACK. 

/«  PLACE  COBO..  SOURCE  BEFORE  THIS  CARO 

//LWG.TFGIN  no  •.SPACE>CCYL.CI»n3 


TFG  0101 

u a;!9Zoao 

0330003310033200333003400036000310003200032100209 

34 

b700U23b 

331 

t>7Q00237 

331 

b7000243 

324 

t>7000244 

331 

b7002b4t> 

331 

be00U776 

324 

b000u9Ul 

331 

b900U002 

331 

S900U0U3 

331 

b900u0Ub 

331 

bQOOUOOb 

331 

bPUOUOlU 

331 

bo00U012 

331 

bROOUOlb 

331 

b900U0l8 

331 

b90000l9 

331 

b9U0U02b 

331 

b900U030 

331 

U900u0b4 

324 

b900u0b7 

324 

S9n000b8 

324 

bO00Uf>S9 

324 

b900UlUH 

331 

bOOOuiOb 

331 

S900UI06 

324 

bOOQuI 10 

324 

b9U0Ull9 

324 

b9000l4I 

324 

b9000l43 

324 

b900Ul44 

324 

S9000l4b 

324 

C9B970 

C9B970 

C9B970 

C9B970 

C9a970 

C9B970 

C9B970 

C9B970 

C9B970 

C9B9T0 

C9B970 

C9B970 

C98970 

098970 

C9B970 

C9B970 

C9B970 

C9B970 

C98970 

C9B970 

C9B970 

096970 

C9eo70 

C96970 

C9B970 

C9B970 

C9B970 

C9B970 

C9B970 

C98Q70 

C9B970 

C9B970 

C9B970 

C96970 

C98970 

C98970 

C9B970 

096970 

C98970 

C98970 

C98970 

C98970 

C9B970 

C9B970 

C9B970 

C98970 

C98970 

096970 

C98970 

C98970 

C98970 

1990  CDS 


!>qU0Ul<t7  32« 

bqooulbl  324 

!>q00U152  324 

• END 

/•  PLACE  TEC  Lata  before  this  card 

//TPR.TU14  00  ')1SP>[0L0.KEEP3.V0L>SER>»FS»UN1T>TAF3 

//TPR.TU22  Du  01SP>[0L0.KEEPJ<V0L>SER>»F5»UN1T>TAF5 

//TPR.TU24  00  01SP>[OLO.KEEPJ.VOL>SER>*FT»UM1T>TAFT 

//TPR.TPRIN  00  ••SPACt>[TRK,tl»ni 

T/P  OTOl  i01008'‘2080 

OT02  loiooaozoeo 

TU14  lOlOOTuZOTO 

TU22  101002  12020 

TU24  10100202020 


TJ4 

T22 

T24 


T/P 

T/P 

T/P 

T/P 

/• 


G.8.2 


PLACE  T/P  CONTROL  CAROS  BEFORE  THIS  CARO 


SORT  FOR  SCHEDULED  NORM  HOURS 


//T0897N  JOB  Oil!  0 HANG  I <PHTr>02<TYPRUN>H0LD 

//Cq897F  LaEC  P96<i  'N>2>0bU>nME>04>ACCT>O3S323007 

//CHG.SOHTIN  00  OtSP>l iKLEP l.UNlT>t «*F5»2>0EFCR J»  CT22/231 

//  OSN>*t. 98974321  CT22  2 

//  VOL>-.EB>[  ♦Fb»A»F5iB*F5.C*F5*0*F5.EAF5.FAF5»6AF5,H«E5,  CT22  S 

//  l*Eb  J«F5.K*F5iL*F5iM»FS.M»F5»04F5»P»F5»0aF5iH7F5»S7F53»CT22  4 

//  OCB>CLRECL>0020iRLKSI2E>ia0O]>LAeEL>[ •NSLiRETPD>099] 

//CHG.SORTOuT  00  01SP>C>KCCP1>UN1T>CAAF1<2>OEFER1>DSN>AA.989T430>  CT12/13  1 

//  VOL>  ER>C ♦F1.A*F1,B»Fi,C*F1,0AF1.EaF1.F4F1»6aF1»Haf1»  CT12  2 

//  1*F1  J*F1>K4F1iLaF1iMafi,n*F1>04F1.PtF1>0aFi,raf1>SAF1 ]>CT12  3 

//  OCB>CLRECL>0020>nLKSI2C>1800 J 

//CHG.SYSIN  00  •>OCB>BLKS12E>OOao>SPACC>[TRKtt  l>n] 

SORT  FULOS>C017i'01>CH>Ai019i00t>CH.A,001>005iCH>A  )>SlZE>e0SS0000 
HOOS  E15>tElbi008-SORTLlBiN3iEla>tCl8.024.SO«TLlB.N3 
/* 


G.8.  3 CUMULATIVE  DISTRIBUTION  FOR  SCHEDULED  NORM  HOURS 


/C  EXEC 
TU12 


//C989 
//CHG 
// 

// 

//LHG, TU2b 
// 

// 


P9f.aJ  .#T1HE>30iACCT>035323007 

Ou  OlbPXtiPASSliUNlTZtTAFliliDEFERJiDSNXTA. 98974301  CT12  1 
V0L>btR>r»FliA*Fl,8»Fl,C»Fl»0»Fl»EAFl»FTFl»8TFliH4Fl»  CT12  2 
1»Fi.j»f1iK«f1iL»F1*M*F1.M»F1*O»F1.PtF1»0tFi,R»f1iStFi3  T12  3 
ru  UbP)!  iPASS]iUNlT>tT»F8*lrOEFER3iOSN>TH, 98974311  CT25  1 
VUL>SLR>r ♦FUiA*F8»8*F8lC»FeiO»F8iE*F8iFTF8i9TF8lM4F8l  CT25  2 
I*ll>iJ<F8iK*F(liL*F8iM«F8iNTF8i0TF8iPTF8i0TFB,R4FSi5fF8]  T25  3 


//CMG, 

INPUT  ru  «»bP*CL>CCYL»Cl 

1440  COS 

oouoo 

COPUINC  compile 

e.  mang. 

C98970 

oiuuo 

0*TE-WPlTTtN.  7 APH  72, 

C98970 

01U50 

REMARKS, 

C9097O 

01U60 

TASK  2 mist  of  WUC* 

098970 

UPUOO 

environment  Division, 

C98970 

U2U10 

CONFlOUHAriON  section. 

C98O70 

02020 

SOUHCE-COMPuTl.R  , 10M-J60  . 

C98970 

U2030 

OBJECT-COMPuT  R,  IBM- 360. 

C98970 

02100 

INPUT-OuTPUI  SECTION. 

C98670 

02110 

fill-coi^tkol. 

C98970 

02120 

SELECT  1»^-FILE 

ASSIGN  TO  UT-S-TU12 

C98970 

02130 

Rlslrve  1 alternate 

area. 

C98970 

02140 

SELLfr  MlST-FlLt 

ASSION  TO  UT-S-TU25 

C98R70 

tU’L^'O 

RtSLBvr  1 ALTEWNATt 

AREA. 

C98970 

074100 

SrEcCT  IN-FILE-ISC 

ASSION  TO  OA-5-DTOI 

C98970 

024^10 

REStHVE  1 alternate 

area. 

C68970 

lOUOO 

DATA  OlVlblON, 

C98970 

10010 

file  section. 

C98970 

11100 

FO  iN-FlLE 

C98970 

11120 

hecuRui'tg  mode  is  f 

C98970 

11130 

ULOCK  CONtAlriS  90  RECORDS 

C98970 

11140 

RECURU  cOl  TAINS  20 

characters 

C98970 

11150 

larll  rlcpros  are  omitted 

C98970 

lllbO 

data  kECOPOS  are  IN-REC* 

C98970 

11170 

01  IN-hEC  STf.C. 

C98970 

mao 

02  T*UC 

PICTURE 

X[53« 

C98970 

11142 

02  FILLEP 

PICTURE 

Xt43« 

C98970 

111A3 

02  OtiS 

PICTURE 

S9[6]« 

C98970 

11184 

02  Onb-1  REDEFINES  OBS 

PICTURE 

S99999V9* 

098970 

1110b 

02  FILlEp 

PICTURE 

X. 

C98970 

11186 

02  ischronal-new 

PICTURE 

X. 

C98970 

11187 

02  FILlEk 

PICTURE 

X, 

C98970 

11108 

02  CAT A-»YPE-NEW 

PICTURE 

X. 

C98970 

G-147 


11169 
11^00 
11^20 
11  ^^0 
XI 

11  jr.u 
11^60 
11400 
11410 
12100 
12120 
12130 
12140 
12150 
12160 
12170 
12100 
JOUOO 
30UI0 
30012 
30U14 
30U20 
3UU30 
30040 
30U50 


02  FILlEf 
in-f-ILt-lSC 

recoRuing  mode  is  F 

OLOcK  CoNfilNS  20  RECORDS 
KECORU  contains  60 
LAMlL  KlCoROS  AHE  STAf^OARO 
OATA  HtCOl  •)S  ARL  IN-HEC-ISC* 
in-kec-isc  sync. 

02  filler 

HISI-HLE 

RECORUIIIG  mode  Is  f 
HLOCK  contains  15  RECORDS 
record  LOi.TAINS  130 
label  Ht-CCRDS  are  OMITTED 
data  RECOrhS  are  HIST-REC. 

SYNC. 

02  FILlEv- 
working-stokace  section. 

77  KNT  SYNl  picture  S9C5J. 

77  ORS-lSO  SYNC  PICTURE  S9C5JV9999^. 

77  Ons-Nl  S.'NC  PICTURE  S9C5JV9W9. 

01  filler  syic, 

02  FHk u-HTST-VALUE  occurs  2000  TIMES  PICTURE  SqtSJ 

computational. 

A PICTURE  J9C5J  COMPUTATIONAL. 


FD 


01 


FD 


01 


01 


PICTURE  X. 


characters 


PICTURE  XCSOl. 


characters 


picture  XCI50  3. 


30U60 

01 

NO-OF-HIST'^ 

SYNC 

picture 

99999  value 

2ER0. 

30U80 

01 

ONE  SYNC 

picture 

X VALUE  :iJ. 

3ouei 

01 

TViO  SYl.C 

picture 

X 

value  :2J 

* 

30UP2 

01 

THRtE  SY  C 

PICTURE 

X 

value  :y. 

30063 

01 

FOUR  SY^»C 

PICTURE 

X 

value  :4j 

* 

30084 

01 

FIVL  SYNC 

PICTURE 

X 

value  :5J 

* 

30090 

01 

CNT  SYNC 

picture 

S9C53  computational 

30100 

01 

CUR-WUC-T  TYNC. 

30110 

02  filler 

picture 

XC5  3 value  1 

HUC>1. 

30120 

02  CUH-4UC 

picture 

XC53. 

30170 

01 

ISChRONAL  1 YNC 

picture 

X. 

3U1A0 

01 

UATA-TfPE  SYNC 

PICTURE 

X. 

301P0 

01 

MiNus-oNE  computational 

picture 

S999  VALUE  - 

1 SYNC, 

32O00 

01 

REPoRr-io  «^tnc. 

32010 

02  filler 

picture 

Xt503  value 

32U20 

32U30 

32U40 

32050 

46000 

46010 

46U20 

46100 

46110 

46120 

46130 

46140 

46150 

46160 

46170 

46160 

46190 

46200 

46300 

46310 

46315 

46320 

46325 

46330 

46335 

46400 

46410 

46420 

46430 

46440 

46450 

46460 

46470 

464B0 

46490 


01 

01 

01 

01 


:soa970o0  TF7919-01  142-ft  1 1/2 

02  filler  picture  XC503  VALUE  SPACE. 

02  filler  PICTURE  At  30  1 VALUE 

* <1. 
mean  computational  sync  picture  S9t7)V9V, 
variancl  Computational  sync  picture  S9C73v99, 

TEMf-COkP 

MfAN-VARlAfCE-LINt  SYNC. 

02  filler 
JS 

FILcfH 


T. 


picture  59C7)V99. 
picture  Xt503  VALUE 


02 


02 

02 


Mt.At.-MPT 

filler 


02 

02 


picture  XC193  value 
mean  >:, 

picture  Z2Z9.9. 
PICTURE  XC30)  value 
VARIANCE  >1. 
picture  ZZZZZZ9.9. 
picture  XC 163  value 


01 

01 


01 

01 


picture  S9t53V99999  VALUE  ZCRO. 


VARlArjrE-RPT 
filler 

<; 

MEAn-U  computational  sync 
VARlANCt-0  computational  SYNC  PICTURE  S9t53V99999 
V«Lut  ZERO. 

TEMf-COMP-1  sync  picture  S9C5JV99999 

VALUE  ZERO. 

HIST-NO-OK-OnS-O  SYNC  PICTURE  S9C53V99999 

VALut  ZERO. 

MLAtJ-VARlAf  ^E-LINE-O  SYNC. 

02  filler  PICTURE  XC5o3  VALUE 

:s 

FILLER  PICTURE  XC163  VALUE 

j mean>:, 

MtAl.-HPT-B  PICTURE  ZZ9, 99999. 

FlLLtH  PICTURE  XC 20 3 VALUE 

VARIANCE  >;. 

VAnlANCt-RPT-B  PICTURE  ZZZZ9. 99999. 

FILLER  PICTURE  *CI63  VALUE 


02 


46500 

1 

a:. 

47U00 

01 

mist-value-max  Sync 

picture 

S9999V99  V*LUt  -9999.9. 

47U10 

01 

hisi-valul-min  sync 

picture 

S9999V99  V*LUE  <9999.9. 

47U15 

01 

Hisr-vALut-Mi  sync 

PICIURE 

S9999V99  V*LUE  <9999.9. 

47U20 

01 

HlSI-NO-OF-»^nS  SYNC 

picture 

S9t5  3 

VALUE 

ZERO. 

47U30 

01 

HiSr-NO-OF- .ntervals 

SYNC  picture 

999V99 

VALUE 

50. 

47U40 

01 

hisr-iNMur-vMAx-vMiN 

SYNC  PICtlWE 

9 

value 

ZERO. 

47iiS0 

01 

HIST-UIjI  sync 

picture 

X 

VALUE 

tll. 

‘♦7060 

01 

HISr-IliiJEx  jTNC  C0MPUT*T10NAL 

47u7U 

picture 

S999 

value 

ZERO. 

47UB0 

01 

Hisr-iNuE«-j  SYNC  comput/itional 

47tl40 

PICTURE 

5999 

value 

ZERO. 

(i-1 

-18 

C98970 

C98970 

C98970 

C98970 

€98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C9B970 

C98970 

C98970 

098970 

C98970 

C98970 

C98970 

C98970 

CP5970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

098970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C9fl9?0 

C98970 

C98970 

C98970 

C98O70 

C9S970 

C98970 

C9S970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

098970 

098970 

C90970 

C98970 

C9fl970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C9fl970 

C98970 

C98970 

C98970 

C9fl970 

098970 

€98970 

C98970 

098970 

C98970 


47100 

01 

HlST-TtHP  S.’NC 

PICTURE  S99999V99  VALUE  ZERO. 

C9e970 

47110 

01 

H1S1-1UIEHV\L-S1ZE  SYNC 

PICTURE  SR99V99  VALUE  ZERO 

C98970 

471P0 

computational* 

C98970 

47lb0 

01 

hist-flag  SiNC 

PICTURE  X value  lOI. 

C98970 

47160 

01 

HlST-SCALE-  ALUt  SYNC  COMPUTATIONAL 

C98970 

47170 

picture  S999  value  <I. 

C98970 

471H0 

01 

HlSr-PtKCENT  SYNC 

picture  S999V99  COMPUTATIONAL. 

C98970 

47190 

01 

HlSl-CUH  SYi^C 

picture  S999V99  COMPUTATIONAL. 

C98970 

47200 

01 

H1ST-L17<E  S NC  COMPUTATIONAL 

C98970 

47t*l0 

PICTURE  S999  value  ZERO. 

C98970 

47220 

01 

hist-pa»,e-flag  sync 

PICTURE  S999  value  <7b. 

C9e970 

47230 

01 

HlSf-Lli<E-C  .T  SYNC 

PlCTURt  S999. 

C98970 

47  JOO 

01 

HIST-LHh-1  ‘.yNC 

PlCTlwr  XC10  3 VALUt 

C98970 

47310 

lERROK  NO 

01. 

C98970 

47320 

01 

hIST-LKk-3  iYNC* 

C98970 

47330 

02  FILLCH 

PICTURE  XC5I  value  IBS  > 1. 

C98970 

47340 

02  HlSI-ERH-2 

picture  S9C5J  value  zero. 

C98970 

473bU 

01 

HIST-lUb-B  sync 

picture  XCI0  3 value 

C98970 

47360 

TERROR  max:. 

C98970 

47370 

01 

MlST-LRH-b  ''YNC 

PICTURE  XCIOJ  value 

C98970 

47380 

:-min  bad 

* T • 

C98970 

473Q0 

01 

HlST-OUl-HANOE-VALUE  SYNC 

PICTURE  S999  COMPUTATIONAL. 

C98970 

47bOO 

01 

filler  sync. 

C98970 

. 

47610 

02  filler  occurs  200  TIMES 

. 

C98970 

47b30 

03  HlST-TAtiLE 

PICTURE  S9C5]  COMPUTATIONAL. 

C98970 

47b40 

03  HlSi-UPPER-LlMlT 

PICTURE  S9999V99  COMPUTATIONAL, 

C98970 

47650 

03  HIS'-TAHLE-SCALEO 

picture  S999V99  COMPUTATIONAL, 

C98970 

tyafiO 

01 

HlST-NE«-PA(ifc  SYNC. 

C 98970 

47670 

02  filler 

picture  X value  III. 

C 98970 

47680 

02  filler 

PICTURE  XC122J  value  SPACE. 

C98970 

47682 

02  filler 

PICTURE  XC5J  VALUE  IPAGE  I. 

C98970 

47684 

02  hist-page-no 

picture  9. 

C98970 

47600 

02  filler 

picture  X VALUE  :*i. 

C98970 

47bOO 

01 

hist-title  fYNC, 

C98970 

47blO 

02  filler 

PICTURE  XC31  value  is  I. 

C98970 

47O20 

02  HlSr-IITLE-l. 

C98970 

tThZl 

03  FlLLiR 

PICIURE  XCIOJ  VALUt  SPACE, 

C98970 

47630 

02  HISr-TK'.E-2. 

C98970 

47631 

03  FILUR 

picture  XCIOJ  value  space. 

C98970 

47640 

02  HlSI-TlILE-3 

PICIURE  XCIOJ  value  space. 

C98970 

47650 

02  Hisr-IIUE-O 

PICTURE  XCIOJ  value  SPACE, 

C98970 

47660 

02  FILLER 

PICIURE  XC24J  value 

C98970 

47670 

: NO  OF  ORSERVATIONS  >S. 

C98970 

47680 

02  HIST-HO-OF-OBS-RPT 

picture  ZZZZ9. 

C98970 

47690 

02  filler 

PICIURE  XC13J  value 

C98970 

47;oo 

; <‘ALUt  MAX  > 

C98970 

47710 

02  HISI-VALuE-MAX-RPT 

picture  ——.9. 

C98970 

47720 

02  filler 

PICTURE  XC13J  value 

C98970 

47730 

: value  min  > !, 

C98970 

•i 

47740 

02  HlSt-VALUE-MIN-RPT 

picture  ——.9, 

C98970 

47760 

02  filler 

PICTURE  XCIOJ  value 

C98970 

47760 

1 

y:. 

C98O70 

47S00 

01 

MlSI-UOI-LlNi.  SYNC. 

C98970 

47910 

02  filler 

PICTURE  XC50J  V»LUe 

C98970 

47420 

; 

C98970 

47W22 

02  FILLER 

PICTURE  XCGOJ  value 

C90970 

3 

47V30 

C98970 

47940 

• 

C90970 

47960 

01 

hist-lauel  sync* 

C90970 

47960 

02  filler 

PICTURE  XC50  3 VMUE 

C90970 

47970 

:/  HlUPNT  PCNT 

CUM  FRLO  1... 5.. .10. ..15. ..20. I. 

C90970 

47974 

02  FILLFR 

PICIURE  XCOOJ  value  I.. 

C9n970 

47960 

• 

• 25* • *30 • • *36* • •40*  * *45*  * *50*  « *66*  * «60*  * *65*  * .YQ. • .YS*  * *80*  * • 

€98978 

47990 

• 

:85...RJ...N;>,.100<;. 

C98978 

46U00 

01 

H16T-L1NC-0U  SYNC* 

C98970 

48U10 

02  filler 

PICTURE  X valuf  :/:* 

C98970 

48U20 

02  hisi-linl-«pt 

PICTURE  ZZ9. 

C98970 

48030 

02  filler 

PICIUHF  X VALUE  SPACE. 

C98970 

48U40 

02  HISI-MIO  POINT-RPT 

PICTURE  ——.0* 

C98970 

4flUtiO 

02  HlSI-PEHrE7»T-KPT 

PICTURE  ZZ9.9* 

C98970 

48070 

02  FILLER 

PICTURE  X VALUE  SPACE. 

C98970 

1 

48080 

02  H1S(-CUM  Rf 1 

PICTURE  ZZ9.9. 

C98970 

; 

48100 

02  H1ST-FRL9-KPT 

PICTURE  ZZZZ9, 

C98970 

48110 

02  filler 

PICTURE  X VALUE  SPAcE. 

C98970 

48120 

02  H1S1-P01.1T  OCCURS  100  TI^ES 

C98970 

48130 

PICTURE  X. 

C90970 

48140 

02  filler 

picture  X VALUE  it!* 

C98970 

40160 

01 

H1SI-OUI-RAN1..E-REC  SYNC. 

C98970 

4Blbn 

02  filler 

PICTURE  XI35J  value 

C98970 

48170 

:/  numrer  of  out 

OF  HANGC  values  >1. 

C98970 

48180 

02  HIM-OUT-RANGE-KPT 

PICTURE  ZZ9* 

C98970 

4niqo 

02  filler 

PIClUHE  XC91J  value  SPACE, 

C98970 

48191 

02  filler 

picture  X VALUE  iti* 

C98970 

48<;00 

01 

MlSI-SCALt-L'NE  SYNC. 

C9897n 

48210 

02  filler 

PICTURE  XC27J  value 

C98978 

4H220 

:/  SCALlrir. 

F»CT0R  > 1. 

C98970 

40230 

02  HISI-SCA'  t-HPT 

PICTURE  ZZ9. 

€98978 

4n^40 

4ti<;bu 

48^0U 

4B^10 

4Hi20 

48^50 

48^60 

4bJ70 

46^80 

48J90 

48J9b 

50U00 

bOUlO 

b0U20 

bOU22 

bOU23 

bOU24 

b0U30 

b0040 

bOUSO 

b0U60 

bOlOO 

bOllU 

b0120 

b0140 

bOlbO 

bOibO 

bOlTO 

b0200 

b021U 

bU2?0 

b0230 

b02S0 

b026U 

b0270 

b030U 

b03l0 

b0320 

bOiJO 

b0400 

50410 

b0420 

b0430 

b0440 

b044b 

bn4ro 

b04Sb 

bOMOO 

bUblU 

bOblb 

bOblb 

b0‘jl7 

50bl8 

b0b20 

b0b30 

b0b40 

bOb4l 

b0b42 

bOb44 

bub4b 

bOb46 

bObbO 

b0b40 

bOfiOU 

boolO 

b0<>20 

bluOO 

blUlO 

bl020 

bl030 

blU40 

bl050 

blObO 

blU70 

blUAO 

blUQO 

bllOO 

blllO 

bll20 

bll30 

&1140 

b2u00 

b2ul0 

b2U20 

b2U30 


02  FILlEH 
02  filler 
01  filler  bYNC. 

02  Hlbl-VAL'JE  OCCURS  2000 

01  NORb-AC-WK  YNC, 


PICTURE  XC099J  mUC  SPACE, 
PICTURE  X VALUE 

times 

PICTURE  S9999V9  COMPUTATIONAL. 


Ob 

No-AC-WK-lSO 

picture 

S9t51 

Ob 

NO-AC-WK-Nl 

picture 

Sqtsl 

05 

CUTwFF-lbO 

picture 

S4(2I 

05 

cutoff-n: 

picture 

S9tai 

Ob 

filler 

picture 

XC661 

PHOCEOUKt  DIVISION, 

OPEN  INPUT  IK-FIlE.  IN-FILE-ISC. 

OPEN  OUTPUT  V IST-FILE. 

READ  IN-FILE-ISC  INTO  NORS-AC«wK  AT  END  00  TO  CLOSC-EILCS 
MOVL  NO-AC-«K-lbO  TO  OBS-lSO, 

MOVE  NO-AC-n^ -N1  TO  OBS^Nl, 

MOVL  2000  TO  KN1 , 

PERFORM  reset-table  THRU  ENO-RST-T ABLE, 

REAU  IN-FlLE,  AT  EMU  GO  TO  CLOSE-FILES, 

WRITE  HIST-Hi  C FROM  REPOHT-IO, 

PARA-1 • 

MOVL  1 TO  HlbT-NO-OF-OdS, 

MOVL  WUC  TO  CUH-WUC, 

MOVL  UATA-TYTE-NEW  TO  OATA-TYPE. 


MOVL  15CHH0N/  .-NFW  TO  ISCHRONAL. 

IF  UATA-TYPL  is  EOUAL  TO  FIVE  GO  TO  ITEEKS-OATA  ELSE  00  TO 
flt-oata. 


RLAUl, 

HLAU  IN-FlLL  AT  END  GO  TO  CLOSE-FIlES, 

IF  UATA-TyPE-NEw  is  EOUAL  to  191  GO  TO  CLOSE-FIlES. 

IF  mUL  is  not  EUUAL  TO  CUR-WUC  GO  TO  PARA«2* 

Ann  1 TO  His* -NO-OF-OBS. 

IF  UATA-TyPL  is  EOUAL  TO  FIVE  GO  TO  WEEXS-OATA  ELSE  00  TO 
FLT-OATA, 

PARA-2. 

PLPFOR^*  SLT•^  ISTOG  THRU  ENO-SH, 

PERFORM  RESLT-TABLE  THRU  ENO-R5T-T AbLE, 

GO  10  PAHA-1, 

rlslt-tapll, 

MOVL  ^EkO  to  INT, 

J^ST. 


AOn  l TO  cnt, 

MOVL  MU4US-0N:  TO  hist-value  CCNTJ, 

MOVL  /fcRO  TO  ^HLO-MIST-VALUL  CtNT J, 

IF  lMT  lb  LLSS  IHAN  KNT  GO  TO  HST, 

MOVl  ^Kl<0  TO  KNT, 

ENU-HST-TAMLE,  LMT  . 

SLT-HlSTOo. 

IF  HIST-NO-Of-OUS  is  not  GHLATER  than  CUTOFF-Nl  AMO  ISCHRONAL 
NOT  k 7UAL  TO  ONL  GO  TO  LNO-SH, 

IF  HlbT-NO-OF-OtJS  IS  NOT  GREATER  THAN  CUTOFF-lSO  ANO 
IbCMWONAL  lb  equal  to  ONE  GO  TO  ENQ-SH, 

IF  iScHROflAL  ib  equal  TO  ONE  MOVE  : ISO  1 TO 

MlST-riTL';-4.  ELSL  MOVE  I NON-ISO  I TO  HlST-TlTLE-9, 

IF  uAfA-TYPE  equal  TO  ONE  MOVE  : NORM-HR  I TO  HIST-TItLC-3, 
IF  UATA-TYPL  LQUAL  TO  TWO  MOVE  J MAN-HR  t 

IF  uATA-TyPE  :0UAL  to  three  MOVL  I NORM/MA 
TO  MlST-TlTLE-3. 

IF  uata-type  loual  to  four  move 

TO  M1j7-T1TLE-3. 

MOVL  LUh-WUC-T  to  HIST-TITLE-1 . 

PERFORM  WMITF-HISTOGRAM  THRU  LNO-HlST, 

V IlIbT-FLAG  IS  equal  TO  Ul  THLN  <10  TO  CFl. 

ADfi  1 fu  UO-f  --HibTb, 

ENU-SM,  EXIT. 

WLLKb-DATA, 

MOVL  2Ek0  TO  :NT, 


NORS 


TO  HIST-TITLE-3, 
) 


WELK-A, 

ADO  1 TO  CNT, 

IF  OHS  IS  lqual  to  hist-value  ccntj  so  to  rEex-c, 

IF  FRLO-HIST-  'ALUe  ICNTl  IS  EOUXL  TO  ZERO  00  TO  WEEX-B, 

IF  cnt  is  less  than  2000  Go  TO  WEEX-A. 

DISPLAY  i MORE  THAN  2000  FREQUENCY  OCCURENCES  T UPON  CONSOLE, 
GO  TO  CFl, 

WEEK-n, 

MOVL  OHS  TO  HIST-VAluL  CCNTl, 

IF  LNT  is  greater  than  KNT  THEN  MOVE  CNT  TO  XNT, 

WEEK-C, 

AOO  1 TO  FfffcC-HlST-VALUE  CcNTJ, 

GO  TO  HLADJ, 

flt-data, 

MOVL  ZERO  TO  ‘.NT, 

FLT-A, 

ADD  I 10  CNT, 


C9S970 

C98970 

C98970 

C98970 

C98970 

C98970 

C9ft970 

C9a9T0 

C9e970 

C9A970 

C9a970 

C9a970 

C98970 

C9a970 

C9a970 

C9a970 

C9a970 

C9a97D 

C9a970 

C9a970 

C9a970 

C98970 

C98970 

C9a970 

C9e970 

C9e970 

C98970 

C9a970 

C98970 

C98970 

C98O70 

C98970 

CO8970 

C98970 

C98970 

C9e970 

C98970 

C9e970 

C9a970 

C9ft970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

CORP70 

C9897n 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C9B970 

C98970 

C98970 

C9897n 

C9807n 

C98970 

C9897n 

C9897n 

C9897n 

C98970 

C9e970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C9e970 


(i-ir.o 


b2040  IF  gPb-l  IS  EQUAL  TO  MlST-VALUi  CCMT3  00  TO  FLT»Ct 

b2UbO  IF  f RL0*H1ST-vALUE  CCNTJ  1$  COuAL  TO  ZCRO  00  FtT-O. 

b2U60  IF  C^»T  IS  LCS  THAN  2000  60  TO  FLT«A« 

b2070  UlSr'LAY  : MOH'=:  IHAN  2000  FREQUENCY  OCCURENCES  1 UPON  CONSOLE. 

b2OA0  00  10  Cl«  I , 

b:'«i‘»0  FLT-U. 

b2lilO  MOVL  Ul'j-l  10  HISI-VAluL  tCNTJ. 

b2U0  IF  cNI  IS  GHEATtR  THAN  ANT  THEN  NOVC  CNT  TO  RNT. 

b2120  FLT-C. 

b2130  ADD  1 10  FREO  MlsT-VALUE  tCNTl. 

b21‘40  60  TO  HcADI. 

b2200  CLOSE-FILLS. 

b220b  PLRhOK^^  SLT-MiSrOG  THRU  ENO-SM, 

b2^0T  CFl, 

b22lO  CLOSE  IN-FILE  HlST-FlLE#  1N-F1LE-1SC> 

b22Il  IF  Hlbl-FLAG  IS  EQUAL  TO  HI  DISPLAY  t HIST  ERROR  I UPON 

b22l2  LO'iSOLL. 

b2^Ib  DISPLAY  : NO  F HISTOGRAMS  > I NO-OF-HISTS  UPON  CONSOLE. 

b2220  display  : fOJ  CQ8Q7  t UPON  CONSOLE. 

b2230  OOBACK. 

9*4000  computt-m-v. 

94(110  IF  iSCHHONAL  "QUAL  TO  ONE  MOVE  06S-1S0  TO  HlST*NO*Of-OeS-a 

94020  ELSL  MOVE  OdS-NI  TO  HlST-NO-OF<-OBS*B. 

94030  MOVL  ^EkO  to  CNT, 

94O40  mOVl  ^LhO  TO  IEAN-B. 

940bO  CHv-I-B. 

94060  AOn  1 TO  CMT . 

94O70  COMPUTE  TLMP->.OMp-a  > HIST-VALuE  tCMT3  ♦ 

940ftO  FHE  -HIST-VALUL  tCNtl. 

94090  ADD  Tt^P-COMP-fl  TO  MFAN-a. 

94100  IF  CNT  is  LLSS  THAN  KNi  GO  TO  CMV-1*8* 

94110  DIVITL  HIST-Ns.-OF-ObS-a  INTO  MEAN-8. 

94120  MOVL  ZEhO  to  '"NT, 

94130  MOVL  ^tPO  TO  oARlANCr-a. 

9414U  CHV-2-P. 

94150  ADD  1 To  CNT. 

94160  COMPUTL  TEMP-''OMP-R  > CCHlST-VALUE  tCNTJ  - MEAN-RJ  23  • 

94170  FHFo-HIST-VALUE  tCNTJ. 

941f\0  ADD  TtMP-COMP  .a  TO  VARIANCE-B. 

94190  IF  cNT  less  T <AN  KNT  GO  TO  CMV-2-8. 

94.f00  LOMpUTt  VARlANCL-a  > VARlANCE-8  / t HlST*N0-0f-0BS*8  • |3* 

944;I0  move  Ml.Afi-H  TO  MCAN-RPT-B, 

94220  MOVL  vAhIANCE  -B  TO  VAR lANCE-RPT-B. 

944JbO  4H1TE  HIST-HE':  FROM  MEAN-VARIANCE-LINE-B. 

94<r60  END-CMV-P.  EXIT, 

95000  COMPuTF-MlA 4-vAHlnNCE , 

95110b  IF  ulbT-NO-OF  OUS  EQUAL  TO  1 00  TO  CMV«3. 

9bU|0  mOVl  kO  TO  CNT, 

9bO20  MOVE  /Lr40  TO  MEAN, 

9bU30  CMv-l, 

95040  AUO  1 TO  CNT, 

95050  COMpUTf  TLMP-COMP  > HisT-VALUE  CCNT3  ♦ FREO-HIST-VALUC  CCNT3. 

95060  ADO  temp-comp  TO  MEAN, 

95070  IF  lNT  is  LES'"  THAN  KNT  GO  TO  CMV-1. 

95UM0  OIVICl  HIST-ND-OF-OHS  INTO  MEAN. 

95090  MOVE  2EkO  to  LNI, 

95100  MOVL  TO  /AKIANCE. 

95110  CMv-2. 

95120  ADO  I TO  CNT, 

95130  COMpUTL  TtMP-cOMP  > CCHlST-VALUE  eCNT3  - MEAN3  ••  tj  • 

VS  1 4 0 FREO-HIST-VALUE  t CNT 3* 

95150  AOr  TC.MP-COMP  TO  VARIANCE, 

95160  IF  CUT  IS  LLS  THAN  KNT  GO  TO  CMV-2. 

95170  COMPUTE  VARIANCE  > VARIANCE  / I HlST-NO-OF-OBS  - I 3. 

951fl0  MOVL  MEAN  TO  hEAN-RPT, 

95190  MOVE  variance  TO  VAM lANCE-RPT* 

95191  00  |0  CMV-4, 

95192  CMv-3, 

95193  move  2EM0  TO  /Ah  I ANCE-HPT , 

95194  MOVL  HibT-VAL’IE  C I 3 TO  meAN-PPT. 

951‘»b  CMv-4. 

95200  write  »<1ST-RFC  FROM  meAN-VARIAnCE-LINE. 

95*90  E(4d-cmv,  rxT,. 

95300  0LT-f40-0Pb, 

9531 1 IF  uATA-TyPL  NOI  LQUAe  TO  FOUR  GO  TP  NOT«NORS. 

95312  IF  ISLUkONAL  eOuAL  TO  ONL  MOVE  08S«lSO  TO  HlST*NO*Of •0BS*RPT 

95313  FLSL  move  OUS-NI  TO  HI ST-NO-OF-OHS-RPT. 

95314  OO  TO  **uTn-f<0^5. 

9531b  NOT-NORS, 

95320  MOVE  Ml jT-NO-vF-OMS  TO  MIST-NO-OF-OHS-RPT. 

95325  DOTM-flOMS, 

95330  FNU-ULT-NO-OBS.  '’XlT. 

97000  WHlTE-HISTOpRAM, 

97oft0  move  :u:  to  hist-flag, 

97090  MOVE  2EhO  to  ‘UST-OUT-RANOE-VAlUE . 

'<7ino  MOVE  2LhO  to  M|5T-PAGL-N0, 

9714(1  MOV!  -9999,9  lO  HIST-VALUE-MAX, 


C96970 

C96970 

C96970 

098970 

C98970 

C96970 

C98970 

C98970 

096970 

C96970 

C9S970 

C96970 

C96970 

096970 

C96970 

096970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96O70 

C96970 

C98970 

C9A970 

C96970 

C90970 

C96970 

C98970 

C96970 

C96970 

C98970 

C98970 

C98970 

C98970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C98970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C98970 

C98970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C9A970 

C96970 

C96970 


:*] 

4 

■I 

I 


()-151 


97X50 

97^00 

97^10 

972?0 

97230 

97240 

97<:50 

97260 

97270 

97260 

97261 

97262 
97283 
97264 
97285 
97260 
97287 
97266 
97269 
97290 
97292 
97294 

97300 

97301 

97302 
97304 
97306 

97310 

97311 
97330 
97340 

97350 

97351 

97352 
97356 
97358 
97360 
97370 
97360 
97390 
97«I0 
97420 
97430 
97440 
17441 

97442 

97443 

97444 

97445 

97446 
97450 
97500 
97OI0 
97520 
97530 
97540 
97550 
97560 
97570 
97560 
97600 
97bI0 
97620 
97630 
97640 
97650 
97660 
97670 
97675 
97660 
97bO0 
97700 
977i0 
97/20 
97/30 
97740 
97/50 
97751 
97/60 
97600 
97610 
97620 
97630 
97640 
97650 
97660 
97670 


MOVL  <9999.9  '0  MiST-VALUE-MlN. 

MOVL  2tMO  TO  Hl5T-INnEX. 

Hlsr-PIun-VHAx-VMlN. 

ADD  I TO  HIST-lNOeX. 

MOVL  HI5T-VAL’»E  CHIST-INOCXJ  TO  MIST-TEMP. 

IF  mist-temp  is  gmeateh  than  hist-valuc-max  then  move 

HI5T-TEMP  TO  MIST-VALUE-MAX. 

IF  hist-temp  s less  than  hist-value-min  then  move 

HI‘‘r-TEMM  TO  HIST-VALUE-MIN. 

IF  HlST-lNHEX  15  LESS  THAN  KNT  THEN  00  TO 

HlSr-FlNO-VMAX-VMlN. 

MOVt  2LmO  to  PlST-TEMp. 

MOVL  HIST-VAL'Jt-MlN  TO  Hi ST-VALUE-MJ . 

SET-LOW. 

IF  hist-value  hi  less  than  100  GO  TO  OOT-LOW. 

SUBTRACT  100  ^ROM  HIST-VALUE-Ml . 

ADO  100  TO  HIST-TEMP. 

GO  TO  SLT-LOW. 

GOT-LOW. 

MOVL  Hl5T-TtM«  TO  Hi ST-V ALUE-Ml . 

COMPUTE  HIST-M0-0P-IN7EPVALS  > 
IHlSr-VALUL-MAx  - HIST-VALUE-Ml J / 4 < 6. 

Hlsr-PRlNT-flTLt. 

IP  Hlsr-Mg-OF'^INTERVALS  IS  LESS  THAN  SO  MOVE  SO  TO 
HIST-No-OP-INTLRVALS* 

ADD  I TO  HIST-  PAGE-NO. 

MOVL  5 TO  HIS'-LINE-CNT. 

mrite  hist-rec  prom  HIST-NCW-PAGC. 

PERPOmM  OLT-Nsi-OBS  THRU  EMO-HET-NO-OBS. 

MOVL  HIST.VAL  IE-HAX  TO  HIST-VALUE-MAX-RPT. 

MOVt  Hi jT-VALUE-MlN  TO  Hi Sr-VALUE-M/N-PP7. 

WRITE  hIST-HEv  from  HIST-TITLE. 

IF  UATA-TyPE  lOr  equal  to  pour  perform  COMPuTE-MEAN-VARIAMCE 
Thru  ENO-LMv  else  perform  COMPUTE-M.v  thru  EMD-CMV-B. 
IP  HI5T-VALUC< MAX  EQUAL  TO  2tRO  CO  TO  END-HIST* 

IP  OATA-TyPL  equal  to  four  go  to  eno-hist. 

WRITE  UIST-HEL  PROM  HlST-OOT-LlME. 

WRITE  HIST-REI  FROM  MIST-LABEL. 

WHITE  HIST-HE'*  from  MisT-OOT-LlNE. 

HIST-OUMMt . 

IF  hist-value -MAX  IS  LESS  THAN  HlST-VALUE-MlN  THEM  00  TO 
MIST-EHHOR-2* 

IF  hIST-N0-0F«INTERVALS  is  greater  than  200  THCn  move  200 
TO  HrST-NO-OP-INTEMVACS. 

MOVL  2EhO  TO  UST-INOCX. 

HIST-RST# 

AGO  I TO  HIST^INOEX. 

MOVE  2Lho  to  ..ist-tahle  t mist-inoex I. 

IF  hist-inoex  is  less  than  hist-no-of-intcRvai  s 
THEN  GO  TO  MlST-RST* 

MOVE  4.0  TO  P'f  t-:mTERVAL-SUE. 
NOTL  CO.^PUTE  ^PPEH  LIMIT  FqR  EACH  INTERVAL. 

MOVL  2LkO  to  mist-inoex. 

MOVL  MIST-VALUE-MI  TO  MIST-TEMp. 

HIST-IfJC-INlEHVAL, 

AUn  1 TO  MJST  ‘INDEX. 

ADO  MIST-INTEHVAL-SI2E  TO  MiST-TEMp. 

MOVE  hist-temp  TO  MIST-UPPER-LIMIT  IHlST-lNOEX 3. 

IF  hIsT-INOEX  is  less  than  hist-no-of-intervals  them 
00  TO  HIST-INC-INTERVAL. 

NOTt  PL«CE  OCCUrtANCt  INTO  APPROPRIATE  CHANNEL. 

MOVL  2EhO  to  HIST-INOEX-2. 

mist-oclumauCl. 

AOO  I TO  MIST  •INOEX-2. 

MOVt  hIsT-VALUE  CMIST-INOEX-21  TO  HiST-TEMP. 

MOVL  2LK0  to  .PIST-INOEX. 

HISf-INT»  HVAL. 

AOO  I To  mist-inoex. 

MOVL  PRtO-MlST-VAL(fE  CHlSr-INOEX-27  TO  A« 

IF  hIst-tlmp  .s  not  Greater  than  hist-uppeR-LI»*IT 

CHIsT-IND^XJ  then  GO  TO  HIsT-RDO-TABLE. 

IF  rilST-lNOtX  IS  less  THAN  HIST-NO-OF-INTERV AlS  THEN  GO  TO 

hist-interval. 

AOO  A TO  HIST ‘OUT-RANGE-VAluE. 

GO  TO  MKt-NO-AuO. 

hist-adu-taoll. 

AOO  A TO  MIST  ‘TABLE  C HiST-lNOCX I. 

HIST-NO-AUO. 

IF  HfST-lNOCX-2  rs  LESS  KNT  GO  TO  hIST-OCCURANCE. 

NOTE  CONPuTl  scale  VALUE. 

MOVE  HIST-TAR^E  t I J to  HiST-TEMP. 

MOVL  1 TO  HIS^-INDEX. 

HiST-SCALE. 

AOO  I TO  HIST-INOEX. 

IF  hIsT-TAPLE  IHIST-INOEXJ  IS  GREATER  THAN  HIST-TEMR  TMEN 
MOVL  MIST-TABLC  CHlST-INOExJ  TO  HiST-TEMP. 

IF  HlST-lNDEX  is  LESS  THAN  HlST-NO-Of-lNTERVALS  THEN  GO  TO 


C98970 

C98970 

C9e970 

C9e970 

C9e970 

C98970 

C9e970 

C96970 

C96970 

C98970 

C96970 

C9e970 

C96970 

C98970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C9d970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C9697n 

C96970 

C9A970 

C96970 

C96970 

C96970 

C98970 

C98970 

C96970 

C96970 

C96970 

C96970 

C96970 

C98970 

C9e970 

C98970 

C96970 

C98970 

C96970 

C9S970 

C98970 

C9S970 

C96970 

C98970 

C96970 

C96970 

C96970 

C96970 

C96970 

C98970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C98970 

C98970 

C98970 

C98970 

C96970 

C98970 

C98970 

C9e970 

C98970 

C96970 

C98970 

C98970 

C96970 

C98970 

096970 

C98970 

C98970 

C96970 


G-152 


97660  HiSt-SCALC# 

97b90  COMpUTL  MlST-'CAU-VALUt  > tHiST-TCMP  < 99)  / lOO. 

97695  IF  MiST-SCALE-VALUt  USS  THAN  1 MOVE  1 TO  HJST-SCALE*VALUe. 

97900  MOVE.  ^EWO  TO  HIST-INOEX* 

97910  HIST«SCAL£l)-VALUt  .. 

979P0  Ano  1 TO  HlbT-lMOEX. 

97930  COMPUTE  HlST-TAttLt-SCALtO  CHIST^lNDbX)  > 

97940  HlST-TAtiLE  (HIST-lNOtX)  / Hf ST-SCALE*VALUE * 

97950  IF  HlbT-lNPEX  iS  LESS  THAN  H1ST«N0-0F*INTC9VALS  THCN  90  TO 

979b0  HIST^SCALEO^^VALUESt 

9HU00  NOTE  PHtPARE  OUTPUT  DATA* 

96010  OlViCt  i.  INTO  HIST-1NtEhvAL-SI 

96020  move  2Ek0  TO  EIST-CUM, 

96U30  MOVE  2EkO  TO  MlST-LlNE* 

98U40  HIST-PPlPARl. 

96050  AOn  1 TO  hIST~L1NE« 

96060  MOVE  HlbT-LlN'~  TO  HlST-LINE^RPT* 

96U70  COMPUTE  MIST-’EMP  > HlST-UPPT R*L1M1T  CH1ST*LINE) 

90060  - HIST«1NTERVAL*SUE. 

98U9U  MOVE  HIST-TEM.  TO  HlST-MlO-POlNT-RPT. 

96100  COMPUTE  H1ST-''EHCENT  > HlST-TAOLE  CHIST-tINt)  • lOO 

96110  / HIST-NO-OF*OBS. 

9HIP0  MOVl  mIjT-PLHcENT  TO  HIST-PERCCNT-PPT* 

96130  ADO  HlSr-PrwC»Nt  TO  H|ST-CUM* 

96140  MOVE  HlbT-CUM  TO  HibT-CUM-RPT* 

90150  MOVL  HibT-TAHLE  CUIST-LINE)  TO  HIST-FRE0*RPT* 

961b0  MOVE  2t»<0  TO  \ IbT-INOEX. 

96170  IF  MlbT-OlST  'S  NOT  EQUAL  TO  lOl  GO  TO  H1ST*CUM-1* 

96160  COMPUTE  HIST-tNUEx-2  > HIST-TABLE«SCALED  CHIST-LINE)  < 0*5« 

96190  IF  Hl5T-lfT0E)t-2  IS  EQUAL  TO  2ER0  GO  TO  HlST*PREp«SPACE , 

9H200  M1sT-P«lP-0IST. 

9M<'I0  ADD  1 TO  MIST-InOEX. 

90220  MOVE  l*t  TO  HiST-POlNT  C HISt-lNOEX )• 

96230  If  MlbT-lNOEX  lb  Lf bS  THAN  HIST^INOEX^^  OO  10  HIST*PPEP*01ST . 

98«r4Q  IF  hI5T-1N0Ex  lb  EQUAL  TO  lOO  THEN  GO  TO  HIST-WRITE* 

9oib0  mist-pplp-shace. 

982t0  AOn  1 To  ulbT-lNOEX. 

96270  mOVl  bPMCE  TO  HlST-POlNT  CH1ST« INDEX )* 

96^60  !>■  MTbT-ItmLX  Ib  LfSS  THAN  |O0  THEN  GO  TO  HIST-PPEP^SPACE* 

962<Hi  OO  lO  MlST-«iRfTE* 

96300  HIsT-CUm-1, 

96310  AOn  I Tu  HIbT-  INDEX. 

96320  MOVE  bPACE  TO  MI$T-POINT  C HlST^lNQEX )• 

96330  IF  HlbT-Ir^DEX  Ib  LESS  THAN  100  THEN  GO  TO  HIST*CUM»1» 

96336  COMpUIt  HI^T-.NUEX  > HlbT«CUM  < o*5* 

96331  IF  iiIbT-I'lOEX  Ib  EQUAL  TO  2tPO  GO  TO  HIST-VHITE. 

96340  **0vL  TO  htst-point  chist»inoex)« 

96460  HlbI«i*PlTL. 

94410  uHlTf  HlST-hF'  FROM  MlST*LINt*OUT* 

96412  AUO  I To  MIST-LINE-CNT. 

96414  IF  r«IbT«PAOE-»-LAG  IS  EQUAL  TO  2ERO  GO  TO  HIST^NQ^PAGINO* 

96415  U mIsT-LINE-.NT  IS  FQUAL  TO  HI bT-PAGE«FLAG 

06415  then  perform  hist*print»title • 

96417  Hisr-NO-PAoING. 

96420  IF  Mibl-LINE  l5  LESS  THAN  HIST*N0»0F«INTCRVALS  THEN  00  TO 

96430  HiSf-PREPARE* 

96440  wRITF  HIST-REF  FROM  HlST-DoT-LINE* 

96450  MOVL  Ml jT-SCAl  F*VALUE  TO  HIST^SCALE^PPT* 

964o0  WRITF  HIST-REC  FROM  HIST*SCALE*LINE* 

96470  IF  uIST-OuT-Mi  9Gt-VALUE  IS  EQUAL  TO  ZERO  GO  TO  HI5T»¥RITE»B, 

96460  move  HIbT-0UT« mange-value  TO  H|ST-0UT-R ANOE-RPT . 

96490  white  HIST-MtC  FROM  MIST-OUT-RANGE-REC* 

9US00  HIST-WRITE-U. 

96510  WRIIE  MIST-HF  FROM  HIST-OOT-LINE. 

96520  GO  to  E-^C/-HISF, 

99000  HIST-LPkOK-1 • 

99ui0  white  HIST-HEC  FROM  HlST-TITLE. 

99020  MOVL  HlST-F.HM-l  TO  H IST-T  I TLE-I  • 

^OU30  HOVc  MlbT-NO-» ^-09S  TO  UlST-FRR-2* 

99040  hHIIF  »I|ST-Rt(*  FROM  MIST»TITLE* 

9'IUbO  MOVE  Ili  TO  HlST-FLAG, 

99U50  GO  lO  EKD-MIS  • 

99100  HlbT-ERHOH-2* 

99II0  MOVE  MlbT-rHR-4  TO  HIST-TITLE-I • 

99120  MOVE  HlST-EHP-5  TO  HlST-TlTLF*2 • 

99130  WRIIE  HIST-HC^  FROM  HIST-TITLE. 

9Q140  MOVE  II:  TO  mtst-flag. 

99150  GO  TO  EuD-HlSi. 

99200  HlbT-ERK-3. 

99210  MOVE  !i:  TO  H'ST-FLAG, 

99990  Lt<U-HlST.  ExIT. 

/•  Place  comul  souhce  offore 

//CHG.TFOIN  ro  •»SP/CE>tCYL»(Irl)) 

TFG  OTUl  11  0202060 

01026210220515 
• end 
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€96970 

C90970 

090970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

€90970 

C90970 

€90970 

€90970 

C90970 

C90970 

€96970 

C90970 

€90970 

C96970 

€96970 

€90970 

C90970 

C90970 

€90970 

C90970 

€90970 

C90970 

C90970 

C90970 

C90970 

€90970 

C9B970 

€90970 

C90970 

€96970 

C90970 

C90970 

€90970 

C90970 

€90970 

€90970 

€90970 

€90970 

€90970 

€90970 

€90970 

€90970 

C9O970 

€90970 

C9B970 

€90970 

€90970 

€90970 

C90970 

C90970 

C90970 

€90970 

C90970 

€90970 

C90970 

C90970 

C90970 

C90970 

€90970 

C90970 

C90970 

C9B970 

€90970 

€90970 

€90970 

€90970 

C90970 

C90970 

€90970 

€90970 

€90970 

C90970 

€90970 

€90970 

€90970 

1990  CDS 


/« 

//TPR.TU12 
//TPR.TU25 
//TPR.TPRIN 
T/P  OTOl 
T/P  TU12 
T/P  T02S 
/« 


PLACE  TFO  DATA  BEFORE  THIS  CARO 

DU  01SP>C0LD>KEEP  J>VOL>SeR>'»F1>UN1T>TaF1 
pu  oisp>i;olo«keepj>vol>ser>afs«unit>t*f8 

00  «.SP;Ct>CTRK,Cl.llJ 
10100802060 
10100202020 
11001 JOROOO 


Tia 

T28 


PLACE  T/P  CONTROL  CAROS  BEFORE  THIS  CARO 


6.8.4  SORT  FOR  UNSCHEDULED  MANHOURS 


//J9697H  JOB 
//Cqaq/F  EXEC 
//CH6.S0RT1N 
// 

// 

// 

// 

//chg.sohtout 

// 

// 

// 

//CHG.SYSIN 
SORT  FUL0S>C 

MOOS  E15HE15 

/• 


0l»;  G WANG  5»FKTV>02»TYPRUN>HOLO 
P9b*2N.w>( b0»TlME>04» Acer >0353230 07 

DU  01SP>C »KEEPJ»UNIT>C A^FSaaaOEFER CJi9/9%  1 
0SN>^E.9a97929»  I 

yOL>SER>C -i  b»  A4F5»B^F5»C4F5»04F5#E^F5#F^F5»6^F5»H4F5#  CT22  3 

nru^r P*F5  #04F5 » R4F5»  S+FS  3»  CT22  4 

>0020  »BLKS12E>  160 0 3»LABEL>C  » NSL*  BETPO>09q  J 
OU  D1SP>£  t KEEP  la  UNIT >C  A4FI *2  aOEFER  JaOSN>4A .9697430  t CT12/13  1 

VOL>SER>C  Fl.A«Fl,B*Fl.C«Fl,OAFl,EAFi;FA?i.S;n;H“Fll  CuJ  i 

I»Fl > J*F1 *KAF1 >L*F1 •M*F1»N*F1 >0*F1»P*f1>0*F1 *R*F1»saF1 J>CT12  3 

OCd>CLRECL>0020.BLKSI2E>1800  J J.CT12  3 

OU  * > OCL  >BLKS 1 ZE>0080 • SPACE  >t  TRK • 1 1 » 1 J J 

s}zE>E0250oSi“‘'’’““‘ ' 
l•008>SORTLlBtN]>El8>CE18•0^4>SORTLlB•NJ 


6.  8.  5 CUMULATIVE  DISTRIBUTION  FOR  UNSCHEDULED  MANHOURS 


//Coa.TN  EXEC  Po&S5L>TIPE>lbiACCT>03532300T 

//tHG. 

TU12 

Ou  lJlSP>t  . PASS  1. unit >C  T AFl . 1 .defer  J, OSN>AA ,«897430 . 

CT12  1 

// 

VOL>SLR>C  tr l»A4FlaB4Fla 

CaF1.0aF1.CaF1,FAF1.6aF1.HAF1. 

CT12  2 

if 

I*Fi.j*FI, <«Fl>L«Fl.H«Fl>N«Fl>0AFltPAFl.e4Fl,RAFl.SAFl j 

T12 

//CHG. 

rU2b 

OU  OISP>r  . PASS  1. unit HTAFB.l. DEFER  J,0SN>*H,<»897431» 

CT25  1 

if 

VOL>SLR>C  4F8»A4Faa64Fa» 

CaF8.DaF8yEaF8,FaF8'0AF8.HaF8> 

CT25  2 

if 

I*Fo.J*F«. lAFa.LAFa.MAF8.NAFB.04F8.P4F8.04F8iRAF8.SAF8) 

T25  3 

//CHG. 

INPUT  OU  •»SP7'!E>CCYLaCl»l  J] 

1440  COS 

uouou 

COMiUNE  COMPILE 

6,  WAnO, 

C96970 

U1U40 

OATE*WR1TTEh.  7 APR  72* 

C96970 

OltiSO 

REHhRKS. 

C96970 

UlUbO 

lASK  2C  H»ST  OF  WUCCHMC 

• 

C96970 

02U00 

ENVIRONMENT  DIVISION, 

C96970 

02U10 

conugurauon  slc.ion. 

C96970 

02U20 

SOUHCE-COMPuTER.  .’BM-ibO. 

C96970 

U2U30 

OBjtCT-COMPuTER.  JBM.JbO. 

C96970 

02100 

INPUI-OUTPUT  SECTION, 

C96970 

U2110 

FILL-COI.TROu. 

C96470 

U2120 

SriLCI  IN-FlLE 

ASSIGN  TO  UT-S-TUII 

C9a970 

U2130 

MlSLRVF  1 alternate  area. 

C9697n 

021M0 

SELECT  IllST-FUt 

ASSIGN  TO  UT-S-TUas 

C96970 

U2150 

Reserve  i xlternate  area. 

C98970 

U2200 

SELtCI  IN-FILE-ISC 

ASSIGN  TO  DA-S-DTOI 

C96970 

U2210 

RESERVE  1 alternate  AREA. 

C96970 

10000 

data  OIVISIUN, 

C98970 

louio 

fill  section. 

C96970 

11100 

FO 

IN-FlLL 

C96970 

11120 

RECoRUInO  pool  is  f 

C96970 

11130 

BLOex  contain?  90  RECORDS 

C96970 

lllMO 

RECORD  lONTAIF'S  20 

CHARACTERS 

C96970 

11150 

laplL  Records  are  omitted 

C96970 

11160 

data  records  are  IN-REC, 

C98970 

11170 

01 

IN-mEC  stnc. 

C96970 

iiiau 

02  WUC 

picture  XC5). 

C96970 

iiiai 

02  hPC 

PICTURE  XC3]. 

C96970 

11162 

02  filler 

PICTURE  X. 

C96970 

11163 

02  OBS 

PICTURE  5916), 

C98970 

11164 

02  OUS-1  redefines  OBS 

PICTURE  S99999V9. 

C96970 

11165 

02  filler 

PICTURE  X. 

C96970 

11166 

02  ISCllRONAL-  (tw 

PICTURE  X. 

C96970 

11167 

'V^  filler 

PICTURE  X. 

C96970 

11166 

02  OATa-TYPF-NEW 

PICTURE  X. 

C9e970 

11183 

02  filler 

PICTURE  X. 

C96970 

11300 

FO 

IN-f ILt-ISC 

C96970 

11320 

RECORDING  MOPE  is  F 

C96970 

11330 

blolk  Contains  20  records 

C96970 

11340 

RECORD  COntAPS  80 

CHARACTERS 

C96970 

11350 

lapel  rlcoros  Are  standard 

C96970 

11360 

DATA  RECORDS  ARE  IN-REC-ISC. 

C96970 

11400 

01 

IN-HfC-lSC  SYN.. 

C98970 

1141U 

02  filler 

PICTURE 

XtSOJ. 

098970 

121UU 

FO 

HISI-F IlE 

096970 

12120 

RLCoRUlNO  MODE  IS  F 

096970 

1213U 

blol*'  Contains  is  recoros 

€98970 

i2mo 

RECyRu  lOntaIN**.  i30 

characteks 

C96970 

121b0 

LADlL  4tC0ROS  ARE  OMITTED 

C96970 

12160 

data  rlcohos  a e HIST-REC. 

C96970 

12170 

01 

HIST-mEl  sync. 

C96970 

1<;180 

02  filler 

PICTURE 

Xtl303. 

C96970 

jouno 

WOHKING-SIOmA&E  SECIION. 

C96970 

JOUIO 

77 

KNT  SYNC  PlCTUwt  59C53, 

C96970 

J0U20 

01 

fillfr  Sync. 

C96970 

^OU^O 

02  Frl<--HIST-vALUC  OCCURS 

1000  TIMES  PICTURE  s.tsi 

C98970 

JOUmO 

CO^F-UTAriONAL, 

C96970 

JUUbO 

01 

A picru><E  sytsj  computational. 

C96970 

JOUbU 

01 

NO-OF-mISTS  sync 

PICTURE 

4<»9*  value  ZERO. 

C96970 

^oueo 

01 

ONF  S'^NC 

PICTURE 

X value  :i:. 

C96970 

jnuB2 

01 

TMO  SiNC 

PICTURE 

X value  :2i. 

C96970 

iou90 

01 

CNT  SYNL 

PICTURE 

S9t51  computational. 

C96970 

^0100 

01 

CUR-4ur-T  SYNC. 

C96970 

jr.no 

02  filler 

PICTURE 

*t53  value  : xuoi. 

C96970 

^0120 

02  CuM-»fUC 

PICTURE 

XtSJ. 

C96970 

jono 

01 

CUR-HMC-T  STNC. 

C96970 

J01(40 

02  filler 

PICTURE 

Xtsl  VALUt  S HMOI. 

C96970 

iOlbO 

02  CU»  -HMC 

PICTURE 

XtS  J. 

C96970 

J0160 

02  filler 

picture 

XX  value  space. 

C96970 

30170 

01 

ISCmRonal  sync 

PIC  lUHE 

X. 

C96970 

301H0 

01 

OATA-fYi'E  SYNC 

PICTURE 

X. 

C96970 

3oi<*a 

01 

MINUS-ONE  COMPUTATIONAL 

PICTURE 

S499  value  -1  Sync, 

C96970 

32OU0 

01 

HEPoPf-lO  SYNC. 

C96970 

32U1U 

02  filler 

PICTURE 

xtso3  value 

C98970 

32Uc:0 

t. 0847X60  TFTOIO-OI  I42-A  1 1/2  I, 

C98970 

32030 

U2  ElLLtK 

PIC  ruRE 

xtsoi  value  space. 

C96970 

32U^0 

a!  eillCh 

PicruRF 

XtJUl  VALUE 

C98970 

32UbU 

i 

7 * * 

C96970 

MnuOO 

01 

mean  computational  sync 

PICTURE 

S9tTlV99. 

C96970 

mwlU 

01 

VAPIANCl  COMPUiATIONAl  sync 

picture 

S9t71V9q, 

C96970 

<46020 

01 

1EMj..-,,yvP 

PICTURE 

svtT  Jvqv. 

C96970 

MblOU 

01 

lANtt -MNE  SYNC* 

C96970 

MbllU 

02  flLLCH 

PICTURE 

XI  501  value 

C96970 

Mbl2U 

:s 

1. 

C98970 

<46130 

02  MLlER 

PICTURE 

xtivi  value 

C98970 

*46l<40 

J mean 

>;* 

C96970 

<46lbU 

02  ‘■‘lA.^-hpt 

PICTURE 

zzz9.q. 

C98970 

<46160 

02  filler 

PICTURE 

xtioi  value 

C96970 

<46170 

J 

VAKIANCe  >:. 

C98970 

<46180 

02  VAHiAfiCL-R«l 

PICTURE 

ZZZZZZ9.9. 

€98970 

<46lO0 

02  FUlEH 

PICTURE 

Xtibl  VALUC 

C96970 

<46^00 

C98970 

H 7000 

01 

HlSl-VALUt-MAX  SYNC 

PICTURE 

sqp.qvqv  value  -*999. 9. 

C98970 

<47010 

01 

HlSt-VALUL-MIN  SYNC 

PICTURE 

S99V9V99  value  <9999.9. 

C98970 

<4701^ 

(Jj 

HlSl-VALUe-Hl  SYNC 

PICTURE 

S9999V9V  value  <9999.9, 

C98970 

<47020 

01 

HiSl-NO-Of-OnS  SYNC 

PICTURE 

S9tbi  value  zero. 

C98970 

4 7U30 

4 

hlSl-N0-O^-I^TFRvALS  SYNC 

PICTURE 

999V99  value  50. 

C98970 

47U40 

01 

Hisi-1  <put-vmax-vmin  sync 

PICTURE 

9 value  zero. 

C98970 

47060 

01 

NlSl-UlsT  SYNC 

PICTURE 

X value  !1;. 

C98970 

47060 

01 

HisT-r4UFx  syf:  computational 

C96970 

47070 

PICTURE 

5999  value  zero. 

C98970 

47000 

01 

Ul<;i-l'i.lE*-2  S7NC  computational 

C98970 

47090 

PICTURE 

5999  value  zero. 

C98970 

47100 

01 

HiST-TfMP  SYNC 

PICTURE 

S99999V99  VALUE  ZERO, 

C98970 

47110 

01 

HlSr-INIFRVAL-SlZE  SYNC 

PICTURE 

S999V99  VALUE  ZERO 

C98970 

47120 

computational. 

C98970 

47150 

01 

hist-flag  sync 

PICTURE 

X value  101. 

C98970 

47160 

01 

HISI-SCALE-VAL'IL  sync  computational 

C98970 

47170 

PICTURE 

5999  value  <1. 

C98970 

47100 

01 

hist-pehcent  s *k 

PICTURE 

S999V99  computational. 

C96970 

47190 

01 

HIST-LUP  SYNC 

PICTURE 

S999V99  computational. 

C98970 

47200 

01 

MlSl-LlNE  fiTNC  COMPUTATIONAL 

C96970 

47210 

PICTURE 

5999  value  zero. 

C98970 

4 7220 

01 

HiSr-PAyE-FLAG  SYNC 

PICTURE 

S999  value  <75. 

C96970 

47230 

01 

hlST-L INE-CNT  SYNC 

PICIMRC 

5999. 

C96970 

47300 

01 

HlST-tRb-l  SYN* 

PICTURE 

xtioi  value 

C96970 

47310 

TERROR  NO 

o;. 

C96970 

47320 

01 

HIST-LRm-3  SYN^, 

C98970 

47330 

02  FILlER 

PICTURE 

xi5i  value  IPs  > I. 

C96970 

47340 

02  HIST-FRH-2 

PICTURE 

591 51  value  zero. 

C98970 

*4  7360 

01 

hlSf-LHH-*4  SYNl 

PICTURE 

Xtiol  value 

C96970 

473^0 

TERROR  MAvt. 

C96970 

4 7370 

01 

Hisi-L4<r<-b  syn: 

PICTURE 

XtlOl  value 

C98970 

47380 

t-min  oao 

* * * 

C98970 

473^50 

01 

NISI -UUr-RANf,C -value  sync 

PlCTUPt  S999  computational. 

C96970 

47’jOO 

01 

F ILLf  R SYNC . 

C98970 

4 7blO 

02  FiLLtM  OCCURS  200  TIMES 

C90970 

4 76^0 

03  HISl-TAOLE 

PICTURE 

SRCM  COMPUTATlONAt, 

€06970 

4 ;b40 

03  KISI-UUPEH-LIMIT 

picYi  Mr 

S#<»NRV99  computational. 

C98970 

(•-155 


47b&0 

03  HIST-T\bLE-SC*LEO 

PICTURE 

S999V99  computational. 

C98970 

47b60 

01 

HlST-NL»k-PAGE  SYNC* 

C96970 

47b70 

02  Filler 

PICTURE 

A value  II :. 

C96970 

47be0 

02  FILLER 

PICTURE 

At  122 3 value  space. 

C98970 

47b8ie 

02  filler 

PICTURE 

AtsJ  value  I page  ;. 

C98970 

47584 

02  Hisr-p*et-NO 

PICTURE 

9. 

C96970 

47590 

02  filler 

PICTURE 

A value  ttt. 

C98970 

47&00 

01 

HIST-TI rLt  SYNi  , 

C98970 

47bI0 

02  filler 

PICTURE 

Xt3  3 value  is  t. 

C98970 

•♦TbZO 

02  hisi-title-i. 

C96970 

•♦TbZl 

03  filler 

PICTURE 

AC  101  VALUE  SPACE. 

C96970 

47530 

02  Hlsr-TITLE -2. 

C96970 

47531 

03  Filler 

PICTURE 

AC  103  VALUE  SPACE, 

C98970 

47540 

02  HiSl-TlTLE-3 

PICTURE 

AC  10 3 value  SPACE. 

C98970 

47b50 

02  H1ST«T1TLE*4 

PICTURE 

AC  10  3 value  space. 

C98970 

47660 

02  filler 

PICTURE 

AC  24  3 value 

C98970 

47570 

: NO  OF  observations  >:« 

C96970 

4Tbtm 

02  HISf-NO-OF-Oes-PPT 

PICTURE 

22229. 

C98970 

47500 

02  filler 

PICTURE 

AC  13 3 value 

C98970 

47700 

: VAL'ft  MAX  > :• 

C 98970 

47710 

02  7'lSf-VALUe-MAX-RPT 

picture 

C98970 

47  720 

02  filler 

PICTURE 

AC  13 3 value 

C98970 

47730 

; VAL  t MIN  > 

C98970 

47740 

02  hl5(-VAHjE-MIN-RPT 

PICTURE 

C98970 

47750 

02  filler 

picture 

AC  18 3 value 

€98970 

47760 

: 

C96970 

47S00 

01 

HIST-UOI-LINE  SYNC. 

C96970 

47S10 

02  filler 

picture 

AC  SO  3 VALUE 

C98970 

47S22 

02  Filler 

picture 

AC  80  3 value 

C98970 

47S40 

C98970 

479S0 

01 

hisi-lauel  syn:. 

€98970 

47S60 

02  Filler 

PICTURE 

AC  SO  3 VALUE 

C98970 

47970 

:/  MIOPNT  PCNT 

CUM  FRtO  l...S...I0...1S.,.20.t. 

C98970 

47974 

02  FILLER 

PICTURE 

AC  80  3 value  ! , , 

C96970 

47980 

• 

«28«*«'^U«««3S«v*40««.4S.**S0««.5S..4 

> 68  * • « 6S ...To***  T5  * * * 60  * * * 

€98970 

47990 

;8S...4ii...qs.  loot:. 

C98970 

4AU00 

01 

HIST-LINE-OUT  SYNC. 

C98970 

48010 

02  Filler 

picture 

A VALUE  t/t. 

C98970 

48O20 

02  HISI-LINE-  PT 

PICTURE 

229. 

C98970 

48U30 

02  filler 

PICTURE 

A VALUE  SP*CE. 

C98970 

48040 

02  HlS(-MIO-PUlNT-RPr 

picture 

C9$970 

48U60 

02  HISI-PCRCE  II-HPT 

picture 

229.9, 

C98970 

48070 

02  Filler 

picture 

A VALUE  SPACE. 

C90970 

48U60 

02  HIS(-CUM-R'’T 

picture 

229.9. 

C98970 

48100 

02  HlSI-FRtO-«PT 

picture 

22229, 

C98970 

48110 

02  Filler 

PICTURE 

A VALUE  SP*CE, 

C98970 

48120 

02  HISI-POINT  OCCURS  100 

TIMES 

C98970 

48130 

PICTURE 

X* 

C98970 

48140 

02  filler 

picture 

A value  :*!. 

C98970 

481S0 

01 

HlST-OUt-RANGE  REC  SYNC. 

C98970 

48160 

02  filler 

PICTURE 

AC3S3  value 

CO8970 

48170 

J/  NUMBER  OF  OUT 

OF  range 

VALUES 

C98970 

48180 

02  HIST-OUT-RANGE-RPT 

PICTURE 

ZZ9* 

C98970 

48190 

02  filler 

PICTURE 

AC 91 3 value  space. 

C98970 

48191 

02  FILLER 

PICTURE 

A value  I*:. 

C98970 

48^00 

01 

HISI-SC«LE-LINE  SYNC, 

C98970 

48210 

02  Filler 

PICTURE 

AC  27  3 VALUE 

C98970 

46220 

:/  SCALING 

FACTOR  > 

. • 

C989T0 

46230 

02  HlSl-SCALE-HPT 

PICTURE 

ZZ9. 

C98970 

48<!40 

02  FILLER 

PICTURE 

XC099)  VAlUC  space. 

€98970 

482S0 

02  filler 

PICTURE 

A VALUE  1*1. 

C98970 

48300 

01 

FiLLfR  bYNC. 

C96970 

48310 

02  HlSr-VALUe  OCCURS  1000 

times 

C98970 

483P0 

PICTURE 

S9999V9  computational. 

C98970 

48350 

01 

Hlsr-»C-WK  SY  'L. 

C98970 

48380 

O’j  CUIoFF-ISO  picture  S9t2J, 

C98970 

48390 

OS  CUTuFF-Nl  picture  S9t2J. 

C98970 

4839b 

OS  filler  PICTURE  XC763. 

C98970 

SOUOO 

PHOCEOUkF  01  vision 

C98970 

bOOlO 

OPEN  INPUT  IM-FILE.  IN-FILE- ISC. 

C98970 

b0020 

OPEN  OUlPUT  HliT-FILE. 

C98970 

50022 

REAU  IN-FILE-ISC  into  hist 

-AC-WK  AT 

ENO  00  TO  Close-files. 

C98970 

bOo30 

MOVL  lOuO  TO  KNf , 

C98970 

b0()40 

PERFORM  RtSLT-IAPLE  Thru  eno-rst-taole. 

C98970 

bOOSO 

HEAU  IN-FiLt.  at  ENO  60  TO 

close-files. 

C989T0 

50060 

WRITE  HlST-RLC  FROM  REPORT 

-10. 

C98970 

SOlOO 

PANA-1 • 

C98R70 

bOlIO 

MOVL  1 TO  HIST-NO-OF-OBS. 

C98970 

b0120 

MOVL  WUC  TO  CL^-WUC. 

C98970 

b0130 

MOVL  Hi'b  TO  CL'T-HMC. 

C98970 

b0140 

MOVL  UAIA-TTPE-NEW  to  DATA 

-type. 

C98970 

bOlbO 

MOVL  ISLMRONAL-NEw  TO  ISCHRONAt* 

C98970 

b0160 

IF  OATA-TyPE  N'T  EOUAl  TO  < 

ONE  00  TO 

MEEKS-DATA  ELSE  *0  TO 

C98970 

b0l70 

FLT-OATA. 

C98970 

f.-15G 


bOi^OO  RLAUl, 

bO^lO  RtAD  1N-FIL£»  AT  LNO  GO  TO  CLOSC-FILES* 

b0«i20  IF  OAlA-TYPL-^■E»l  IS  EOUAL  TO  I9t  60  TO  CLOSC-fiLES* 

bn<;jO  IF  mUC  is  not  C.WUAL  TO  CUR-WUC  <»0  TO  PAflA.^* 

bU240  IF  mMC  is  not  EWUAL  TO  CUR-HMC  GO  TO  PARA.^* 

b0250  AOn  1 TU  HIST-  NO-OF-OBS. 

b0260  IF  UATA-TyPL  ►'OT  EOUAL  TO  ONE  60  TO  HEEKS-OATA  ELSE  60  TO 

b0270  FLT-OATA. 

boioo  para-?, 

bOJIO  PERFORM  SET-HTSTOG  THRU  ENO-SH* 

b0J20  PERFORM  RtStT-TARLE  THRU  ENO-RsT-TABLC* 

b0J30  00  TO  PaRA-I . 

bU400  HLSLT-TARLL* 

bOMlO  MOVE  hO  to  CNT, 

b0**20  HbT. 

bO^JO  ADO  1 TO  CNT* 

b0440  MOVE  MINUS-ONE  |0  HiST-VALuE  CCNTj, 

b044b  MOVE  2LmO  to  F9lO-H1ST-VALuE  CCNT3, 

b04b0  IF  LNT  is  LESr  THAN  KNT  GO  TO  RST. 

b04«)b  MOVE  ^t*^0  TO  KNT, 

bn4tO  END-HST-TAbuE.  LxU, 
bOblO  SEI-HlSTOo. 

bOblb  IF  MlbT-N()-OF-OdS  IS  NOT  GREATER  THAN  CUTOFF-Nl  AND  ISCHRONAL 

bOblb  NOT  EQUAL  TO  ONE  GO  TO  ENO-SH, 

bObl7  IF  filsr-fiO-OF.  JbS  IS  NOT  GREATER  THAN  CUTOFF-ISO  ANq 

blblb  iSCdRONAL  Ib  equal  TO  ONE  GO  TO  ENO-SH, 

bnb20  IF  ISLHhOnAL  IS  EQUAL  TO  ONE  MOVE  I ISO  t TO 

b0b30  MiSI-TITLE-4,  ELSE  MOVE  J NON-ISO  T TO  HISt-T1TLE-4, 

bn^uu  IF  oata.typl  ;s  equal  to  one  hove  : man-hr/ma:  to 

SOobU  MlST-TlTLF-3#  ELSE  MOVE  J FLT-HOURS:  TO  HIST-TITLE«J, 

bObbO  MOVE  C'm-wuC-T  fO  HIST-TITLE-I* 

bUb70  >'Ovt  (.UH-MMC-.  to  HiST-TiTLE-a. 

bObMO  “ PERFOhM  write  HISTOGRAM  THRU  END-HIST, 

boooo  IF  mIst-flag  »s  equal  to  m:  then  00  TO  CFI, 

AOn  1 To  NO-OF-MISTS.  ^ 

bj».20  ENIJ-SM,  Mil, 
blUOO  WthKS-DATA, 
blulO  MOVE  ^L'<0  TO  CNT. 

bl020  KttK-A, 

bloiO  Aun  1 Ti,  CNT, 

blU40  IF  vI's  IS  E iUAL  TO  HlST-VALUE  tCNTJ  GO  TO  «CEK-C, 

bluso  IF  FRtQ-HlST-VALUt  CCNT]  1$  EQUAL  TO  ZERO  00  TO  kEEK-B, 

biubc  IF  cNf  IS  LESS  Than  looo  go  to  wEEK-a, 

blJTO  bISPLAY  J MORE  THAN  lOOO  FREQUENCY  OCCURENCES  * UPON  CONSOLE, 

blUAO  uO  lO  CH  . 

DlU'^O  WELK-K, 

blirju  POVL  TO  HIsT-VAlUL  tCNT3, 

blllO  IF  bNf  IS  GhEATLP  than  KNT  THEN  MOVt  CNT  TO  KNT, 

bll?0  wElk-C. 

blliO  ADD  1 To  FPLO. hist-value  CCNT3, 

bl  140  oO  |0  RoA()1  , 

b?UOO  FLT-UATA. 

bc'JlO  KOVL  2E«0  TO  ONT, 

b2u?a  FLr-A. 

b2u30  Ann  I TO  CNT, 

b?OM0  IF  OHS-l  lb  equal  to  HIST-VALUL  t CNT 3 60  TO  FLt-C* 

‘j20bO  IF  FRLQ-HIST-V  ILUE  ICNTI  1$  EOU^L  TO  aERO  60  TO  ELT-B, 

b2UbO  IF  cMr  IS  LLS'-  THAN  1000  GO  TO  FLT-A, 

b2U70  DISPLAY  ; mopF  THAN  1000  FREQUENCY  OCCURENCES  • UPON  CONSOLE, 

b2uF^0  oO  lO  CF  1 . 

b20no  FLI-b, 

bPino  MOVL  OMS-I  TO  hist-value  CCNT3, 

b2110  IF  lNI  is  GRMTLR  THAN  KNT  THEN  MOVE  CNT  TO  KNT, 

b2I20  FLI-C. 

b2I30  AOP  1 To  FRLQ- HIST-VAluE  CcNI3, 

b2l40  00  TO  RlAOI , 

b2200  CLObt-FiLtS. 

b22nb  F'LPFOKM  SET-H.STOG  thru  ENO-SH, 

b2207  CFI. 

b22l0  CLObF  IN-F1LE»  HIbT-FILE»  IN-FILE-ISC* 

S?^n  IF  HlbT-FLAG  IS  EQUAL  TO  SH  DISPLAY  1 MIST  ERRQR  I UPON 

b22l2  COimSOLE, 

b22lb  DISPLAY  i NO  HISTOGRAMS  > I NO-OF-HISTS  UPON  CONSOLE* 

b2220  display  I FOJ  C9eN7P  I UPON  CONSOLE* 

b2230  GOPACK. 

9SU0O  COMPuTC-MLAfj-vARlMCE* 

9*>00b  IF  HibT-NO-OF-OUS  EQUAL  TO  I 60  TO  CMV-3, 

9S010  EOVL  2r.H0  TO  CUT, 

9SU20  MOVL  2tH0  TU  MEAN, 

9SU30  CMv-1, 

95U40  AOn  1 TO  CNf, 

NbUSO  COMPUTE  T^MP-COMP  > HiST-VALUE  ICNTJ  ♦ FReQ-MIST-VALUE  (CNT), 

9‘jUoO  ADP  Tlmp-COMP  TO  MEAN. 

950/0  IF  CNT  IS  LESS  THAN  KNT  GO  TO  CMV-1. 

HbUnO  DIVICL  HiST-NC  •OF-OHS  INTO  MFAN, 

95UN0  MOVL  2LhO  TO  CNT, 

95100  MOVE  ^M<0  TO  VARIANCE. 
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J51I0  CMv-2. 

95i20  AOO  1 TO  CNT. 

95130  COMPUTE  TEMP-COHP  > CCHlST-VALuC  CCNTJ  • MCAN]  ••  23  • 

95140  fREQ<>HlST*VA4.ue  (CNTJ. 

95150  AOP  TtMP-COMP  TO  VARIANCE* 

95160  IF  cNT  is  LES'*'  THAN  KNT  GO  TO  CMV-2* 

95170  COMPUTE  VARIANCE  > VARIANCE  / C HlST-NO^OF-OBS  - n« 

95180  MOVL  MEAN  TO  KEAN-RPT. 

95190  MOVE  VAhlANCr  TO  VAR 1 ANCE-RPT * 

95191  GO  TO  CMV-4. 

95192  CMv-3. 

95193  MOVL  zero  TO  V AHIANCE-HPT* 

95194  MOVE  Hl^T-VAH  E C M TO  M£An-RPT. 

95195  CMv-4. 

95200  WHITF  MIST-HEC  FROM  mlan-VARIANCE-LINE, 

95290  ENU-CMV. 

97000  WRlTE-HlSTOoRAM. 

97080  MOVE  lO;  TO  HlST-FLAG, 

97090  MOVE  2EhO  TO  ^ IST-OUT-RANGE-VALUE. 

97100  MOVE  2EKO  TO  P IST-PAGE-NO. 

97140  MOVE  -9999*9  TO  HIST-V ALUE-MAK , 

97150  MOVE  <9999*9  |0  HlST-VALUE-MlN. 

97200  MOVL  2FKO  TO  'l5T-lNr)EK. 

97^10  HlST-FlNr-VMAx-vM«N. 

97220  ADO  1 1u  H15T-1N0EK* 

97230  MOVL  H15T-VALLE  CHlST-lNOEXl  TO  HiST-TEMP. 

97240  IF  hl5T-TLMP  "S  GREATER  THAN  HIST-VALuE-MAX  THEN  MOvE 

97250  HIct-TEMP  TO  HlST-VALUE-MAX. 

97260  IF  H15T-TKMP  IS  LESS  THAN  H15T-VALUE-M1N  THEN  MOvE 

97270  HllT-TEMP  TO  HlST-VAEUE-MlN. 

97280  IF  Hl5r-lNnEX  15  LESS  THAN  KNT  THEN  00  TO 

97281  HIST-FINO-VMAX-VHIN* 

97282  MOVL  2E«0  TO  KlST-VALUE-Ml . 

97283  MOVE  HI5T-VALI E-MlN  TO  HlST-TEMP. 

97284  SET-LOW* 

97285  IF  M15T-TLMP  LESS  THAN  100  GO  TO  GOT-LOH* 

97286  SURTHACI  100  FROM  HlST-TEMP, 

97287  AOn  lOU  TO  HIST-VALUE-Ml * 

97288  GO  TO  StT-LOw, 

97289  GOT-LOW* 

97292  COMPUTE  HIST-NO-OF- INTERVALS  > 

97294  IHJSr-VAtUE-MAX  - H15T-V ALUE-Ml)  / 1*0  < 4. 

97300  Hlsr-PRINT- TITLE* 

97301  IF  H15T-N0-0F- intervals  IS  LESS  THAN  50  MOVE  50  TO 

97302  H15T-N0-0F-1NTERVALS# 

97304  AOO  1 TU  HiST-PAGE-NO, 

97306  MOVE  5 10  HIST -LINE-CNT. 

97310  WRITE  HIST-REC  FROM  HlST-NEW-PAGE* 

97320  MOVE  H15T-NO-OC-08S  TO  HIST-NO-OF-OBS-RPT, 

97330  MOVE  H15T-VALUl-MAX  TO  HIST-VALUE-MAX-RPT. 

97340  MOVE  HliT-VALUr-MlN  TO  HIST-VALUC-MIN-RPT* 

97350  WRITE  HlST-RE,  FROM  HlST-TXTLE, 

97355  PERFOR'4  C0MPU“E-MEAN-VAR1  ANCE  THRU  ENO-CMv* 

97356  IF  HI5T-VALUE-MAX  EQUAL  TO  2FRO  GO  TO  ENO-HIST* 

97360  WRITE  HiST-REL  FROM  HIST-OOT-LINE* 

97370  WRIIE  HIST-REv  FROM  HIST-LABEL* 

97380  WRITE  HIST-REF  FROM  HIST-OOT-LINE. 

97390  HlSI-OUMMr. 

97410  IF  HI5T-VALUE-MAX  IS  LESS  THAN  HiST-VALUE-MIN  THEN  GO  TO 

97420  HlST-ERROR-2* 

97430  IF  H15T-NO-0F-1NTERVALS  IS  GREATER  THAN  200  THCN  MOvE  200 

97440  TO  HIST-NO-OF-INTERVALS* 

97441  MOVE  2EHO  TO  ElST-lNOEX* 

97442  HIST-RST. 

97443  AOO  1 TO  HIST-lNOEX. 

q7^44  MOVE  2KHO  TO  HI5T-TARLE  C HJST-INOEX 3* 

97445  IF  Hl5T-lNnEX  IS  LESS  THAN  HIST-NO-OF-INTERVALS 

97446  THEN  GO  TO  HIST-RST. 

97450  move  t.O  TO  HIST-INTERvAL-SUE. 

97500  NOTE  COMPUTE  oPPER  LIMIT  FOR  EACH  INTERVAL* 

97510  MOVt  2EhO  to  UST-INOEX, 

97520  MOVL  HlsT-VALME-MI  TO  HiST-TFMp. 

97530  HlST-INC- interval. 

97540  AOO  1 TO  HIST  INOEX* 

97550  AOn  HIST-lNTEf'VAL-SlZE  TO  HlST-TEMP, 

97560  MOVt  HiST-TEMP  fo  HIST-UPPER-LIMIT  C HlST-INOEX 3. 

97570  IF  HlST-lNDEX  l5  LESS  THAN  HIST-NO-OF-INTERVALS  THEN 

97580  GO  TO  Hl5T-lNC-lNTERV*L* 

97600  NOTE  PLACE  OCFUHANCL  INTO  APPROPRIATE  CHANNEL* 

97610  MOVE  ZERO  TO  Hl5T-INnEX-2* 

97620  HIST-OCCURAnCE, 

97630  AOP  1 TO  HIST  •lNOEX-2. 

97640  MOVE  HiST-VALUE  C Hi ST-INOEX-2 3 TO  MiST-TEMP, 

97650  MOVL  2FHO  TO  HlST-lNPEX* 

97o60  Hlsr-INTFRVAL* 

97o70  AOP  I TO  HlST-lNOEX* 

9767S  MOVE  FHtO-HlST-VALUE  T HlST-INOEX-2 3 TO  A. 
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97b80 
y ^»i90 
97700 
97710 
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97  740 

97750 

97751 
97780 
97800 
97810 
97820 
97830 
97840 
97850 
97860 
97870 
97880 
97890 
97895 
97S00 
97^10 
979P0 
97930 
97940 
97950 
97960 
98O00 
9AU10 
98O20 
98U30 
98U40 
98U50 
96O60 
90870 
90U0() 
9AU9U 
98100 

981  lU 
SH120 
98130 
98140 
98150 
98160 
9H170 
98180 
98190 
96200 
98210 
90*20 
98230 
96240 
9Hc;5U 
98260 

982  70 
98280 
96290 
96300 
98310 
96  ^?0 
96330 
98338 

98  139 
98340 
98400 
98410 
98412 
904  14 
9H4  15 

98416 

98417 
90420 
98430 
98440 
96450 
96460 
984  70 
98480 
98490 
QHbOO 
98510 
90520 
99000 


IF  HI5T-TEMP  .5  NOT  GREATER  THAN  M|ST-UP^R-LI*<!T 
CHlbT-INP'-X  J THLN  GO  TO  HlST-ADO-TABUE. 

IF  hist-index  is  less  than  H1ST«NO«OF*INT£RvAlS  THEN  OO  TO 
HIST-INTERVAL* 

ADP  A TO  HIST-  0UT-RANGE-VALUE» 

GO  TO  HIST-NO-AUO. 

HISI-ADU-lAdLL. 

ADO  A TO  HIST-TABLE  C H 1 ST-INOEX J. 

HIST-NO- AUO. 

IF  HlST-lNOtX-2  IS  LESS  KNt  GO  TO  HiST-OCCURANCE. 

notl  compute  scale  value. 

MOVE  hist-tab  E C13  to  HIST-TEMP. 

MOVE  1 TO  HIST-INOEX. 

HIST-SCALE. 

ADO  1 TO  HIST  -INPEX. 

IF  HIST-TaBLE  C HIST-INOEX 3 IS  GREATER  THAN  HfST-TENP  THEN 
MOVE  HIST-TABLF  C HlST-fNDEX 3 TO  HIST-TEMP. 

IF  HlST-lNDEX  IS  L SS  THAN  HIST-NO-OF-INTERVALS  THEN  60  TO 

HIST-SCALE. 

COMPUTE  H1ST-''CALE-VAluE  > CHIST-TEMP  < 993  / lOO. 

IF  HIST-SCALE-VAluE  less  than  1 MOVE  I TO  HIST-SCALE-VALUE. 
MOVE  2EhO  TO  hIST-INOEX. 

HIST-SCALEO-VALUf ‘ . 

ADD  1 TO  HlST-lNOEX. 

compute  HIST-TAolE-SCALLO  CH1ST-1NOEX3  > 

HIST-TAOLL  CH1ST-INOEX3  / HIST-SCALE-VALUE. 

IF  HlST-lNPLX  IS  less  THAN  H IST-NO-OF-INTERV AlS  THEN  60  TO 
HIST-SCALEO-VALUES. 

NOTE  PPlPaRE  OU  “^UT  DATA, 

OlVKE  2 INTO  h.ST-lNTERVAL-S12E. 

MOVE  2EkO  TO  IST-CUM, 

movl  2(  ho  to  “IST-LINL, 

HlST-PRLPAMt., 

ADD  1 TO  hist*  LINL. 

MOVL  HlST-LlN'  TO  HIST-LINE-RPT. 

CCmhuU  HlST-’EMp  > H1ST-(»PPER-LIM1T  CHIST-LINE3 
- HIST-INTEHVAL-SIZE. 

MOVE  HlST-TEM,  10  HIST-MIO-POInT-RPT. 

COMptiit  HiST-f’EHCLNT  > HlST-TABLE  CHlST-EINt3  ♦ 100 
/ HIST-NO-OF-08S. 

MOVE  til  .T-PtHCENT  TO  HIST-PEHCENT-RPT . 

Acp  Hisr-PEMc:Nr  to  hist-cum. 

MOVL  hIsT-CUM  to  HIST-CUM-RPT. 

•■OVL  nIsT-TAMLE  CHIST-L1NE3  TO  HIST-FRCO-RPT * 

MOVL  21kO  TO  HlST-lNDEK. 

IF  hlsT-PlST  .S  MOT  FOUAL  TO  lo:  60  TO  HIST-CUM-l, 

COMPUTE  HiST-*NUEx-2  > HlST-TADLE -SCALED  CHIST-LINEJ  < 0*5. 

IF  MlST-lNntX-2  IS  equal  TO  2ER0  00  TO  HIST-PREP-SPACE , 
HlSl-PPLP-'USf « 

ADO  I to  HIST*  Index. 

MOVE  TO  HTsr-POiNT  CHIST-INOEX 3. 

IF  Hisr-INOEX  Is  less  than  HlST-lNr)EX-2  00  TO  HIST-PREP-OIST. 
IF  HlST-INDEX  IS  equal  TO  100  THEN  GO  TO  HIST-MRITE. 
HiSl-PRtP-SMAcE, 

AOD  I Ty  MIST-INDEX. 

MOVE  SPmCE  to  HIST-POINT  C Hi ST-INOEX 3. 

IF  nlSl-lNDEX  IS  less  THAN  loO  THEN  GO  TO  HIST-PREP-SPACE. 

GO  10  HIST-WHITE, 

HIST-CUH-1. 

ADf’  1 TO  MIST-INDEX. 

MOVE  SPACE  TO  hist-point  C HIST-IMOEX 3. 

IF  Hisr-iNrLX  IS  LESS  THAN  100  IHF.N  GO  TO  HlST-CUM-1, 

COMPUTE  MIST-INUEX  > HIST-CUM  < 0.5. 

IF  hlSI-lNDEX  IS  equal  TO  2E«0  GO  TO  HIST-MHITE. 

MOVL  TO  H’ST-POINT  C HI ST-I NDEX 3. 

HIST-WRI rt. 

write  HIST-REw  from  hist-line-out. 

ADO  1 To  HIST  LINE-CNT. 

IF  HIST-PaGL-FLAG  IS  equal  to  2ER0  GO  TO  HIST-NO-PAQINQ. 

IF  hist-»  ine-cni  is  equal  to  hist-paoe-plao 

then  perform  hist-print-title. 

HIST-NO-PAGINg, 

if  mISI-LINL  is  LLSS  than  hIST-NO-OF-INIERVALS  then  60  TO 

HIST-PREPARE. 

wHIIF  hIST-HF'  from  hist-oot-line. 

MOVE  MIST-SCA', E-VALUE  TO  HlST-SCALE-RPT. 

WHIIE  MIST-RfC  from  hist-scale-line. 

IF  MlST-OuT-R,.rii,E-VALUE  IS  EQUAL  TO  ZERO  60  TO  HIST-WRiTE-B. 
MOVL  MIST-OUT  HANoE-VALUE  TO  HIST-OUT-RANGC-RPT, 
wRIIf  HiST-RfF  from  HIST-OUT-RANOE-REC. 

HIST-wRlTt-J. 

wRlIf  hIST-HT  from  hist-oot-line. 

go  to  F .O-MIS*'. 

HIsT-ERkOH-I . 


C98970 

C96970 

C98970 

C98970 

C98970 

C96970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C9S970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C9S970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

098970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

098970 

C90970 

C98970 

098970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 


GENERAL  DYNAMICS  SaN  DIEGO  CALIF  CONVAIR  AEROSPACE  DIV  F/6 
F-106  scheduled  MAINTENANCE  STUDY.  USER'S  MANUAL^ fU) 

SEP  72  G WANG#  R S GROTE  » J R COOPER  F41608-71-D-1383 

6DCA-AHD72-006  NL 


UNCLASSIFIED 


L 


99UI0  WRITE  HIST-REC  EROM  MIST-TITLE, 

99020  MOVt  HliT-EMR-1  TO  HlST-TlTLE-1 . 

99030  HOVt  HlbT-NO-TF-OBS  TO  HIST-ERR-I. 

990I|0  WHITE  HIST-HE*;  FROM  HlST-TlTLE. 

990b0  MOVE  :i:  to  hist-fl*o. 

99060  GO  TO  tnD-HlS.‘. 

99100  Hli>T-ERM0H-2. 

99110  MOVt  HliT-EMR-O  TO  HlST-TlTLF-1, 

99120  MOVt  HlbT-FMR-9  TO  HlST-TlTLt*2. 

99130  WRIII  HIST-ME  FROM  HlbT-TlTtr.. 

99140  MOVt  :l:  TO  H'bT-FLAO. 

99130  GO  (0  LND-HIS). 

99200  HlST>ERH-3. 

99210  MOVt  :l:  TO  H’ST-FLAO. 

99990  ENO-HIST.  tXiT. 

/•  PLACE  COHOL  SOU.lCt  dEFORE  THIS  CARO 

//CHG.TFGIN  do  ••SFlCt>CCYL>Cl>l]] 

TFG  DTOl  11  0202000 

0515 
• ENO 

/•  Place  tfg  data  'tefore  this  card 

//TPR.TU12  OU  01SP>C0L0>KEEP]>V0L>SCR>AFl>UNtTmFl 

//TPR.TU2S  OU  01SP2COLO>KEEP]>VOL>SER>aF8>UN1T>TAFS 

//TPR.TPHIN  OU  WtSP  CE>CTRK(C1>111 

T/P  DTOl  10100002080 

T/P  TU12  10100202020 

T/P  TU2S  1100130R000 

/•  PtACE  T/P  CONTR''L  CAROS  BEFORE  THIS  CARO 


6-160 


C989T0 

C989T0 

C989T0 

C9S9T0 

C989T0 

C989T0 

C989T0 

C989T0 

C989T0 

C989T0 

C989T0 

C989T0 

C989T0 

C989T0 

C989T0 

1990  COS 


Ti2 

T25 


"1 


6.  9 PROGRAMS  FOR  INTERVAL  LENGTH  ANALYSES 
G.O.l  PREPROCESSOR  - TASK  IH 


//L9i>97H  job  01  •:  <3.  mANB.  t•P>i7r>0^•7rPKUN>H0LD 

//C9B97B  EXLC  P9bB!iL>TIMC>OA.ACCT>03532S007 

//CHG.TUIH  Ou  0ISP>C>PASSliUNIT>CA*F3>2t0CFEI«]>D!»N>7C.9B97l»lb« 

//  VUL>S£R>C»F3>A«F3>a»F3>C*F3>0*F3<C'»F3>F7F3>67F3>H7F3> 

//  I*F3>J*F3>K»F3>t'»F3>M'»F3«N*F3.0'»F3«P«F3«e7P3>R7F3>S7F3) 

//CHG.TU22  OU  0ISP>tiPASSliUNIT>CA*F3>2«0£FeR]<DWI>7E.4B97429> 

//  VbL>SER>(»F3iA*Fbta*F3>C*FS<0'»F&<E7F5>FtFb*67F3>H7F3> 

//  I*Fb>J4Fb>K»FbiL»Fb>M*FS>N'»F3.0'»F3>P«F5>a«F3>R7FS>S7F3] 

//LHG.TU29  OU  UISP>1  iPASS  JiUNlT>CT'*F7>ltUEFEK]<0bN>76.9S9742b> 

//  VUL>SER>C  ♦F7iA«F7.B«F7*C«F7»0*F7#£»F7,F*F7»b*F7.H*F7» 

//  1«F  /•J«F7tK«F7iL»F7«R»F7«N*F7,O*F7.P*F7»0*F7»H*F7.S*F71 

//I.HG.  INPUT  OU  ••bPACE>CCTt>Cl>l]l 

uouoo  cuPuiNF  Compile  g.  aANC. 

UlUOU  lUtM  IFICm)  ION  OtViSlON, 

UlUlO  PNOuKAM-IUi  C9A97 
U1U2U  AulnOR.  A,  J,  ROhrKEK, 

Ulu3U  InSIALLATIOk.  GLNEHmL  UTNAHICS/CONVAIR . 

UIUaO  0A)l-«R1TTLi<.  ?U  HAK  /2. 

UlUbO  RLMAKKS, 

UlUbU  MaINTlNANCE  STUUr  PHOGHAM  3a. 

U1U70  INTlRvAl  length  analysis. 

UluHU  TOTAL  TASK  COMPRISES  OF  FIVE  PARTS 

U1U90  1,  calculation  of  inervals  for  all  aircraft 

ullOU  SUB-SET>  FOR  BOTH  INSPECTION  INTERVAL 

UIIIU  LENGTHS  and  repair  ACTION  INTERVALS. 

01120  ALL  ObSEHVAlION  ACCUMULATEU  IN  T«0 

01130  TAPE-FILES  C PROGRAM  JA] 

01140  2.  bOHTiNG  OF  INSPECTION  INTERVAL  EENbHS  TO 

UllbO  oROUP  AIRCRAFT  SuB-SETS  ANU  vUC. 

uiiLO  3.  sorting  of  repair  interval  llngths  to 

01170  group  aircraft  SuB-SETS>  HUC  and  hmc. 

UllflO  4.  PREPARE  OISTRIBUTlONS  FOR  INSPECTION 

01  ISO  INTERVALS  tPROGRAM  3BJ. 

uliOu  b.  prlpare  oIstributions  for  repair  action 

01210  Intervals  eprogram  kj. 

o2uoa  environment  division. 

02010  cunfigukation  section. 

02020  SOURCE-lOrPuTER.  I8«-3ft«. 

U2O30  OBJeCT-COMPuTER.  IBM-3bO. 

02100  IHPUT-OuTPUT  section. 

02110  fill-control. 

02120  SELtCI  IN-FILE-U-B  ASSIGN  TO  I)T-S-TU14 


AlTERNATL  area. 


SELlCI  IN-FILE-ISL 

RlSlRvE  I alternate  AREA 
SELlCI  OUT-FILE-1 

RLSlPvE  I ALTtHNATE  AREA 
SELlCI  oUT -FILL-2 

rlSlRve  1 Alternate  area 

data  OIvIsJoN. 
fill  SfoTlOl,. 

FU  IN-FiLl-O-h 

recuRuikg  mode  is  F 

MLOlK  CuNTAINS  40  RECORDS 
RECv/PU  vOllTAINS  To 

labll  rlcohus  Are  omitted 
data  RLlOrOS  are  lN-REL-D-8. 
01  iN-Kkt-u-it  Sync. 

02  FILlLR  I 

FO  IN-FILE-ISC 

HECuRUING  MOO..  IS  F 
BLOCK  contain;  20  RECORDS 
RECORD  CONTAINS  60 

label  records  are  standard 
data  records  ..re  in-rec-isc. 
01  in-rec-isc  sy'ic. 

02  filler  I 

FU  OUT-FlLE-l 

RTCURUING  MOLi  IS  F 
BLOCK  CONTAIK'S  90  RECORDS 
RECURU  CONTAINS  20 
LAPLL  RECORDS  are  OMITTED 
DATA  RECORDS  ARE  OUT-RCC-1, 
01  OUT-REC-1  STPC. 

02  filler  I 

FU  OUT-FlLL-2 

RECOROING  “OC:  IS  F 
BLOCK  contains  90  RECORDS 
RFCOHU  CONTAINS  20 

LAPti  rlcorus  ahf  omitted 

MATA  Ml  cOMPS  AHt  OUT-NCC-2. 


ASSIGN  TO  I)T-S-TU14 
ASSICfT  TO  DA-S-uTU1 
ASSIGN  TO  UT-S-TU22 
ASSIGN  TO  UT-S-TU24 


characters 


picture  *1701. 


characters 


picture  xtaoi. 


characters 


PICTURE  *1201. 


characters 


3A 

CT14/1S  1 
CT14  2 
T14  3 

CT22/23  1 
CT22  2 
T22  3 

CT24  1 
CT24  2 
T24  3 

1440  CDS 
C9B970 
C98970 
C9B9T0 
C9B9T0 
C9B9T0 
C9b9T0 
C9B9T0 
C9B9T0 
C989T0 
C9B9T0 
C9B9T0 
C9b9T0 
C9B970 
C9B9T0 
C9B9T0 
C9B9T0 
C9B9T0 
C9B9T0 
C9b9T0 
C 98970 
C96970 
C98970 
C9B97D 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C96970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C96970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
098970 
C98970 


L.-- 


6-161 


14^0U 

01 

OUT-KtC-2  STNC. 

C96470 

14;^10 

02  FlLLtK 

PICTURE  XC20]. 

C96970 

aouoo 

HORKING-STUHACE  SECTION. 

C96970 

J0U2U 

77 

CURhELK  SYNC 

PICTURE  999, 

€96970 

JOUJO 

77 

CUR-SLH-NO  STNC 

PICTURE  xcai. 

C96970 

J0U40 

77 

CUP- I SC  SYNC 

PICTURE  X. 

C96970 

J0050 

77 

KNT  SYNC  computational 

PICTURE  S999. 

C96970 

JOUbO 

77 

WEER-TEMP  SYNC 

PICTURE  999, 

C96970 

J0U70 

77 

DELT»-wtEK  ST.'IC 

PICTURE  S999. 

096970 

jouao 

77 

DELl»-FLT-HRt  SYNC 

PICTURE  S999999. 

C96970 

JOU40 

77 

CUR-FLI-HRS  SYNC 

picture  S999999. 

C96970 

JOiOO 

77 

FLAb  SYNC  COMtHJTATIONAL 

PICTURE  S999  VALUE  ZERO, 

C96970 

JOIJO 

77 

NO-HEC-1  ST  1C 

picture  S9CT1  VALUE  ZERO. 

096970 

J0140 

77 

no-rEl-^  Sync 

picture  S9tTl  VALUE  ZERO. 

096970 

J0170 

77 

CNT  SYNC  computational 

PICTURE  S999. 

096970 

jojeo 

77 

ONE  SYNC 

PICTURE  X VALUE  111, 

096970 

J0J90 

77 

TWO  SYNC 

PICTURE  X VALUE  I2t. 

096970 

J0400 

77 

ISC-TtKH  SYNC 

PICTURE  XI 6 J VALUE  SPACE, 

096970 

J041U 

77 

PREV-TESTED-SN  SYNC 

PICTURE  XCai  VALUE  SPACE. 

096970 

J0420 

77 

ISC-FLAb  SYNC 

PICTURE  X VALUE  SPACE, 

096970 

J04J0 

77 

MIN-Isc-WEEK  SYNC  COMPUTATIONAL  PICTURE  S999  VALUE  <999. 

096970 

JIUIO 

01 

NO-ISL  SYNC. 

096970 

J1U20 

0?  FILLER 

PICTURE  XX. 

096970 

JIUJO 

02  NO-ISC-AC 

PICTURE  S999. 

096970 

J1040 

02  filler 

picture  XtYSl. 

096970 

J1U50 

01 

ISC-A-C  SYNC. 

096970 

J1U60 

02  filler 

PICTURE  XX. 

096970 

J1U70 

02  ISC-TN 

PICTURE  xcai. 

096970 

JIUBO 

02  filler 

PICTURE  XX. 

096970 

J1U90 

02  ISC-WK 

picture  999. 

096970 

JllOO 

02  filler 

picture  xcasi. 

096970 

JUOO 

01 

filler  sync. 

096970 

31205 

02  filler  OCCURS  36  TIMES. 

096970 

31210 

03  ISC-AJ-TN 

PICTURE  XI  a J. 

096970 

31220 

03  ISC-A-.-WK  computational  picture  S999. 

096970 

31300 

01 

uata-uank-input  Sync. 

096970 

31310 

02  filler 

PICTURE  XISl. 

096970 

31320 

02  serial-nl 

PICTURE  xiai. 

096970 

31330 

02  WEEK 

PICTURE  999. 

096970 

31340 

02  wuc 

PICTURE  XISJ. 

096970 

31350 

02  WUC-0  REDEFINES  WUC. 

096970 

31360 

03  WUC-2 

PICTURE  XX. 

096970 

31370 

03  FILLEI 

PICTURE  XXX. 

096970 

313a0 

02  filler 

PICTURE  X. 

096970 

31390 

02  HMC 

PICTURE  XXX. 

096970 

31400 

0?  tJNllS 

PICTURE  S999. 

096970 

31410 

02  filler 

PICTURE  Xt20). 

096970 

31420 

02  lUENT 

picture  9. 

096970 

3143U 

02  filler 

PICTURE  XI9]. 

096970 

31440 

02  flt-hhs 

PICTURE  S9I61. 

096970 

31450 

02  filler 

PICTURE  XI 111. 

096970 

31500 

01 

out-data  sync. 

096970 

31510 

02  CURwUC 

PICTURE  XISJ. 

096970 

31520 

02  CURHMC 

PICTURE  XXX  VALUE  SPACE. 

096970 

31530 

02  filler 

PICTURE  X VALUE  SPACE. 

096970 

31540 

02  ous 

PICTURE  59161. 

096970 

31550 

02  filler 

PICTURE  X VALUE  SPACE. 

096970 

31560 

02  Iscnronal 

picture  X. 

096970 

31570 

02  filler 

PICTURE  X VALUE  SPACE. 

096970 

31560 

02  data-type 

PICTURE  X. 

096970 

31590 

02  filler 

PICTURE  X VALUE  >«l. 

096970 

31690 

01 

filler  sync. 

096970 

31720 

02  VEEK-HMC 

PICTURE  S999  COMPUTATIONAL. 

096970 

31730 

02  FLT-HRS-h«C 

picture  S9C61  computational. 

096970 

31000 

01 

NINE  SYNC. 

096970 

31010 

*• 

02  FILLER 

PICTURE  XC201  value 

096970 

31020 

1 9q99q99999999<l 99999*1 . 

096970 

41370 

01 

SPEL-Sb-WUC-hEC  SYNC. 

096970 

41360 

02  SPEC-SG-t  UC 

PICTURE  XISJ. 

096970 

41390 

02  SHEL-WEEK-A 

picture  999. 

096970 

41400 

02  FILLER 

PICTURE  XI721. 

096970 

45000 

01 

filler  SfNC. 

096970 

45010 

02  SPEt-SOWl ‘.-LIST 

picture  XISl 

096970 

45020 

OCCURS  10  TIMES. 

096970 

45030 

02  SPEC-WEEK-LIST 

PICTURE  999 

098970 

45040 

OC;UNS  10  TIMES. 

096970 

45050 

01 

NO-SPEt-SG-WUC  sync 

PICTURE  S999  COMPUTATIONAL. 

096970 

45060 

01 

SPEt-wUC  SYNC 

PICTURE  XISl. 

096970 

45070 

01 

SPEC-WEEK  ST  1C 

picture  999. 

096970 

45000 

01 

SPEl-INUEX  EYNL 

PICTURE  S999  computational. 

096970 

50000 

PKOCEOUKf  OIVISION. 

096970 

50010 

OPtN-FILfS. 

096970 

50020 

OPEN  INPUT  II  -FILE-O-II.  IN. 

FILE-ISC. 

096970 

50040 

OPEN  OUIPUT  ruT-FILE-l«  OUT 

-file-2. 

096970 

5OOS0 

PERFORM  READ-ISC-A-C  THRU  ENO-RIAC. 

096970 

50055 

perform  READ-SPtC-S6-WUC  THRU  END-RSSW, 

096970 

50060 

read-initial. 

096970 
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RF*U  m-FlLE-D-b  into  OATA-BANK-INPUT* 

AT  END  6D  TO  CLOSE*PtLCS. 

CHECK-OATA. 

IF  lOENT  IS  ElUAL  TO  3 60  TO  PR0C-ttI>2. 

IF  lEENT  lb  EQUAL  TO  0 60  TO  PROC-Itt-f. 

60  TO  RLAO-IN.'TIAL. 

PR0C-IIi-2t 

PERFORM  CHECK- IbCHRONAL  THRU  ENO-Ct. 

MOVE  ISCHrONAl  TO  CUR-ISC. 

HOVb  WUL  TO  CJRMUC. 

MOVE  REEK  TO  '.URHEEK. 

MOVE  SERIAL-NI  TO  CUR-SER-NO. 

MOVE  FLT-HRS  to  CUR-FLT-HHS. 

60  TO  SET-FEAu. 

PROC-lll-^A. 

PERFORM  CHECK -IbCHRONAE  THRU  ENO-CI. 

IF  ibCHRONAE  Ib  NOT  EQUAL  TO  CuR-ISC  60  TO  CHECK-DATA. 

IF  kUE  Ib  NOT  equal  to  CURMUC  60  TO  CHECK-OATA. 

IF  bFHlAE-NO  '.b  NOT  EQUAL  TO  CUH-SER-NO  60  TO  CHECK-0ATA< 
MOVE  ^EhO  to  bPEC-lNOEK. 

PROC-Ill-iiH. 

AOr  I lU  bPEE-lNOEX. 

IF  kUC  lb  EQ  AL  TO  SPEC-S6HUC-LIST  ISPEC-INOEXT  60  TO 
PR0C-bPEC-S6MUC. 

IF  bPEC-lNOEK  lb  LEbb  THAN  HO-SPEC-SO-MUC  60  TO  PR0C-ttt-2B. 
IF  uNITb  IS  IE6AT1VE  60  TO  REAO-SuB. 

COMMUTE  OELT'-«EEK  > kEEK  - CURWCEK  - t. 
mOVl  kELK  TO  CURMEEK. 

COMPOTE  DELT/.-FLT-HHS  > FLT-HRS  » CUR-FLT-HRS. 

MOVE  FLT-HWb  TO  CUP-FLT-HRS. 

IF  FLA6  Equal  zero  60  to  set-fl«6. 

MOVt  UELTA-kfEK  TO  OBS. 

move  OrJL  TO  LATA-TYPE. 

kRlTE  Our-REC-2  FROM  OUT-OATA. 

MOVE  UELTA-Fl T-HRb  TO  Obb, 

WOVE  I»0  TO  OATA-TYPE, 
kHITE  o0T-RE(-2  from  OUT-OATA. 

AOn  ? TV  N0-r£C-2. 
bET-FL«Q. 

MOVE  1 10  FL*0. 

IF  UNITS  IS  ETUAL  to  ZERO  THFN  HOVE  ZERO  TO  PL*6. 

REAO-SUb. 

HEAU  lO-FILL-O-b  INTO  0ATA-(J*NK-INPUT. 

AT  ENO  60  TO  CLOSe-PiLtS. 

00  TO  PkOC-11'-2A, 

PROC-bPEC-bOWUC. 

COMpUlt  OELTA-kEEK  > KEEK  . CURKCEK  - I. 

bUlMRACt  2 FR1M  SPEC-KEEK-LIbT  CSPEC-INOCK)  6IVIN6  SPCC-VEEK. 
IF  OELTA-kEEK  lb  6REATER  THAN  SPEC-HEEK  60  TO 
EN0-S6-KUC-INSPEC. 

NOT-END-bO-kUC-lNjPEC. 

MOVE  FLt-HRb  ’O  CUR-FLT-HRS. 
move  keek  to  CURKEEK. 

GO  TO  REAo-SUb. 

EHO-bG-kUt-lNSPEC. 

MOVE  UELTA-kE'IK  TO  OBS. 

MOVE  ONE  TO  OATA-TYPE. 

write  OUT-REC-2  from  OUT-OATA. 

COMPUTE  OBS  : FLT-HRS  - CUR-FLT-HRS. 

MOVE  TkU  TO  OATA-TYPE. 

WRITE  OUT-REC-2  FROM  OUT-OATA. 

AOO  2 TU  NO-ReC-2. 

60  TO  NOT-ENC •SG-WUC-INSPEC. 

PROC-Ill-l. 

MOVE  WUC  TO  CURWUC. 

PERFORM  CHECK  -ISCHRONAL  THRU  ENO-CI. 

MOVE  bEHlAL-NT  TO  CUR-SER-NO. 

MOVE  IbCHRONAL  TO  CUR-IbC. 

MOVE  HMC  TO  CJRHMC. 

MOVE  WEEK  TO  VEEK-HMC. 

MOVE  FLl-HRb  TO  FLT-HRS-HMC. 

PEAO-IlI-1. 

REAu  IN-FlLE-O-b  INTO  OATA-BANK-INPUT. 

at  ENO  60  TO  CLOSE-FILES. 

IF  ICEMI  IS  fOUAL  TO  9 THEN  60  TO  CLOSE-FILES. 

IF  lOEMi  IS  POT  Equal  to  w 60  to  read-iii-i. 

IF  units  lb  equal  to  zero  00  TO  REAO-III-I. 

IF  llMt  IS  NOT  Equal  to  CURHHC  60  TO  PROC-lII-1. 

IF  bCRIAL-NO  lb  NOT  EQUAL  TO  CUR-SER-NO  00  TO  PROC-111-I. 

IF  kUL  lb  NOT  Equal  to  curwuc  oo  to  proc-iii-i. 

PERFORM  Check- IbCHRONAL  thru  eno-ci. 

IF  ISCHRONAL  IS  NOT  EQUAL  TO  CUR-tSC  00  TO  PROC-Hl-I. 

white-hmc. 

COMPUTE  OELTA-kEEK  > WEEK  - wEEK-hMC. 

COMPUIE  OELTA-FLT-HRS  > FLT-HRS  - FLT-HRS-HHC. 

MOVE  WEEK  TO  WEEK-HMC. 
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C98Q70 

C96Q70 

696970 

096970 

696970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C9R970 

C96970 

606970 

C96970 

C96970 

C96970 

CO6970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

096970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C98970 

C98970 

C96970 

C96970 

C96970 

C96976 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

696970 

C96970 

C98970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C98970 

C96970 

C96970 

C96970 

C96970 

C96970 


blJbO  MOVt  FLI-HRS  TO  FL7-HRS-HMC. 

blJ60  MOVL  OELTA-MECK  70  OBS. 

bli70  MOVt  ONt  TO  UTA-TYPE. 

blMO  VRIIE  0u7-REr-l  FROM  OUT-ORTA. 

bliOb  ADO  1 TO  NO-REC-1. 

bli97  IF  UNITS  IS  6,IEAteR  THAN  <i  PERFORM  MllTE>2ER0*0ArA  THRU 

blOTB  ENO>WR1TE>7ERO*OATA, 

bl400  MOVL  0EL7A-FIT-HRS  TO  OUS. 

bl4I0  MOVt  IRO  70  0ATA-7YPC. 

blU20  WRITE  0U7-REC-1  FROM  OUT-OATA. 

bI42b  ADD  1 TO  NO-RtC-I. 

bl430  If  UNITS  IS  r-REA-'ER  THAN  <i  PERFORM  WRtTE-ZERO-OATA  THRU 

bI432  ENO-WRITE»2ERO-OATA. 

bI4eO  60  TO  PROC-l.I-l. 

biaoo  close-fills. 

biaio  COMPUTE  KnT  > NO-HEC-1  - NO-REC-t  / 90  • 90. 

bia20  IF  kNI  is  ZEfO  60  TO  CF-2. 

bltl30  PERFORM  NINE-FILL-I  THRU  N-F-l. 

Sle40  CF-2. 

bloso  COMPUTE  KNT  > NU>REC-2  - NO-REC-2  / 90  • 90. 

blObO  IF  KNI  IS  ZLKO  60  TO  CF-3. 

bItITO  PERFORM  NINE- 'ILL-2  THRU  N-F-2. 

bI900  CF-3. 

bl910  DISPLAY  : NUMBER  RECOROS-1  I NO-REC-1  UPON  CONSOLE. 

bl920  OISPLAY  : NUVJER  RECOROS-2  I NO-REC-2  UPON  CONSOLE. 

bl940  OISPLAY  : FNC  OF  JOB  0909761  UPON  CONSOLE. 

bI950  CLOSE  lN-FlLE-0-a,  OUT-FlLE-1*  IN-FILE-ISC# 

bl960  OUT-FILE-2  with  LOCK. 

bl990  GOOACK. 

02000  write-zlRO-uata. 
bZUIO  MOVE  UNITS  TO  CNT. 

S2U20  MOVt  ^EhO  TO  OOS. 

02030  W-Z-0. 

S2U40  subtract  1 FROM  CNT. 

02000  WRITE  0u7-REt-l  FROM  OUT-OATA. 

02000  AOO  1 TO  NO-iEC-1. 

02060  IF  CNT  IS  GREATER  THAN  1 GO  TO  W-Z-0. 

02070  ENO-wRITE-ZLRO-OATA. 

TOUOO  REao-ISC-A-C. 

I 70010  READ  m-FlLE-  ISC  INTO  NO-IsC  AT  END  00  TO  EN0-R|AC. 

t 70020  MOVL  ZEhO  to  KNT. 

;0U30  RIAC. 

70040  AOO  1 TO  KNT. 

TOObO  read  IN-FILE-ISC  into  ISC-A-C  AT  END  00  TO  ENO-RIAC. 

70U60  MOVt  ISt-TN  TO  ISC-AC-TN  tKNTl. 

70O70  MOVt  ISt-WK  YO  ISC-AC-WK  IKN71. 

70070  IF  ISt-WK  IS  tESS  THAN  MIN-ISC-WEEK  MOVE  ISC-WK 

70076  TO  TIN-ISC-WEEK. 

/ooeo  IF  knt  is  less  than  no-isc-ac  oo  to  riac. 

70090  ENU-RIAC.  La17. 

70200  CHLCK-ISCHRONAL. 

70ZI0  IF  SERIAL-NO  IS  NOT  EQUAL  TO  PREV-TCSTEO-SN  00  TO  CHECK-I-2. 

70220  IF  ISC-FLAG  IS  EQUAL  70  TWO  GO  TO  ENO-CI. 

70230  IF  ISCHrONAL  IS  EQUAL  TO  ONE  AND  WEEK  IS  NOT  LESS  THAN 

70232  MIN-ISC-WEEK.  THEN  GO  TO  END-Cl. 

70240  CHECK-1-2. 

70200  MOVt  TWO  70  ISCHRONAL. 

70260  IF  wEtK  IS  LuSS  THAN  MIN-IsC-WEEK  GO  TO  ENO-Cl. 

70270  MOVt  2tM0  TO  CNT. 

70200  CHECK-1-1. 

70290  AOO  1 7U  CNT. 

70300  MOVt  ISC-AC-.N  ICNTI  TO  ISC-TEMP. 

70310  IF  sERIAL-NO  is  less  THAN  ISC-TEMP  GO  TO  CMECK-I-*. 

I 70320  IF  SERIAL-NO  IS  EQUAL  70  ISC-TEMp  oO  TO  CNECK-I-IA. 

; 70330  IF  CNT  IS  LESS  THAN  NO-ISC-AC  GO  TO  CHECK-1-1. 

70340  CHECK-1-4. 

70300  MOVL  TWO  70  TSC-FLAG. 

70360  GO  TO  CHECK-1-3. 

' 70370  CHECK-I-IA. 

70300  MOVL  ISt-AC-*K  ICNTI  70  WEEK-TENP. 

70390  IF  WELK-TEMP  IS  EQUAL  TO  WEEK  OR  WEEK  IS  OREAtEr  THAN 

70400  wELK-TEMP  MOVE  ONE  TO  ISCHRONAL. 

1 70410  MOvt  out  70  .SC-FLAG. 

I 70430  CHECK-I-3. 

I 70440  MOVL  SERIAL-NO  70  PREV-TESTED-SN. 

I 70400  ENU-Cl.  EXIT. 

70010  NlNE-FlLL-2. 

I 70020  WRITE  OuT-REr-2  FROM  NINE. 

' 70030  AOr>  1 TO  KNT. 

70040  IF  kNT  is  LEiS  THAN  90  CO  TO  NINE-FILL-S. 

TOObO  N-F-2.  LXIT. 

70600  NlNL-FlLL-1. 

TOelO  write  OUT-REC-I  FROM  NINE. 

70620  AOr>  1 70  KNT 

70630  IF  kNT  is  lets  THAN  90  GO  TO  NiNE-FILL-t. 

70640  N-F-1.  lxit. 

bouoo  Reao-splc-sg-woc. 


C90970 

C9B970 

C90970 

C90970 

C96970 

C96970 

C90970 

C90970 

C90970 

C9B970 

C9B970 

C9#970 

090970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C909T0 

C909TO 

C909T0 

C909T0 

C909T0 

C909T0 

C90970 

C909T0 

C909T0 

C909T0 

C90970 

C909T0 

C909T0 

C90970 

C909T0 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

CO0970 

C90970 

C90970 

C909T0 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C909TO 

C909TO 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C909T0 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 
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1 


asuio 

ttbUZO 

BbUJO 

a5u4o 

SbUbU 

asubo 

abU7o 

abu90 

/* 


//«.twi.fr<i|N 

Tfu  UlUl 
34 

3700u23b 

b700U237 

57000243 

57000244 

57002545 

5800077(1 


MOVL  ZERO  TO  NO-SPEC-SG-MUC. 

REAU-SPLC. 

HEAU  IN-FILE-ISC  INTO  SPEC-SO-WUC-WC  AT  END  §0  TO  CNO^SSO. 
AOn  1 TO  NO-.PEC>SO-WUC> 

MOVE  SPEC-S6  WUC  TO  SPEfSOWUC-LIST  CNO>SpeC-SO>HUCli 
MOVE  5PEC-HEEK-A  TO  SPEC-WEEK-LlST  tNO-SPCC>SO>«UC  J. 

GO  TO  REAO-Sr'EC. 

ENn-KSS4.  EXIT. 

PLACF  COHOL  SO'^Ce  BEFORE  THIS  CARO 
PU  «t(PACC>tCYL«tl>t3) 

11  olozoat. 


CGGGTO 

C9A9T0 

CGGGTO 

coaoro 

C9S9T0 

CGGGTO 

COOOTO 

C4S970 


cot 


331 

331 

324 

331 

331 

324 


beoou4oi 

b9U0U002 

b900UQU3 

b400U00b 

bqUOUUUb 

bOOOUUlU 

b400u0l2 

b<900U01b 

bqOOuOlM 

b9U0U0l4 

b400u02<> 

b400u03U 

b<)00uab4 

b900u0b7 

b<)OOuObO 

b<9il0g0b9 

b40Qgi04 

bqUOOlUb 

b<900UlUH 

b9UOUllO 

b400Ull9 

b^U0ul4i 

b400U143 

b900Ul4<4 

•joooumb 

b900Ul47 

b900Ulbl 

b900ulb2 


331 

331 

331 

331 

331 

331 

331 

331 

331 

331 

331 

331 

324 

324 

324 

324 

331 

331 

324 

324 

324 

324 

324 

324 

324 

324 

324 

324 


U330U 

3 

03310 

3 

0332U 

3 

03330 

3 

03400 

5 

03600 

b 

/♦ 

place  tfo 

DATA  BEFORE  THIS  CARO 

//TPR 

,T'J14 

ou 

DIS.  >C0LU.KECP1.V0L>SER>4F3»UNIT>T4F3 

//rpR 

.TU22 

00 

OlSF>t0L0.REEPJ.V0L>SER>«F5(0NlT>T*F5 

//TPR 

,T024 

ou 

UISP>t OlO.KEEP1.VOL>SER>4F7.UN1T>T4F7 

//TPR 

.TPRIN 

ou 

• .St-ACE>C  TRK.Cl.lJJ 

T/P  1 

DTOl 

loiooaozoa. 

T/P 

TU14 

1010070Z07P 

T/P 

TU22 

10100202020 

T/P 

TU24 

10100202021 

/• 

PLACE  T/P  CONTROL  CAROS  BEFORE  THIS  CARO 

Tl* 

Ttt 

TEA 


C.9,2  SORT  FOR  INSPECTION  LENGTH  INTERVALS 


//C9897F  EAEC 
//CHG.SOHTIN 
// 

// 

// 

// 

//CHG.bORTOUT 

// 

// 

// 

//CHG.5TSIN 
SORT 
MOOS 

/• 


P9b22NfW''0b0.TlHE>03f  ACCT7035323007  SBS 

00  OISRXt  .KEEP  J.UNlTXt  •♦F5.2. defer  J.  CTZZ/tS  1 

P5u>*E.989/42b»  CT22  t 

VOL>SLR>. ♦F5.A«F5.B*F5,C«F5*0*F5*E4F5«F4F5»6*F9.H*F5i  CT2t  3 

1»F5»J«F''.K*F5>L«F5<M*F5.N4F5,OAF5.P»F5*0*F5»R*F5.S*F5J.CT22  A 
OC|i>tLRECL>U020.REK5l2E>ia00}.LAHEL>tfNSL.RETPO>099J 
nu  OlSi-Xt  >KeEP}.UNlT>CA*F1.2.0EFER1.0SN>AA.9e97*2T«  CTt2/13  t 

VUL>SER>[  *Fl,A*FlfB*Fl.C*F1.0*Fl.CtFl.F*Fl>e*Fl.H*Fl«  CT12  2 

UFl.J*F<.K*FlfL*Fl.M*Fl.N«FI.0*Fl.P*Fl«0tFliR*Fl.S4F13tCT12  3 
OCR>tLRELL>0020.RLK5l2E>ia001 
00  •>Oi.B>bLKSlZE>0080fSPACE>tTRR.ll.l]] 

FlELOS>t  017>001>  ':H>A,ul9f001fCH>A,00i,oO5>CH.A]tSlZE>E020O0O0 
E15>tEl5>008>SORTLlB,N]>E18>CEia.024.SOMTElB.N) 
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iL,.x„ 


t 


6.  9.  3 CUMULATIVE  DISTRIBUTION  FOR  INSPECTION  LENGTH  INTERVALS 


//C9e<»7E  t»EC  P96b5).>T!ME>a4>ACCT>03S323007 

36 

//CHG, 

TU12 

00  OISP>C  >PASS].UNlT>CT«Fl>I>OEFER]iDSN>*A.9e97<t27> 

CT12  1 

// 

W0L>SER>i.*Fl.A*Fl,B*Fl.C*F1.0AFl»E«Fl»F*Fl»6»Fl»M*Fl» 

CT12  2 

// 

I*Fl«J*F  •K*Fl>L*Fl>M«Fl>N«Flt0«Fl«PAFl»0*Fi>||4FI»S7Fll 

T12  3 

//tHG, 

TU25 

OU  UISP>C •PASS].UNlT>CTAF6>l>UEFER]»OSN>AH.9a97928> 

CT25  1 

// 

VUL>SER>1 *FBtAAFa>BAF8. 

C*FO.O'FFa>E«F0.F7F0.6'fFa>H»FB. 

CT25  2 

// 

1*FB»J«F,  ■K*Fa>L*F0>M'»FAtNAF6>O7FB.P'*Fe>OAFs>R7FS>S7FBJ 

T25  3 

//CHG. 

INPUT  00  ••S''ACe>CCYL»Cl»l}} 

1440  CDS 

oouoo 

COMUINE  COMPILE 

8,  wANO. 

C98970 

01U50 

RLHAKKS. 

C98970 

UIU60 

MAINTENA'CE  STUOY  PROGRAM  SB. 

C98970 

01U70 

INSPECTION  INTERVAL 

lengths. 

C98970 

U1U60 

PHtPAMES  CUMULATIVE  DISTRIBUTION  OF  INSPECTION 

C98970 

01U90 

INTERVAL  LENGTHS. 

C989T0 

UlllO 

AIRCRAFT  SUB-SET.  OATA-TYPE.  VUC. 

C98970 

02U00 

ENVIKONMENT  DIVISION. 

C989T0 

U2U10 

CONFIGUK»TION  SECTION. 

C98970 

02U20 

SOvjHCE-CONPUTER.  IBM.360. 

C98970 

U2U30 

OBjECT-COMHUTER,  ibm-mo. 

C98970 

02100 

INPUT-OoTHUI  SECTION. 

C98970 

U2110 

file-control. 

C989T0 

02120 

SELECT  in-FI'  E 

ASSIGN  TO  UT-S-TU12 

C98970 

02130 

PtSLRvE  ’ alternate  area. 

C9P970 

0214U 

SELECT  hlST-HLE 

assign  to  OT-S-TU25 

C98970 

U2150 

reserve  . ALTERNATE  AREA. 

C98970 

09U00 

select  lut-off-file 

ASSIGN  TO  OA-S-DIOS 

C98970 

09U10 

RESERVE  1 alternate  AREA. 

C98970 

lOUOO 

data  division. 

C98970 

louio 

fill  section. 

098970 

11100 

FO 

in-file 

098970 

11120 

RECORUUiG  MODE  IS  F 

C98970 

11130 

BLOCK  CuNTAl.iS  90  PECOROS 

C9S970 

11140 

RECORU  CONTA'NS  20 

characters 

C98970 

lllbO 

label  rlcoros  are  omitted 

C98970 

111^0 

DATA  HCLOROS  ARE  IN-REC. 

C98970 

11170 

01 

in-rel  sync. 

C989T0 

11160 

02  WUC 

PICTURE  KtSI. 

C9S9T0 

11162 

02  filler 

PICTURE  Xt4J. 

C98970 

11163 

02  OBS 

PICTURE  S9tGJ. 

C98970 

11164 

02  OBS- 1 re;  EFINES  OBS 

PICTURE  S99999VV, 

C98970 

11166 

02  filler 

PICTURE  A. 

C98970 

11166 

02  ISCHRONAL-NEV 

prcTiiflf  K. 

C 98970 

11167 

02  filler 

PiCTusr  X. 

C98970 

11166 

02  OATA-TYPr-NEK 

PliV:':  . X. 

C98970 

11169 

02  filler 

f-'IC...  - X. 

098970 

12100 

FO 

HIST-FILE 

C 98970 

12120 

RECOPUII.G  MODE  IS  F 

098970 

12130 

BLOCK  CoNTAI.IS  15  RECORDS 

C98970 

12140 

RECORU  LONTA'NS  iso 

C9a970 

12150 

LABEL  RECORDS  ARE  OMITTED 

098970 

12160 

DATA  RECORDS  ARE  HtST-REC. 

C98970 

12170 

01 

HIST-REL  SYN  . 

098970 

12160 

02  filler 

FIlT  'f.iOJ. 

098970 

2SU00 

FO 

CUT -OFF -FILE 

C 98970 

2MU10 

RECoPUING  MOI  E IS  F 

098970 

29U20 

BLOCK  CLNTAII  S 20  RECORDS 

098970 

29U30 

RECORU  CONTA'NS  80 

characters 

C98970 

29U40 

label  records  are  standard 

C98970 

29US0 

DATA  RECORDS  ARE  CUT-OFF-REC. 

C9B970 

29U60 

01 

CUT-OFF-REC  lYNC. 

098970 

29U70 

05  NI-CUT-OFF 

PICTURE  9C5J. 

C98970 

29U60 

05  IbO-CUT-OFF 

PICTURE  9t5J. 

C98970 

29U90 

05  filler 

PICTURE  XC70J. 

C98970 

30U00 

WORKlNC-STOKAliE  SECTION. 

C98970 

30010 

77 

KNT  SYNC  PICTURE  S9C5J. 

C98970 

30020 

01 

FILcEH  sync. 

C98970 

30030 

02  FkLV-M IS  -value  occurs 

TOOO  TIMES  PICTURE  59151 

C98970 

30U40 

computational. 

C98970 

30050 

01 

A PICTURE  S915I  COMPUTATIONAL. 

C98970 

30060 

01 

NO-OF-HISTS  SYNC 

PICTURE  9999  VALUE  ZERO, 

098970 

30070 

01 

TWO  SYNC 

PICTURE  X VALUE  I2l. 

C98970 

30060 

01 

ONE  SYNC 

PICTURE  X VALUE  IH. 

C98970 

30090 

01 

CNT  STNL 

PICTURE  S9t5J  computational. 

C98970 

30100 

01 

CUR-WUC-T  SYIC. 

C98970 

30110 

02  filler 

PICTURE  XC5J  VALUE  1 «UC>I, 

C98970 

30120 

02  CUR-WUC 

PICTURE  Xt5J. 

C98970 

30170 

01 

ischronhl  sync 

PICTURE  X. 

C98970 

30160 

01 

OATA-TYPE  -,YNC 

PICTURE  X, 

C98970 

30190 

01 

MINuS-ONE  COMPUTATIONAL 

PICTURE  S999  VALUE  -I  SYNC, 

C98970 

32000 

01 

REPORT-ID  SYNC. 

C98970 

32010 

02  filler 

PICTURE  XtSO]  value 

C98970 

32020 

UOOPTBbO  TF7919-02  l»2-8  1 1/2 

I.  C98970 

32030 

02  filler 

PICTURE  XtSOl  value  SPACE. 

C98970 

32040 

02  filler 

PICTURE  XtSOJ  VALUE 

C98970 

6-166 


i2ub0 

: 

tl» 

C96970 

46U00 

01 

MEAN  COMPUTATIONAL  STMC 

PICTURE 

SSt  T 1V99. 

C96970 

46U10 

01 

VARlAUCt  computational  SYNC 

PICTURE 

59t73V99. 

C96970 

40020 

01 

temp-cohp 

picture 

S*e  7 1V9V. 

C96970 

46100 

01 

HEAN-VAh1ANCF*L1NE  sync* 

C96970 

46110 

02  filler 

PICTURE 

xcsoi  value 

C96970 

46120 

•*s 

C9S970 

46130 

02  filler 

PICTURE 

xtl9]  value 

C 98970 

46140 

: mean 

>!* 

C98970 

46150 

02  MEAfi^RPT 

picture 

ZZZ9.9. 

C9S970 

46160 

02  FILLER 

PICTURE 

XCSOI  value 

C96970 

46170 

s 

VARIANCE  >1. 

C98970 

46160 

02  VARIAncE-RPT 

PICTURE 

ZZZZZZ9.9. 

C96970 

46190 

02  filler 

PICTURE 

XCI61  value 

C96970 

46200 

» 

t • 

C9S970 

47U00 

01 

hisi-value-max  sync 

PICTURE 

S9999V99  V*Lue  -9999.9. 

C98970 

47010 

01 

hist-value-min  sync 

PICTURE 

S9999V99  VALUE  <9999.9. 

C96970 

47020 

01 

H1S1-N0-0F-0L5  SYNC 

PICTURE 

S9CS1  value  ZERO. 

C96970 

47030 

01 

H1ST-NO-0^•1^ tervals  sync 

PICTURE 

999V99  value  50. 

C96970 

47040 

01 

HIST-IMHUT-VMAX-VMIN  SYNC 

PICTURE 

9 value  zero. 

096970 

47050 

01 

HIST-UIST  SYNC 

PICTURE 

X value  tit. 

C96970 

47060- 

01 

HlST-lNUEx  SYNC  COMPUTATIONAL 

C96970 

47U70 

PICTURE 

S999  VALUt  ZERO. 

C96970 

47uaO 

01 

M1SI-1UuEx-2  sync  computational 

C98970 

47090 

PICTURE 

S999  VALUE  ZERO. 

C96970 

47100 

01 

HISI-ItMP  SYNC 

picture 

S99999V99  VALUE  ZERO. 

C98970 

47110 

01 

H1ST*1MTERVAw-S12C  sync 

PICTURE 

S999V99  VALUE  ZERO 

C96970 

47120 

co>-puiational. 

C96970 

47150 

01 

HISI-FLAO  sync 

PICTURE 

X value  tot. 

C96970 

47160 

01 

hist«scalc-v«>lue  sync  computational 

C96970 

47170 

PICTURE 

S999  value  <I. 

C96970 

47160 

01 

HlST-PtKCENT  SYNC 

PICTURE 

S999V99  computational. 

C96970 

47100 

01 

HlST-LUM  SYNC 

PICTURE 

S999V99  computational. 

C96970 

47200 

01 

HlST-LlNE  SY  JC  computational 

C96970 

4 7210 

PICTURE 

S999  value  zero. 

C96970 

47220 

01 

HIST-PAl^E-FLAG  sync 

picture 

S999  value  <75. 

C96970 

47230 

01 

HlST-LlNE-CNf  SYNC 

PICTURE 

S999. 

C96970 

47300 

01 

HiSI-tHn-l  S/NC 

PICTURE 

xcioi  value 

C98970 

4731U 

1 ERROR  NO 

01. 

C98970 

17320 

01 

H15T-LRM-3  SYNC* 

C98970 

47330 

02  filler 

PICTURE 

XC51  value  IBs  > i. 

C96970 

47340 

02  HISI-ERH  2 

PICTURE 

S9t51  VALUE  ZERO. 

C98970 

47350 

01 

HlSl»tHK«4  S''NC 

picture 

xcioj  value 

C96970 

47360 

I ERROR  MAXI. 

C96970 

47370 

01 

MISI-EKh-S  S.NC 

PICTURE 

XCIOI  value 

C98970 

47360 

i-MIN  BAD 

* 1 * 

C98970 

47390 

01 

MIST -001 -RANf.E-VALUt  SYNC 

PICTURE  S999  computational. 

C98970 

47500 

01 

FILlFH  sync. 

098970 

47510 

02  filler  O' curs  200  times 

• 

C96970 

47530 

03  Hlsi  .table 

PIC1URE 

S9C5I  computational. 

C90970 

47540 

03  HISI-UPPEH-LIMIT 

picture 

S9999V99  COMPUTATIONAL. 

C96970 

47550 

Oi  Hlsi-TAbLE-SCALEO 

picture 

S999V99  computational. 

C96970 

47560 

01 

HlST-Nt*r-PAG  *.  SYNC. 

C96970 

47570 

02  filler 

picture 

X value  tit. 

C96970 

47560 

02  filler 

PICTURE 

XC1221  VALUE  SPACE. 

C96970 

47562 

02  filler 

PICTURE 

XC5I  value  tPAGC  t. 

C96970 

47564 

02  H1S1-PAG‘-N0 

PICTURE 

9. 

C96970 

47590 

02  filler 

PICTURE 

X value  t*t. 

C96970 

47600 

01 

HIST-TITLL  StNC* 

C96970 

47610 

02  filler 

PICTURE 

XCSI  VALUE  ts  t. 

C98970 

47620 

02  Hisr-T1T» E-1, 

C90970 

47621 

03  filler 

PICTURE 

xcioi  value  space. 

C98970 

47630 

02  HIST-TITLE-2, 

C98970 

47631 

Oi  filler 

picture 

xcioi  value  space. 

C90970 

47640 

02  HlSf-llTLE-3 

PICTURE 

xcioi  value  space. 

C98970 

47650 

02  HlST-TlTLE-4 

PICTURE 

xcioi  value  space. 

C96970 

47660 

02  filler 

PICTURE 

XC29I  value 

C96970 

47670 

: NO  OF  observations  >:, 

C96970 

47660 

02  H 1 S 1 -NO-OF-OBS-RPT 

PICTURE 

ZZZZ9. 

C96970 

47690 

02  FILLER 

PICTURE 

XCISI  value 

C90970 

47700 

: v\LuE  max  > I. 

C98970 

47710 

02  HIST-VALUE-MAX-RPT 

PICTURE 

096970 

47720 

02  filler 

PICTURE 

XC13I  value 

C9697n 

47730 

: V-LUE  MIN  > I. 

C9S970 

47740 

02  HIST-VAL'E-MIN-RPT 

PICTURE 

C96970 

47750 

02  FILLER 

PICTURE 

XCISI  value 

C98970 

47760 

1 

tt* 

C98970 

47900 

01 

HlSl-UOI-LIN  SYNC* 

098970 

47910 

02  filler 

PICTURE 

XCSOI  value 

C90970 

47922 

02  filler 

PICTURE 

XC  *0  1 value 

C98970 

47940 

. 

C96970 

47950 

01 

HISI-LAIiEL  svnc. 

C96970 

47960 

02  filler 

PICTURE 

XCSOI  value 

C98970 

47970 

:/  MIOPNT  PCNT 

CUM  FREO  1...5...l0...IS...t0.1. 

C98970 

47974 

02  Filler 

picture 

XCAOI  value  I., 

C96970 

47960 

• 
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1 


4B000 

01 

hist-line-ou"  sync. 

48UI0 

02 

filler 

PICTURE 

X VALUE  I/I. 

48U20 

02 

HlSI-LlNT-RPT 

PICTURE 

ZZ9. 

48UJ0 

02 

filler 

PICTURE 

X VALUE  SPACE. 

48U40 

02 

HIST-HIO*  POINT-RPT 

picture 

48U60 

02 

HlSf-PERrtNT-RPT 

picture 

ZZ9.9. 

48U70 

02 

filler 

PICTURE 

X VALUE  SPACE. 

48U80 

02 

Hisr-CUH  RPf 

PICTURE 

ZZ9.9. 

48100 

02 

HlSf-FRE9-RPT 

PICTURE 

ZZZZ9. 

48110 

02 

FILLER 

PICTURE 

X VALUE  SpAcE. 

48120 

02 

HlSt-POlUT  OCCURS  100  ' 

riMEs 

48130 

picture 

X* 

48140 

02 

filler 

picture 

X value  i«i. 

48150 

01 

hisi-oui-range-hec  sync. 

48160 

02 

filler 

PICTURE 

XtSSI  VALUE 

48170 

:/  NUMBER  op  Our 

OP  RANGE 

values  >1. 

48180 

02 

HIST-OUT-RANGE-HPT 

picture 

ZZ9. 

48190 

02 

filler 

PICTURE 

XC9I]  value  space. 

48191 

02 

filler 

PICTURE 

X VALUE  1*1. 

48200 

01 

HIST-SCALE-LINE  SYNC. 

48210 

02 

filler 

PICTURE 

Xt273  VALUE 

48220 

:/  SCALING 

FACTOR  > 

I* 

48230 

02 

HlSt*SCAi 

PICTURE 

ZZ9. 

48240 

02 

filler 

PICTURE 

Xt0991  value  space. 

48250 

02 

filler 

PICTURE 

X VALUE  1*1. 

48300 

01 

riLtfM  bt'K. 

48310 

02 

HIST-VAL  'E  OCCURS  1000 

times 

48320 

PICTURE 

S9999V9  Computational 

anuoo  PHOieniixf  nivisio*4, 

bOUOl  OPttj  INPUT  ClT-OFF-FILt. 

S0U02  HEAD  lUI-OFF'FIlE  AT  ENU  GO  TO  CLOSE-FtLCS. 

bOOOJ  CLObE  CuT-OFF-FILE  WITH  LOCK. 

bOOlO  OPEN  INPUT  IN-FILE. 

b0U20  OPEN  OUlPUT  MST-FILE. 

bOUJO  MOVE  1000  TO  KNt. 

bouoo  PERFOkh  reset-table  thru  ENO-RSt-TABLC. 

S0U50  REAO  IN-FlLE.  AT  ENO  GO  TO  CLOSE-FILES. 

bOOBO  WHIIE  HIST-HEC  from  REPORT-IU. 

bOlOO  PARA-1. 

50110  MOVL  1 to  HlbT-NO-OF-OBS. 

50120  MOVE  MUL  TO  LUH-WUC. 

50140  MOVE  oata-ty"e-nei(  to  OATA-TYPE. 

50150  MOVE  ISCHRONAL-NEm  to  tSCHRONAL* 

50160  IF  OATA-TYPE  IS  EUUAL  TO  ONE  GO  TO  WECKS-OATA  ElSE  00  TO 

50170  FL"-0ATA. 

50200  REAOl. 

50210  REAU  1N-FILE>  at  ENO  GO  TO  CLOSE-FILES. 

50220  IF  uATA-TYPE' NEW  IS  EQUAL  TO  191  GO  TO  CLOSE-FILES. 

50230  IF  kUC  IS  NO*  EQUAL  TO  CUR-WUC  00  TO  PARA-2. 

50250  AOP  I To  HiST-NO-OF-OBS. 

50260  IF  OATA-TYPE  IS  EQUAL  TO  ONE  00  TO  WEEKS-OATA  ELSE  OO  TO 

50270  FLT-OATA. 

50300  PAHA-2. 

b03io  perform  SET-'<IST0G  thru  ENO-SH. 

50320  perform  reset-table  thro  ENO-RST-TABLE. 

50330  GO  TO  PAHA-l. 

50400  reset-table.  ’ 

50410  MOVt  2tR0  TO  CNT. 

50420  RST. 

50430  AOO  I TO  CNT. 

50440  MOVL  MINUS-ONE  TO  HIST-VALOE  tCNTJ. 

50445  MOVt  2ER0  TO  FRLQ-HI ST-VALOE  tCNTI. 

50450  IF  LNI  is  LtSi  THAN  KNT  GO  TO  RST. 

50455  MOVL  2tR0  TO  <NT. 

50460  ENO-RST-TAiIlE.  LYIT. 

50510  SET-HISTOG. 

50512  IF  ISCHRONAL  IS  EQUAL  TO  ONE  ANO  HIST-NO-OF-OBS  IS  MOT 

50514  Greater  twn  iso-cut-off  go  to  eno-Sh. 

50516  IF  ISCHRONAL  IS  EUUAL  TO  TWO  ANO  HIST-NO-OF-OBS  IS  MOT 

50518  greater  than  NI-CUT-OFF  GO  TO  ENO-SH. 

50520  IF  islhrOnAL  IS  EQUAL  TO  ONE  MOVE  I ISO  I TO 

50530  HIST-TIT.  E-4.  ELSE  MOVE  I NON-ISO  I TO  HIST-TITLE-*. 

50540  IF  uAIA-TyPE  IS  EQUAL  TO  ONE  MOVE  I WEEKS  I TO 

50550  HISI-TITLE-3.  ELSE  MOVE  S FLT-HOURSI  TO  MlST-TITLE-3. 

50560  MOVt  lUH-WUC'T  TO  HIST-TI TLE-I . 

50590  perform  WRITF-HISTOGRAM  THRU  ENO-HIST. 

50600  IF  HIST-FLAG  is  equal  to  Hi  THEN  «0  TO  CFI. 

SOblO  ADO  I TO  NO-IF-HISTS. 

50620  ENO-SH.  EXII. 

5IU00  WEEKS-DATA. 

5IUI0  MOVE  ZERO  TO  CNT. 

51020  WEEK-A. 

51030  AOO  I TU  CNT 

51040  IF  DBS  IS  equal  TO  HIST-VALuE  CCNTl  BO  TO  WEEK-C. 

51050  IF  FRtO-Hl ST- VALUE  tCNTJ  IS  EQUAL  TO  ZERO  60  TO  WEEK-B. 

51060  IF  CNT  IS  LESS  THAN  1000  60  TO  WEEK-A. 
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blUTO  OISt'LAY  ! MORE  THAN  1000  FREOUENCT  OCCURENCES  < UPON  CONSOLE. 

blUBO  GO  TO  CFl. 

blURO  mELK-(I. 

61100  MOVl.  OHS  TO  HIST-VALUE  CCNTl. 

51110  IF  tNT  IS  GREATER  THAN  KNT  THEN  MOVE  CNT  TO  KNT, 

61120  WEEK-C. 

51130  ADD  1 TO  FRE  VHIST-VALUE  tCNTI. 

SllRO  GO  TO  REAOl. 

62000  FLT-DATA. 

62010  MOVE  2EH0  to  CNT. 

52020  FLT-A. 

52030  ADD  1 TO  CNT 

52040  IF  0B5-1  IS  EQUAL  TO  HiST-VALUE  CCNTl  *0  TO  FLT>C. 

62050  IF  FReQ-HisT  value  CCNTl  IS  EQUAL  TO  ZERO  00  TO  FLT-R. 

62060  IF  CNT  IS  LESS  THAN  1000  GO  TO  FLT>A. 

62070  OISRLAy  : MORE  THAN  lOOO  FREQUENCY  OCCURENCES  1 UPON  CONSOLE. 

62080  GO  TO  CFl, 

62090  FLT-B. 

62100  MOVE  OPS-1  TO  HIST-VAEUE  CCNTl. 

62110  IF  CNT  IS  GREATER  THAN  KNT  THEN  MOVE  CNT  TO  KNT. 

52120  FLT-C. 

52130  ADO  1 TO  FRE T-HIST-VALUE  CCNTl. 

52140  GO  TO  REAOl. 

62200  CLOSE-FILES. 

62205  perform  SET-  'ISTOG  THRU  ENO-SH. 

52207  CFl. 

62210  CLOSf  IN-FIL'<  HIST-FILE. 

62211  IF  hISl-FLAG  IS  EUUAL  TO  HI  DISPLAY  I HIST  ERPOR  I UPON 

52212  CONSOLE. 

62215  DISPLAY  i HC  OF  HISTOGRAMS  > I NO-OF-HISTS  UPON  CONSOLE. 

62220  DISPLAY  : EO  I C9897  : UPON  CONSOLE. 

62230  GOPACk. 

95000  COMPUTE-MeAI.-VAR.ANCE. 

95010  MOVL  2EH0  TO  CNT, 

96020  MOVL  2EH0  TO  MEAN. 

95030  CMV-1. 

95040  AOP  1 TO  CNT 

95050  COMPUTE  TEMP- COMP  > HIST-VALUE  CCNTl  • FREO-HlST-VALUC  CCNTl. 

95060  ADO  TEMP-COMP  TO  MEAN, 

95070  IF  CNT  IS  L£»S  THAN  KnI  GO  TO  CMV-l. 

95080  DIVIDE  HIST-  'O-UF-OBS  INTO  MEAN. 

95090  MOVE  ZERO  TO  CN|. 

95100  MOVE  zero  to  variance, 

96106  IF  Hl6T-N0-02-0dS  IS  LESS  THAN  2 60  TO  END-CMV. 

95110  CMv-2. 

95120  ADO  1 TO  CNT, 

95130  COMPUTE  TEMP-COMP  > CtHlST-VALuE  CCNTl  - NEANl  «•  t]  • 

96140  FREO-HIST-VAluE  CCNTl. 

95150  ADD  TeMP-COM->  to  VARIANCE. 

95160  IF  CNl  is  LESS  THAN  KNT  GO  TO  CMV-2. 

96170  COMPUTE  VARI-NCt  > VARIANCE  / C HIST-NO-OF-OOS  “11. 

96180  MOVE  MEAN  TO  MEAN-RPT. 

95190  MOVE  VARIANCr  TO  VARIANCE-RPT. 

96200  rRIIE  lllST-RtC  FROM  MeAN-VARIAnCE-LINE. 

96290  END-CMV.  EX.T. 

97U00  VRITE-HISrOORAM, 

97080  MOVL  :0S  TO  UISI-FLAG, 

9TU90  MOVE  ZERO  TO  HIST-OUT-RANGE-VAlUE . 

97100  MOVE  ZERO  TO  MI6T-PA0E-N0. 

97140  MOVE  -‘1999.9  TO  hist-value-max. 

97150  MOVE  <9999,9  TO  HIST-VALUE -MIN, 

97200  MOVE  ZERO  TO  HIST-INDEX. 

97210  HISI-FIllD-VMAx-VMIN. 

97220  ADD  I To  HIST-INDE*. 

97230  MOVE  HIST-VA..UE  CHIST-INDEXl  TO  HIST-TCMP. 

97240  IF  hIsT-TEMP  IS  GREATER  THAN  HIST-VALUE -MAX  THEM  MOVE 

97250  H'SI-TEMP  TO  HIST-VALUE -MAX. 

97260  IF  HIST-TEMP  IS  LESS  THAN  HIST-VALUE-MIN  THEM  MOVE 

97270  H.ST-TEMP  TO  HIST-VALUE-MIN, 

97280  IF  Hlsr-INDE*'  15  LESS  THAN  KNT  THEN  GO  TO 

97290  MIST-FIND-vMAX-vMIN. 

97292  IF  UATA-TtPL  IS  EQUAL  TO  ONE  COMPUTE  HlST-NO-OP-INTE«V*lf  > 

97294  HIS1-VAL,.E-MAX  < 4, 

97296  IF  DATA-TyPE  is  EOUAL  TO  TVO  COMPOTE  MIST-NO-OP-tMTCRy*t»  > 

97298  HISI-VALUE-MAX  / 8 < 4, 

97300  HIST-PRINI-IITLE. 

97301  IF  HlST-NO-C ^-intervals  IS  LESS  THAN  50  MOVE  BO  TO 

97302  HlST-NO-e9-INTERVAL5. 

97304  ADD  1 To  HIST-PAGE-NO. 

97306  MOVE  6 10  HI3T-LINE-CNT. 

97310  XRlTE  HISI-R-C  FROM  HIST-NEM-PAGE. 

97320  MOVE  HIST-NO-OF-OaS  TO  HIST-NO-OF-OBS-PPT. 

97330  MOVL  HIST-VAuUE-MAX  TO  HIST-VALUE-MAX-RPT, 

97340  MOVE  HiST-VA  UE-MIN  TO  HIST-VALUE-MIN-RPT. 

97350  WRITE  MIST-R''C  FROM  HisT-TITLE. 

97355  perform  COMPuTE-MEAN-vARIANCE  TH"0  ENO-CMV, 
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V7J60  wHMC  HIST-MEC  FROM  Hl$T*OOT-LlNe« 

97A70  WIUTF  HIST-KflC  FROM  HlST*LAhfL« 

97J80  WRITE  lUST-KiC  FROM  HlST*OOT-LINE. 

97J90  HIST*DUMMy* 

97410  IF  rilbt-VALUt-MAX  IS  LESS  THAN  HIST^VALUE-MIN  THEN  60  TO 

97420  HIST-ERR0R*2« 

97430  IF  hIbT-No-0“-INTLRVAH»  IS  GREATER  THAN  200  ThEN  MOVE  200 

97440  TO  HIST*N0*0F«1NTERVALS« 

97441  MOVL  ZEhO  TO  HIbT-INDEX* 

97442  HlST*RS1« 

97443  ADD  I TO  HlS^-lNOEX. 

97444  MOVL  ^LrO  TO  HlST-TABLE  CHIST-INOEX J, 

97445  IF  HlbT-lNDL.  IS  LESS  THAN  HIST*NO*OF*INT£RvAlS 

97446  THEN  GO  TO  HIST-RST* 

97450  IF  UATA-TyPE  IS  EQUAL  TO  ONE  MOVE  1*0  TO  HlST*lNTeRVAL«Sl2C» 

97460  else  move  6.0  TO  HlST*lNTERVAL*St2C* 

97000  NOTL  compute  UPPER  LIMIT  FOR  EACH  INTERVAL* 

97010  MOVL  iJtHO  TO  HIST-INOEX. 

97S20  MOVE  iJEnO  TO  Hlst-TEMP* 

97S30  HlST-INC-lHTERVAu. 

97540  ADD  I TU  HIS '•INDEX. 

97bS0  ADD  HlST-IHT'iRVAL-Sl/E  TO  HlST^TEMP* 

97S60  MOVE  HIST-TLMP  10  HIST-UPPER-LIMIT  CHIST^INOEX 1. 

97S70  IF  hIST-INDE  IS  LESS  THAN  HIST*NO«OF«INTERVAlS  THEN 

97S60  ^ GO  TO  HIST^INC^INTERVAL. 

97b00  NOTL  PLACE  OrcUHANCL  INTO  APPROPRIATE  CHANNEL. 

97610  MOVL  ZIM  TO  H1ST-1N0EX«2. 

97b2Q  HlST*OCCUKAuCE.  ^ 

97b30  ADO  I to  H1S^«1N0EX-2. 

97640  MOVL  HlbT-VALUE  CHlST-INaEX-2)  TO  HlST^TEMP. 

976SQ  MOVE  ^EkO  TO  HlST^lNOEX. 

97b6Q  HlST-lNfEKVAL. 

97b70  ADD  1 lu  MlST-lNDEX. 

97b75  HOVE  FKlO-HIST-VAlUL  C HIST-INOEX-2 ] TO  A* 

97oe0  IF  hlST-TLM^  IS  NOT  GREATER  THAN  HIST-UPPE;;-LIHIT 

97b90  CMlsT-INnEXl  THEN  GO  TO  HlST^ADO-TABLE . 

97700  IF  HlSl-lNDEX  IS  LESS  THAN  HIST«NO«OF*INTERVAeS  ThEN  OO  TO 

97710  HIST*INTERVAL. 

97720  AOn  A TO  HIS^-OUT-RANOE-VALUE. 

97730  GO  TO  HlST-NO-AUn. 

97740  HlS1-Anu-< AuEF, 

477*i(»  Ahn  A 10  Ills  -TAOi.f  rHlST«INi'Fx)* 

GM'M  Hl4l.li**. 

•jMnii  ir  iH^i  IfM't*  w N MbO  mt  mi  N 

97UIIU  flOlL  Si  ALL  VAlHL. 

97610  MOVL  HiSl-TAhLE  Cll  TO  HIST«TEMP. 

97020  MOVL  1 10  HlST-lNDEX. 

97030  H1ST«SCALE. 

97040  ADO  I TO  HIS*-INnEX. 

97050  IF  HiST-TAPLE  CH1ST<-INDEX]  IS  GREATER  THAN  HlSt*TEMP  THEN 

97060  move  HISi-TABLE  CHIST-INOEXJ  TO  HIST-TENP. 

97070  IF  hIST-INOE^  IS  LESS  THAN  mIST-NO-OF-INTERVALS  THEn  00  TO 

97060  HIST •SCALE. 

97090  COMPUTE  HIST-SCALE^VALUE  > CHlsT-TEMP  < 993  / lOO. 

97095  IF  Hlsr-SCAL« •value  IS  LESS  THAN  1 MOVE  1 TO 

97096  HIST^SCAL^-VALUE. 

9790U  MOVE  ZERO  TO  HlST^INDEX. 

97910  HlST^SCALLD^VALUES. 

97920  ADO  1 TO  HIS'.  •INDEX. 

97930  COMPUTE  HIST- TAOLE^SCALED  CHlST-INOEXJ  > 

97940  HIST- TABLE  CHIST^INDEXl  / HIST-SCALE^VALUC. 

979S0  IF  HlST-INDEX  IS  LESS  THAN  HIST-NO^OF*INTERVAlS  THEN  60  TO 

97960  HIST-SCALEO^VALUES. 

98UU0  NOTL  PREPARE  OU1PUT  DATA, 

98010  DlVint  c INT*'  HlS1^1NTEHVAL-Sl7E. 

90020  MOVE  ZERO  TO  HlST^CUM, 

90030  MOVE  zero  TO  HlST^LINE. 

96040  HIST-PRlPARL. 

98050  Ann  1 TO  MlS’'^LlNt. 

90060  MOVE  MlST^LlNE  10  HlST-LlNE-RPT. 

98070  COMPUTE  HlST^TEMP  > HIST^UPPCR^LIMIT  CHIST-LINEI 

98060  • HIST^INTERVAL*SIZE. 

98U90  MOVE  HlST^TEMP  TO  H1ST^M10^POInT-RPT. 

98100  COMPUTE  HlGT-PEHCENT  > HlST^TApLE  CHIST-tlNE3  * 100 

96110  / H1STT40^0F^09S. 

98120  MOVE  NlST-PE  CENT  TO  HlST^PERCENT-RPT. 

98130  ADD  HlSI^PERrENT  TO  HIST^CUM. 

98140  MOVE  HIST^CUM  TO  HIST-CUM-RPT, 

98150  MOVE  HlST^TAIEE  CHlST^LlNEl  TO  HIST^FREO*RPT. 

96160  MOVE  ZEkO  TO  HlST^lNDEX. 

98170  IF  HlST-DlST  IS  NOT  EQUAL  TO  iQi  60  TO  HIST-CUM-l. 

98180  compute  H1ST^1N0EX-2  > HlST^TARLE^SCALEO  CHIST-LINEJ  < 0.5. 

96190  IF  H1S1-1NDE  •Z  IS  EOUAL  TO  ZERO  60  TO  HIST*PREp*SPACE* 

96200  HlSToPREP^OiST. 

96210  add  1 TO  HISI^INDEX. 

96220  MOVE  MI  TO  I.IST^POINT  C HISt^lNDEX 3* 

98230  IF  HlST^lNPE'*^  IS  LESS  THAN  HIST-INOEX*?  60  TO  HlST-fREp^OIST. 
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90^1(0  IF  HibT-INDtX  IS  tOUAL  TO  100  THEN  60  TO  HIST-WITC. 

98«;S0  HIsr-PPLP-SF*CE. 

SBiibO  ADO  1 TO  HIS'-INOt*. 

98a70  MOVE  SPACE  T''  MIST-POINT  CMIST-INOOU. 

98^80  IF  HiST-iNDtX  IS  LESS  THAN  100  THEN  60  TO  HIST-PREP-SPACE. 

98ii90  60  TO  HIST-HaITL. 

98J00  HIST-CUH-I. 

98JI0  ADD  I TO  HIS’-INOEX. 

98J20  movl  space  to  HIST-POINT  I HIST-INOEX I. 

9AJ30  IF  hIST-INDL^  is  less  than  100  THEN  60  TO  HIST-CUN-1. 

98338  COPPUTE  HIST  INDEX  > HIST-CUP  < 0.5. 

90339  IF  hIST-IMDEX  IS  EOUAL  TO  ZERO  60  TO  HIST-WRITE. 

98340  MOVE  TO  mIST-POINT  CHIST-INOEX  J. 

98400  HIsT-WPITl. 

98410  WRITE  HIST-RFC  FROM  HIST-LINE-OUT. 

98412  ADD  I To  HIST-LINE -CNT. 

98414  IF  HIST-PAGE-FLAG  IS  EOUAL  TO  ZERO  GO  TO  HIST-NO-PAGINO. 

98415  IF  hIST-LINE.  CNT  IS  EOUAL  TO  HIST-PAGE -FLAG 

98416  THEN  PERFORM  MIST-PRINT-TITLE. 

98417  HISI-NO-PAGINO. 

98420  IF  hist-line  is  less  THAN  HiST-NO-OF-INTERVALS  THEN  00  TO 

98430  HIST-PREPARE. 

98440  WRITE  IIIST-REC  FROM  HIST-DOT-LINE. 

984S0  MOVE  hist-sc-le-value  to  hist-scale-rpt. 

98460  WHITE  HIST-H-.C  FROM  HIST-SCALE-LINE. 

9G47U  IF  Iilsl-OUT-RANOE-VALUE  IS  LOuAL  TO  2ER0  00  TO  HIST-WRITE-B. 

98480  MOVE  HiST-OUr-RANGE-VALUE  TO  HIST-OUT-RANOC-RPT. 

98490  write  HIST-R_C  FROM  HIST-OUT-RANGE-REC. 

98800  HIsr-WRITt-b. 

98SI0  WRITE  HIST-HFC  FROM  HIST-OOT-LINE. 

98820  GO  10  LI.U-HIjT. 

99U00  HIST-ERhOH-I. 

99UI0  white  HIST-HFC  FROM  HIST-TITLE. 

99020  MOVL  HIST-ERO-I  TO  HIST-TITLF-I. 

99U30  MOVL  MlST-NO-OF-OaS  TO  HlST-ERR-2. 

99U4U  WHITE  HIST-H^C  FROM  MIST-TITLE. 

99USU  MOVL  !li  TO  IIST-FLAG. 

99ubU  GO  TO  Li.D-HIST. 

99100  HIST-ERhOH-2. 

991 10  MOVE  HIST-EH  -4  TO  MIST-TiTLE-I . 

99120  MOVL  HIST-FHI’-S  TO  HIST-TlTLE-2. 

99130  WRITE  HIST-HFC  FROM  HIST-TITLE. 

99140  MOVL  :l:  TO  ..IST-FLAG. 

99IS0  60  TO  tnn-Ht  7. 

99200  HI8T-ERH-3. 

99210  MOVE  :l:  TO  HIST-FLAG. 

99990  ENO-HIST.  EXIT. 

/•  PLACE  COBOL  SO'  RCE  BEFORE 

//CHG.TFOIM  DU  w.SPACOCCYL.Cl.l)] 

TF6  DT03  II  0202080 

5 0 

• END 

/•  PLACE  TFG  data  BEFORE  THIS  CARD 

//TPR.TU12  OD  DISp>COLO.XEEPJ.VOL>SER>*FI.UNIT>T*FI 

//TPR.TU2S  DO  DIS'’>C0L0.XEEP  J.VOL>SER>*Fe»ONIT>T*Fe 

//TPR.TPHIN  DU  •.SPACEXCTRX.tl.I  JJ 

T/P  TU25  I998I30R00U 

/•  PLACE  T/P  CONTI  OL  CAROS  BEFORE  THIS  CARD 
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1990  CDS 


TIC 

TC8 


G.9.  4 SORT  FOR  REPAIR  ACTION  INTERVALS 


//T989/J 
//t9897F  l)^lC 

//CHG.SOHTIN 

// 

// 

// 

// 

//CHO.SOHTOUT 

// 

// 

// 

//CHG.SYSIN 
SORT 


MOOS 

/♦ 


01*:  G wANG  : »PHTY>02cTYf*RUN>HOt.D 
P‘^66'2McW,06U,TIME>OScACCT>03532J007 

OU  DIS^>C »KCCP]cUNlT>CA^FS»2cOLFCft7»  f 

CSN>4t;,9«97429*  CTtt/t3  I 

V0L>SER>1 ♦Fbj A4F5cB^F5»C4F5»04F5»E4F5#F^F5*C^FS#IHFR#  CT9#  » 

I*F8.JFF:  .'<*F5.L*Fb.MFF5.N*F5,0*F5,PFF5lQ®FltRjp5ts5pBl.CTM  9 

DtB>CLRErL>002ot8LXSIZE>i800j’*’*^‘''**^‘'**^‘'"*^‘’*^“''^‘*  ’ 

00  *>DL8>aLKSIZE>0080.SPACC>tTRKw[ttl JJ 
FleLOS>t0I7,00I.tH.A,019.00I.CH,A,001,005.CM.A,006.OO3.CH.Al.  C 
EIS>CEIS.008.SORTLia,N].EI8>CEI8.029.sORTLie>N] 
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6.  9.  5 CUMULATIVE  DISTRIBUTION  FOR  REPAIR  ACTION  INTERVALS 


i 


//C9e97C  E»EC  P9nt>5L.TiHE>10.*CCT>035S23007 

//CHG. 

TU12 

DO  OISI  >C  .P*iST.UNIT>t**F1.2.0EFERJ.DSN>*A.9897430» 

CT12/13  1 

// 

VOL>SER>I ♦F1.A*FI,B«F1. 

C*F1.0*F1.E*F1.F*F1.G*F1.H*f1» 

CT12  2 

// 

I-fFl.J^Fl.K^FliLtFl.MtFl.N^Fl.O^Fl.PAFt.a^Ft  .R^FI.SaFII 

T12  3 

//CMC, 

TU25 

no  DIS.'>t . PASS J.UNlTMTfFS.l, defer  1»DSN>ah. 9897*31. 

CT25  1 

// 

VOL>SER>'  ♦F().A*F«.B*F8. 

CWFS.D4FB.EaFB.FWF8.6AFB.HAF8. 

CT25  2 

// 

I'»Fd.J«FH.K*pn.LAF8)M*F8>N*F8t0AF8.PAF8.0AFB(RAF8.SAF8] 

T25  3 

//CHG, 

INPUT  ru  ••Si'*CE>CCrL>Cl>lJI 

1440  CDS 

ooooo 

CuMuINE  compile 

6.  WANG. 

C96970 

01U40 

DATL-WPITTKN.  7 APH  72* 

C96970 

01U5U 

REMARKS* 

C96970 

01U60 

PAINTENAI.CE  STUDY  PROGRAM  3C. 

C9S970 

01070 

REPA.’R  ACTION  intervals. 

C96970 

01060 

PREPARES  CUMULATIVE  DISTRIBUTION  OF  REPAIR  ACTION 

C96970 

01U90 

INTERVALS. 

C96970 

01100 

INI  'JT  SORT  SEQUENCE 

096970 

OHIO 

aircraft  sub-set.  oata-ttpe.  vuc.  hmc. 

096970 

02000 

environment  division. 

096970 

02010 

configuration  section. 

096970 

02020 

source-computer.  IBM-360. 

098970 

02030 

object-computer.  I6M-360. 

096970 

02100 

iNPUT-OuTPUr  SECT  ION. 

098970 

02110 

file-control* 

096970 

U2120 

select  in-fue 

ASSIGN  TO  UT-S-TU12 

096970 

02130 

Rlslrve  1 alternate  area. 

096970 

02140 

sellci  mist-file 

ASSIGN  TO  UT-S-TU25 

096970 

021^U 

rlslrve  1 alternate  area. 

096970 

09000 

select  CUT-UFF-FILE 

ASSIGN  TO  DA-S-DTOS 

096970 

09U10 

RLSLRVF  I alternate  area. 

096970 

louoo 

data  division. 

096970 

10010 

pile  SrCTlON. 

096970 

moo 

PD 

iN-FiLt 

098970 

11120 

RECOPuING  MODc  is  f 

096970 

11130 

HLOLK  CuNTAIN'i  90  RECORDS 

096970 

11140 

recuRu  contains  2U 

CHARACTERS 

098970 

lll&O 

LAULL  RECORDS  ARE  OMITTED 

098970 

11160 

DATA  records  are  IN-REC. 

096970 

11170 

01 

IN-rEL  stnc. 

098970 

mao 

02  vuc 

PICTURE  XI 5 J. 

098970 

ItlOl 

02  hMC 

PICTURE  XtSJ. 

096970 

11162 

U2  filler 

PICTURE  X. 

098970 

11163 

02  Ous 

PICTURE  S9I6J. 

098970 

11164 

02  OdS-I  redefines  obs 

PICTURE  S99999V9. 

096970 

1116b 

02  filler 

PICTURE  X. 

098970 

11166 

02  IsChRONAL .new 

PICTURE  X. 

098970 

11167 

02  filler 

PICTURE  X. 

096970 

11166 

02  OATA-TTPE  -NEW 

PICTURE  X. 

096970 

11169 

02  filler 

PICTURE  X. 

096970 

12100 

FU 

misi-hle 

096970 

12120 

RECORUING  MODE  IS  F 

096970 

12130 

BLOCK  contains  15  RECORDS 

096970 

12140 

RECORD  CONTAns  ISO 

CHARACTERS 

096970 

1215U 

label  records  are  omitted 

096970 

12160 

DATA  records  are  hist-rec. 

096970 

12170 

01 

MIST-HEC  STNt. 

096970 

12160 

02  filler 

PICTURE  XtlSOJ, 

098970 

29000 

FU 

cut-off-file 

096970 

29010 

RECWRUING  mode  is  F 

098970 

29020 

BLOCK  CUNTAirs  20  RECORDS 

096970 

29O30 

RECDHU  CONTA'NS  80 

CHARACTERS 

096970 

29040 

label  records  are  standard 

098970 

29050 

DATA  HtCORDS  ARC  CUT-OFF-RCC. 

096970 

29060 

01 

CUT-OFF-REC  SYNC, 

098970 

29070 

05  Nl-CUT-OfF 

PICTURE  91 5 J. 

096970 

29060 

05  ISO-CUT-rFF 

PICTURE  91  5 J. 

096970 

29090 

05  filler 

PICTURE  XITOI. 

098970 

30000 

working-ktokage  section. 

098970 

30010 

77 

knt  Sync  pic:uRt  S9C5J. 

096970 

30020 

01 

filleh  sync. 

098970 

30030 

02  FhEO-HI ST- value  OCCURS 

1000  TIMES  PICTURE  S9t51 

096970 

30040 

computational. 

€96970 

30050 

01 

A picture  S9C51  COMPUTATIONAL. 

098970 

30060 

01 

NO-OF-HISTS  STNC 

PICTURE  9999  VALUE  2ER0. 

€96970 

30070 

01 

TWO  STNC 

PICTURE  X VALUE  :2'>. 

098970 

30060 

01 

ONE  JTNC 

PICTURE  X VALUE  118. 

€96970 

30090 

01 

CNT  STNC 

PICTURE  S9t51  computational. 

098970 

30100 

01 

CUR-WUC-T  STNC. 

€96970 

30110 

02  FILLER 

PICTURE  XtSJ  value  8 WUC>I. 

€96970 

30120 

02  CUR-WUC 

PICTURE  Xtsl. 

098970 

30130 

01 

CUR-HMC-T  STNC. 

€96970 

30140 

02  filler 

PICTURE  Xtsl  value  I HNC>I. 

096970 

30150 

02  cuh-mmc 

PICTURE  XtSJ. 

096970 

50160 

02  filler 

PICTURE  XX  value  space. 

€96970 

30170 

01 

ischRunal  sync 

PICTURE  X. 

€96970 

L 
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iOlPO 

01 

OATA-TYPE  SYNC 

picture  X, 

C96970 

301<<0 

01 

MlMuS-OtlE  COPnjTATlONAL 

picture  5999  value  -1  SYNC. 

C96970 

32u00 

01 

REPOPT-IO  STNC. 

C96970 

32U10 

02  filler 

PICTURE  XC501  value 

C96970 

32U20 

Itoaq.'AbO  TFT9t9-02  t42-A  1 1/2  1, 

C96970 

32U30 

02  filler 

PICTURE  XCSOl  value  SPACE. 

C96970 

32U4U 

02  filler 

PICTURE  XC301  value 

C96970 

32U50 

2 

Ti. 

C96970 

46U00 

01 

MEAN  COHPJTATIONAL  SYNC, 

.picture  S9CT3V99. 

C96970 

46UIO 

01 

VARIANCE.  COHPJTATIONAL  SYNC 

picture  S9C71V99. 

C96970 

4bU20 

01 

TEMP-COHP 

picture  S9rT3V99. 

C96970 

46100 

01 

MEAN-vAHIANCE-LINC  sync* 

C96970 

46110 

02  FILLER 

picture  XCSOl  value 

C909T0 

46120 

:s 

1. 

C96970 

46130 

02  filler 

picture  Xtl91  value 

C9fl970 

46140 

MEAN 

>:* 

C96970 

46150 

02  MLAN-RPT 

picture  2229.9. 

C9fl970 

46260 

02  filler 

picture  XCSOl  VALUE 

C96970 

46170 

VARIANCE  >1. 

C90970 

46160 

02  variance- SPY 

picture  2222229.9. 

C96970 

46190 

02  filler 

picture  XCI61  value 

C9fl970 

46200 

: t 

: « 

C90970 

47U00 

01 

HlSY-VALUE-MAl  SYNC 

picture  S9999V99  V*LU£  -9999.9. 

C96970 

47UI0 

01 

MIST-VALUE-MIN  SYNC 

picture  S9999V99  VALUE  <9999.9. 

C96970 

47020 

01 

hisy-no-of-ops  sVnc 

PICTURE  S9CS1  value  2ER0. 

C96970 

47030 

01 

HIST*N0«0F-1NTERVALS  sync 

PICTURE  999V99  VALUE  50. 

C96970 

47U40 

01 

HISY-INPUY-VM'.X-VMIN  sync 

PICTURE  9 value  2ER0. 

C96970 

47U50 

01 

Hisr-OIST  SYN- 

PICTURE  X value  III. 

C96970 

47U60 

01 

HlSY-INUEx  SYNC  COHPUTAYIONAL 

C96970 

47u70 

PICTURE  S999  value  2ER0. 

C96970 

4 70A0 

01 

hisy-inuEx-2  sync  compuyaiional 

C96970 

47090 

PICTURE  S999  value  2ERO, 

C96970 

47100 

01 

hisy-ycmp  Sync 

PICTURE  S99999V99  VALUE  2ER0. 

C96970 

47U0 

01 

HIST-INIEhvAL-SIZE  sync 

PICTURE  S999V99  VALUE  2ER0 

C989T0 

tTiau 

coi  outayional. 

090970 

47150 

01 

HISI-FLAG  SYNC 

PICTURE  X value  lOI, 

C90970 

■•7160 

01 

HISY-SCALE-VALUE  SYNC  COMPUTATIONAL 

C90970 

47170 

picture  S999  VALUE  <1. 

C90970 

47160 

01 

HISI-PLRCENT  sync 

picture  S999V99  COMPUTATIONAL. 

C90970 

47J90 

01 

HlSI-vUi^  SYN.'* 

PICTURE  $999V99  COMPUTATIONAL, 

C90970 

47200 

01 

mISI-lINE  sync  COMPUTAtlONAL 

C90970 

*•7^10 

< CTURE  S999  VALUE  EERO. 

C96970 

47220 

01 

HIST-P»uE-FL.  0 SYNC 

PICTURE  ■-'»  value  <75, 

C90970 

■•7230 

01 

HISI-LINE-CN'  sync 

PICTURE  S9s/, 

C96970 

47300 

01 

MiST-tRM-I  SYNC 

picture  xcioi  value 

C96970 

47320 

2 ERROR  NO 

01. 

C90970 

47320 

01 

HlST-tHK-3  b’  NC* 

C90970 

47330 

02  filler 

PICTURE  XCSI  value  IBS  > 1, 

C90970 

47340 

02  HlSJ-eRH-2 

PICTURE  S9I51  value  2ER0, 

C90970 

47350 

01 

HlST-tMK-4  ST  K 

PICTURE  XClOl  value 

C90970 

47360 

:ERR0R  MAX2* 

C96970 

47370 

01 

HlST-tRK-5  SYNC 

picture  XCIOI  value 

C96970 

4’’  ^HO 

:*MiN  eAo 

. :. 

C90970 

i joO 

01 

MIST-Owr-RAMC t-VALUE  SYNC 

picture  S999  computational. 

C96970 

•t . jOO 

01 

filler  sync. 

C96970 

47610 

02  filler  occurs  200  TINES 

* 

C90970 

47530 

03  HISI-YAbLE 

picture  S9I51  computational. 

C96970 

47540 

03  HIST  upper-limit 

PICTURE  S9999V99  computational. 

C96970 

47550 

03  HIST  TAbLE-SCALEO 

picture  S999V99  computational. 

C96970 

47560 

01 

MlST-Nf.f*-PAGt  SYNC* 

C96970 

47570 

02  filler 

picture  X value  111. 

C96970 

47560 

02  filler 

PICTURE  XI 1 221  value  SPACE, 

C96970 

47562 

02  filler 

PICTURE  XI 51  value  IPAOE  I, 

C96970 

47564 

02  HIST-PAGL-NO 

picture  9. 

C90970 

47590 

02  FILLFR 

PICTURE  X value  1*1. 

C96970 

4 7i,00 

01 

HIST-TITLE  SYNC. 

C96970 

47610 

02  filler 

PICTURE  XI31  value  is  I. 

C96970 

47620 

02  HIsr-TITLl-1* 

C90970 

47621 

03  fillet 

PICTURE  XCIOI  value  space. 

C90970 

47030 

02  HIST-TITLE-2, 

C90970 

47031 

03  filler 

PICTURE  XI 101  value  space. 

C96970 

47640 

02  hist-titl:-3 

PICTURE  XCIOI  value  SPACE. 

C90970 

47oS0 

02  MIsr-TITlE-4 

PICTURE  XCIOI  value  space. 

C90970 

47660 

02  filler 

PICTURE  XC24I  value 

C96970 

47b70 

: NO  OF  OBSERVATIONS  >t. 

C96970 

47060 

02  HISf-NO-'  F-OeS-RPT 

PICTURE  22229, 

C96970 

4 7o90 

02  filler 

PICTURE  XI 131  value 

C96970 

47/00 

: V*LUt  MAX  > 2* 

C96970 

47M0 

02  H2bT-VALlE-MAX-HPT 

PICTURE  ——,9. 

C96970 

47/20 

02  filler 

picture  XCI31  value 

C96970 

47/30 

: VALUE  min  > 

C96970 

47/40 

02  HlS2-VALtc-HIN-RPT 

PICTURE  — .9. 

C96970 

47/50 

02  filler 

PICTURE  XCIOI  value 

C96970 

47760 

: 

C96970 

47900 

01 

Hisr-UOT-LINE  SYNC* 

C90970 

47910 

47920 

02  filler 

:/... — ... 

picture  XCSOl  VALUE 

C96970 

C96970 

r 


t 


H7'i22 

H7930 

4 7*950 
H7'^6U 
H7970 
H797H 
‘♦7980 
<♦7990 
48000 
48U10 
48020 
48030 
48040 
48Uh0 
48070 
48UA0 
48100 
48110 
4H120 
48130 
4M140 
481!)0 
481fiU 
48170 
48180 

48190 

48191 
48200 
48210 
48220 
48230 
48^40 
48250 
48300 
48310 
48320 
50U00 
dOUOl 

50002 

50003 
bOOlO 
50020 
50030 
50040 
50050 
50060 
50100 
50110 
50120 
50130 
50140 
50150 
50160 
50170 
50200 
50210 
50220 
50230 
50240 
50250 
50260 
50270 
50300 
50310 
50320 
50330 
50400 
50410 
50420 
50430 
50440 
50445 
50450 
50455 
50460 
50510 
50512 
50514 
50516 
50518 
50520 
50530 
50540 
50550 
50560 
50570 


02  FILLCK  PtCTURC  XC803  VALuC 

J I . 

01  HlST-LAUEL  S^NC. 

02  fillch  picture  xtsoj  value 

:/  MIOPNT  pcnt  cum  FRCO  I«*«5««.l0.«*is»«.t0«u 


02 

FILLEH 

PICTURE 

xtsoi  value 

:25* 

• • 30 • * , 35 •••40***45***50*,, 55 • • • 

60 • • *65 •••7o***  75* , • 80 

185. 

•.9U...9S..100*!. 

01 

hist-line-oui  sync. 

02 

FILLER 

PICTURE 

X value  i/t. 

02 

HISI-LINE-RPT 

PICTURE 

229* 

02 

filler 

PICTURE 

X value  SPACE. 

02 

HIST-MIO-POINT-RPT 

PICTURE 

02 

H1ST-PER(  ENI-RPT 

PICTURE 

229*9, 

02 

filler 

PICTURE 

X VALUE  SPACE. 

02 

HISI-CUM-RPT 

PICTURE 

229.4. 

U2 

HIST-FREL-RPT 

PICTURE 

22224. 

02 

FILLFR 

PlCrtJRE 

X VALUE  SPACE. 

02 

hisi-point  occurs  luo 

TI»(  S 

PICTURE 

X. 

02 

filler 

PICTURE 

X VALUE  lAI. 

01 

HISI 

l-UUI-RANG^-NEC  SYNC* 

u? 

filler 

PICTURE 

xcs&i  value 

!/  .jumber  Of  Out 

OF  RANGE  VALUES  >1. 

U2 

HIST-OUT-  UNGE-RPT 

PICTURE 

229* 

02 

filler 

PICTURE 

xt41]  value  space. 

02 

filler 

PICTURE 

X VALUE  lAI. 

01 

HlSI 

-bCALE-Ll.JE  SYNC. 

02 

Filler 

PICTURE 

Xt27J  value 

:/  scaling 

FACTOR  > 

1* 

02 

HISI-SCALE-RPI 

PICTURE 

229* 

U2 

filler 

PICTURE 

XC094]  value  SPACE. 

02 

filler 

PICTURE 

X VALUE  t«i. 

01 

filler  SY»iC* 

02 

Hlbl-V*Ll.c  OCCURS  1000 

TIMfS 

PICTURE 

S9494V9  computational. 

PRyceOUHF  DIVISION, 

OPrn  IKPUt  Cur-OFF-FILE. 

HtAU  CUT-OFF-  ULE  AT  END  GO  TO  CLOSC-FIUCS* 

CLOSE  CUT-OFF-FILC  4lTH  LOCK* 

OPEN  INPUT  in-file* 

OPEN  OUTPUT  NlST-FlLE* 
povL  looo  TO  un , 

PEPFOhM  MESLT-TAHLE  THHU  ENU-«ST«TABL€* 

HEAu  lN-FlLt«  AT  END  GO  TO  CL0SE«F1L£S* 

WRITE  HIST-HE:  from  REPORflO* 

PANA-1 , 

MOVL  1 TO  HlcT-HO-OF-OBb* 

MOVE  KUC  TO  CUR-VUC* 

MOVE  HMC  TO  CJR-HMC* 

MOVE  UATA-TYP^-NEW  TO  OATA-TYPC. 

MOVl  ISCHNONAl-NEW  TO  ISCHRONAl* 

IF  UATA-TyPE  ;s  equal  to  one  go  to  bceks-oata  else  go  to 

FLT-OATA, 

REAOl* 

READ  IN-FlLE.  AT  ENO  GO  TO  CLOSE-FiLES, 

IF  UAlA-TYPt-  IEw  IS  equal  TO  191  GO  TO  CLOSfc-FlLES# 

IF  wUC  IS  NOT  EQUAL  TO  CUR-VUC  GO  TO  PARA-2* 

IF  hMC  is  not  equal  to  CUR-HMC  go  to  rARA-2* 

AOP  1 TO  HIST-NO-OF-OOS. 

IF  uata-type  "s  equal  to  one  go  to  weeks-oata  Else  go  to  » 
flt-oata* 

PARA— 2 

perform  SET-h:STOG  thru  eno-sh. 
perform  reset-table  thru  eno-rst-table* 

GO  TO  PARA-1, 

RESLT-TABlE* 

MOVE  2ER0  TO  CNT* 

N51* 

ADO  1 TO  CNT* 

MOVE  MINUS-ONE  TO  HlST-VALUE  CCNTJ* 

MOVL  2EhO  to  .’RLO-HIST-VALUE  CCNTJ, 

IF  CN|  IS  LESS  THAN  KNT  GO  TO  RST, 

MOVE  2ER0  TO  KNT* 

ENU-RST-TAOLE,  tXlT* 

StT-HlSlOG* 

IF  ISCtiRONAL  IS  EQUAL  TO  ONE  AND  HIST-NO-OF-OBS  IS  NOT 
Greater  than  iso-cut-off  go  to  eto-sh* 

IF  ISCHRONAL  IS  EQUAL  TO  TVO  AND  HfST-NO-OF-OBS  IS  NOT 
greater  than  Nl-CUT-OFF  GO  TO  ENO-SH, 

IF  ISCHRONAL  IS  EQUAL  TO  ONE  MOVE  I ISO  I TO 

HlST-TTTLt-4»  ELSE  MOVE  I NON-ISO  I TO  HlST-TlTLE-4.  i 
IF  UATA-TyPE  S EQUAL  TO  ONE  MOVE  I WEEKS  I TO 

HlST-TITLE-3*  ELSE  MOVE  ! FLT-HOURSI  TO  HlST-TtTlC-i* 

MOVE  CUH-VUC-T  TO  HlST-TlTLE-1. 

MOVE  CUR-HMC-,*  TO  HlST-TlTLE-2, 
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C96970 

C96970 

C98970 

C96970 

C96970 

C98970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

098970 

C98970 

C98970 

C9897n 

C9A970 

C9B970 
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C98970 

C98970 

C98970 

C98970 

C98970 
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C96970 

C98970 

C98970 

C989T0 

C98970 

C98970 

C98970 

098970 
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098970 

C98970 

C98970 
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C98970 

C98970 

096970 
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C96970 

098970 

098970 

098970 

C98970 

098970 

098970 

098970 

098970 

098970 

098970 

098970 

098970 

098970 

098970 

098970 

098970 

098970 

098970 

098970 

098970 

098970 

098970 

098970 

098970 

098970 

098970 
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098970 

098970 

098970 

098970 

098970 

098970 

098970 

098970 

098970 


] 

1 


i 


4 


i 


I 

i 


6-174 


i 


■ 1 


I 

{ 

I 


) 


) 


* 

! 

5 


I 

j 


i' 


i 


bOMO  PLB^OK^<  WHITE  HISTOGRAM  THRU  EMO^HIST. 

soooo  IF  hIst-flag  is  equal  to  hi  t»cn  eo  to  cfi. 

SOblO  AOP  1 TO  NO-OF-MISTS. 

b0b20  END-SH.  EXIT. 

SluOO  wLlkS-PATA. 

SlUlO  MOVL  ZEhO  to  CNT, 

stujo  wllk-a. 

SlUSO  ADO  1 TO  CNT. 

S1U40  IF  ORS  IS  EQUAL  TO  HIST-WALUC  CCNTI  00  TO  WCeR-C. 

S1U50  IF  FRLO-HIST-VALUE  ICNTJ  Is  rOuAL  TO  ZERO  SO  TO  WEEK'S, 

blU60  IF  LNt  is  LESi  THAN  1000  GO  TO  WEEK-A. 

bluTO  display  : HOP  . THAN  1000  FRE;QUCNCT  occurences  i UPON  CONSOLE, 

bluno  GO  TO  LFl. 

blU90  WLEK-B. 

SHOO  MOVL  OHS  TO  HlST-VALUt  tCNTJ. 

SI  110  If  LNT  is  GHEXTLR  than  KNT  then  HOWE  CNT  TO  KNT. 

S1120  WLtK-C. 

S1130  ADD  1 TO  FREQ-HIST-VALUE  CCNTJ, 

S1140  GO  TO  PLAOl. 

S2U00  FLT-OATA. 

S2U10  MOVL  ZLmO  to  CNT. 

S2UJ0  FLI-A. 

S2U30  ADD  1 TO  CNT. 

b2U40  IF  OPb-l  IS  equal  to  HIST-VALUE  CCNTJ  80  TO  FLT-C. 

S2U50  IF  fRLO-HIST-VALUE  CCNTJ  Is  EQUAL  TO  ZERO  80  TO  FLT-S. 

S2U60  IF  CNI  IS  LESJ  THAN  1000,00  TO  FLT'A. 

S2U70  DISPLAY  : MORE  THAN  1000  FREQUENCT  OCCURENCES  « UPON  CONSOLE. 

S20fl0  00  TO  CFI.  , 

S2UR0  FLT-B.  / 

S2100  MOVL  OllS-l  TO  HIST-VALUE  CCNTJ. 

b2110  IF  CNT  IS  OHE»TER  THAN  KNT  THEN  MOVE  CNT  TO  KNT, 

b2120  FLT-C. 

b2130  ADO  1 TO  FHLQ-HlST-VALUE  CCNTJ. 

b2140  GO  TO  PLAOl . 

b220U  CLOSE-FILLS. 

b220b  PERFOhM  SLT-HISTOG  THRU  ENO-SH.  . 

b2207  CFl. 

b22ig  CLOSE  IN-FlLE  HlST-FlLE. 

b2£ll  IF  KIST-FLAQ  TS  EQUAL  TO  HI  OISPLAT  1 HJST  ERPOR  I UPON 

S2212  console. 

b221b  DISPLAY  ! NO  'F  HISTOGRAMS  > i NO-OF'HISTs  UPON  CONSOLE. 

b2220  DISPLAY  : LOJ  CVRQTP  ; UPON  CONSOLE. 

b2230  bOBACK. 

VbOOU  COhPUTF-MLAN-VAHIANCF. 

VbUlU  MOVL  2LkO  to  CNI. 

VbU20  MOVL  2LkO  TO  ‘LAN. 

ObUJO  CMv-1. 

VbU40  ADD  1 TO  CNT. 

VSdbO  COMPUTE  TEmp-lOMP  > HIST-VALUE  CCNTJ  • FREO'HIST-VALUE  CCNTJ. 

MbUYiU  AOn  TLMP-COMP  TO  MEAN. 

NbuTO  IF  CNT  IS  LESS  THAN  KNT  CO  TO  CMV-I. 

NSUPO  DIVIDE  idST-Nb-OF-OBS  INTO  MEAN. 

9b090  MOVL  2CH0  TO  NT. 

NblOU  MOVE  ZLhO  to  "AHIANCE. 

NblOb  IF  HlST-NO-OF-OdS  IS  LESS  THAN  2 GO  TO  END-CMV, 

NbllO  CMv-2. 

9bl20  ADD  1 10  CNT. 

9bl50  COMPUIE  TEMP-COMP  > CCHIST-VALUE  CCNTJ  - MEANJ  •*  ZJ  • 

ybl40  freo-hist-value  CCNTJ. 

NblbO  ADO  TlMP-COMP  TO  VARIANCE. 

NblbO  IF  CNT  is  EES'"  THAN  KNT  GO  TO  CNV-2, 

9bl70  COMPUTE  VARIANCE  > VARIANCE  / C HIST-NO-OF-OBS  - IJ. 

NblaU  MOVE  MEAN  TO  MEAN-RPT. 

yblRO  MOVL  variance  TO  V*R lANCL-RPT. 

ys200  WRITE  HIST-HL'’  FROM  MEAN-VARIANCE-LINE. 

9S29U  ENU-CMV.  EXIT. 

97000  KOI ll-HISIObRAM. 

970flO  MOVE  :n:  to  H’ST-FEAC. 

97090  MOVE  2fR0  TO  HIST-OUT-RANCE-VALUE. 

97100  MOVL  ZLRO  TO  ,IIST-PAGE-NO. 

97140  MOVL  -9999.9  '0  HIST-VALUE-MAX, 

97IS0  MOVL  <9999,9  TO  HIST-VALUE-MIN. 

97200  MOVL  2tK0  TO  HlST-INOEX, 

97210  HlST-Flur-VMAx-VM.N, 

97220  ADD  1 TO  HlST-INOEX. 

97230  MOVL  HlST-VAL'JE  CHIST-INOEXJ  TO  HlST-TCMP, 

97240  IF  HIST-TLMP  IS  GREATER  THAN  HIST-VALUC-MAX  THEN  MOVE 

972S0  HI  ;T-TEMP  to  HlsT-VALUe-MAX. 

9/260  IF  mIST-TLMP  TS  LESS  THAN  HlST-vALUE-PlN  THEN  MOVE 

97270  hist-temp  to  HIST-VALUE-MIN, 

972B0  IF  HISr-ltlOLX  IS  LESS  THAN  KNT  THEN  80  TO 

97290  HIST-FINO-VMAK-VMIN. 

97292  IF  DAIA-TyPE  IS  EQUAL  TO  ONE  COMPUTE  HIST-N0-0F-INTERV*LS  > 

97294  HISI-VALUL-MAX  < H, 

97296  IF  UATA-TTPL  IS  EQUAL  TO  TWO  COMPUTE  HIST-MO-OF-INTERVALS  > 

97290  HIST-VALU'-MAX  / 8 < 4, 

97300  HIST-PPINT- TITLE. 
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y7J0l  ir  Ml-jT-NO-OF-INTEMVALii  IS  LfSS  THAN  50  ^ovt  50  TO 

97JU2  HIST-NO-OF  INTtHVALS. 

97J04  ADO  1 TO  HiST-PAGt-NO. 

97J0b  MOVL  S TO  HiSJ-LINf-CNT* 

97J10  wHITt  HlST-HEc  FROM  HtST-NCN-PAGf • 

97J20  MOVL  HIST-NO-  ‘F-OHS  TO  HiST-HO-OF-OliS-RPT , 

97J30  MOVL  HIST-VAL‘€-MA)1  TO  HiST-VALUC-MAX-RPT , 

97340  MOVL  HiST-VALUE-MlN  TO  H1ST<-VAlUC-MIN-RPT, 

97350  kHITE  HIST-HE^  FROM  HIST-TITLE. 

973S5  perform  COMPu’E-MFAN-vARI ANCF  THRU  ENO-CMv, 

97360  mRITE  MIST-WEr  FROM  HtST-OOT-LiNC* 

97370  WRITF  HiST-HFc  FROM  HIST-LABEL. 

97380  WRITE  HIST-RE  ' FROM  HIST-OOT-LINE. 

97390  HIST-DUMMt. 

97410  IF  hIsT-VALUE-MAX  IS  LESS  THAN  HIST-VALUC-MIN  ThCN  GO  TO 

97420  HlST-CRROR-2. 

97430  IF  hlST-NO-OF-^lNTERVALS  IS  GREATER  THAN  200  ThCN  MOVE  200 

97440  TO  HlSf-NO-OF-lNTERVALS* 

97441  MOVL  2Et<0  TO  HIST-INUEX. 

97442  HIST-NST* 

97M43  ADD  I TO  MIST  INDEX. 

97444  MOVL  2LkO  TO  (IST-TAHLE  tHIST-lMOEX). 

97445  IF  Hisr-INOEX  Is  LESS  THAN  HIST*H0-0F-INTERVALS 

9744b  THEN  GO  TO  HIST-RST. 

97450  IF  uATA-TtPE  :S  EOUAL  TO  ONE  MOVE  I.O  TO  H|ST-tNTCRVAL-St2e» 

97460  ELSE  MOVE  6.0  TO  HtST-lNTERVAL-SUE* 

97SOO  NOTE  CO'^PUTE  UPPEH  LIMIT  FOR  EACH  INTERVAL. 

97510  MOVL  2ErtO  TO  .IlST-INOEX* 

97S20  MOVL  2LrO  TO  HiST-TEMP. 

97S30  HIST-INC-INTEhvAL- 
97540  ADD  1 TO  HIST-INOEX. 

97SS0  ADO  HIST-INTF'  VAL-SIZE  TO  HlST-TEMp. 

97560  MOVL  HIsT-TLM''  TO  HlST-UPPER-LlMlT  IHIST-INOCX 1. 

97570  IF  Ml5T-lfJOLX  IS  LESS  THAN  HIST-NO-OF-INTERVALS  THEN 

97580  00  TO  HIST-INC-INTERVAL. 

97u0U  NOTl  place  OC  URANCE  INTO  APPROPRIATE  CHANNEL. 

97ol0  MOVL  21  kO  to  HlST-INnEX-2. 

97o20  HIST-OCCURAHCF. 

97o30  Aon  1 TO  mist  INOEX-Z. 

97b4U  MOVL  hIsT-VAL  lE  CMlST-INOEX-2)  TO  HIST-TEMP. 

97650  MOVE  2LrO  TO  HlST-lNDEX. 

97o6U  HlST-lNTtrtVAL, 

97670  ADD  1 Tg  MIST  INDEX. 

97b7S  MOVL  FHlO-HIS^-VALUE  t HIST-IN0EJ<*2 3 TO  A. 

97680  IF  mIST-TEMP  iS  NOT  GREATER  THAN  H|ST-UPPER-LIM|T 

97690  tHlsT-lND^XJ  THEN  GO  TO  H|sT-ACK)-T  ABLE  . 

97700  IF  tilST-lMDEX  IS  LESS  THAN  HtST*NO-OF-tNTERVALS  THEN  GO  TO 

97710  mist-interval. 

9T720  ADD  A To  HiST-OUT-RANGE-VALUE. 

97730  GO  TO  HiST-NO  ADD. 

97740  HIST-ADU-TAULE. 

97750  ADO  A TO  HIST-TARLE  C HIST-INDCX J* 

97751  HiST-NO-AUO. 

97760  IF  hIST-INPEX  2 IS  LESS  KNl  GO  TO  HiST-OcCURAMCC. 

97600  NOTE  compute  SCALE  VALUE. 

97610  WOVE  HIsT-TARlE  C 1 3 TO  MIST-TEmP. 

97020  MOVE  1 TO  HiS  -INDEX. 

97630  HIST-SCALE. 

97640  ADD  1 TO  MiST-iNDEX. 

97650  IF  mIST-TARLE  CHlST-lNOEXl  IS  GREATER  THAN  HIST-TE^P  TMCH 

97060  MoVu  HIST  TABLE  CHlST-INDEXJ  TO  HisT-TEMP. 

97070  IF  HISI-INDEX  IS  LESS  THAN  hIST-NO-OF-1NTCRVAL5  THEN  GO  TO 

97080  HIST-SCALE. 

97H90  COMPUTE  HIST-  CALt-VALUE  > CMlST-TEMP  < 99)  / lOO. 

9709S  IF  HlST-SCALF-VALUl  IS  LESS  THAN  1 MOVE  1 TO 

9769b  hIST-SCALE-VALUE. 

97900  MOVE  2EmO  TO  i.IST-INDEX. 

97910  HIST-SCALED-VALUE' . 

97920  ADD  I TO  HiST-INDEX. 

97930  compute  H|ST-T ABLE-SC ALEO  tMtST-INOCXJ  > 

97940  HIST-. able  CHIST-INOEXJ  / HlST-5CALE-V*LUE* 

97950  IF  hIST-INDEX  IS  LESS  THAN  MIST-NO-OF-INTERVAl5  THEN  GO  TO 

979b0  HIST-SCALEO-VALUCS. 

98000  NOTL  PREPARE  «/UTPUT  DATA. 

98010  DIVIDE  2 INTO  HIST-INTCRVAL-SIZE. 

98020  MOVE  2EKO  TO  i IST-CUM, 

9A030  MOVE  2EhO  TO  PlST-LINE. 

98040  HIST-PRERARE. 

90050  ADD  1 TO  MIST-LINE. 

900b0  MOVE  HiST-LiNT  TO  HlST-LlNL-RPT. 

9H070  COMPUTE  H|ST-TEMP  > HI ST-UPPER-LIMIT  tHiST-LlNE] 

98000  • HIST-INTERVAL-SUE. 

98090  MOVE  HIST-TEM.  TO  H|ST-M|0-P0INT-RPT • 

98100  COMPUTE  HIST-“’ERCENT  > HtST-TABLE  tHiST-LINtJ  • 100 

98110  / HIST-NO-OF-OBS* 

98120  MOVE  HiST-PERvENT  TO  HIST-PERCENT-RPT « 

98130  ADD  HISI-PERC  NT  TO  HIST-CUM. 


C9A970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C9S970 

C98970 

C98970 

C9S970 

C98970 

C96970 

C96970 

C9A970 

C96970 

C9A970 

C96970 

C98970 

C98970 

C98970 

C9897ft 

C98970 

C98970 

C9ft97n 

C98970 

C9A970 

C98970 

C9A970 

C98970 

C98970 

C98970 

C98970 

C96970 

C98970 

098970 

096970 

C98970 

€98970 

€96970 

C98970 

€98970 

096970 

€96970 

€96970 

€96970 

C9A970 

€98970 

€98970 

€96970 

€98970 

€98970 

€96970 

€96970 

€96970 

€98970 

€98970 

€98970 

€98970 

€96970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€96970 

€96970 

€96970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 


yaioo  MOVL  HliT-CUM  10  lUbT-CUM'^PT. 

ynibO  MOVl  HlST-T*nLE  tHIST-LINCI  TO  HIST-FI«eO>IW>T> 

yaibu  MOVE  iEHO  to  i.ist-inoex. 

98170  IF  HIST-OIST  TS  NOT  EOUAL  TO  lOl  60  TO  HIST-CUM-i. 

98180  COUpUTE  HIST-INOEX-2  > HIST>TABLE-SC*LEO  CHIST1.INC]  < 0.6. 

98190  IF  HIST-INOEX-2  IS  EQUAL  TO  EERO  60  TO  HIST-RREP-SFACE. 

98E00  HIST-PPLP-OISI. 

98210  AOn  I TO  MIST- INDEX. 

98220  MOVE  TO  HIST-POINT  EHIST-INOEX]. 

98230  IF  Hisr-INOEX  IS  LESS  THAN  HIST-INOEX-2  60  TO  HIsT-PREp-OIST. 

98290  IF  HiST-lNOEX  IS  EQUAL  TO  100  THEN  60  TO  HIST-WRITE. 

982S0  HIST-PREP-SPACE. 

98260  AOO  1 10  HIST-INOLX. 

98270  MOVE  SPACE  TO  HIST-POINI  [HIST-^INOEX  ].  ” 

9820U  IF  HIST-INDLX  IS  LESS  THAN  100  THEN  CO  TO  HIST*PREP-SPACE. 

98290  oO  |P  HISr-WKITE. 

9UOOO  HISI-ClJM-1. 

98JI0  ADD  I TO  HIST-  INDEX. 

98020  MOVE  SPACE  TO  HIST-POINT  CHIST-INOEX 1. 

98J30  IF  HIST-INPEX  IS  LESS  THAN  100  THEN  60  TO  H1ST*CUN-1 . 

98038  COMPUIE  HIST-19UEX  > HIST-CUM  < 0.5. 

98339  IF  HIST-IhOLX  IS  EQUAL  TO  EERO  CO 'TO  HIST-HRITE. 

98390  MOVE  TO  HIST-POINT  I HIST-INOEX 1. 

9890U  HIST-MRITE. 

98910  »RlrE  HIST-REC  from  HIST-LINE-OUT. 

98912  AOD  I TO  HIST-LINE-CNT. 

98919  IF  hIST-PagC-FlAG  IS  EQUAL  TO  EERO  CO  TO  HIST-NO-PAOINO. 

98915  IF  hIST-LINE-CVI  IS  EQUAL  TO  HIST-PACE-FLAO 

98916  THLN  perform  HIST-PRINT-TITLE. 

98917  HIST-NO-PAOING. 

98920  IF  hIST-LINE  Is  LESS  THAN  HIST-NO-OF-INTE'RVALS  THEN  60  TO 

98930  HIST-PREPARE. 

98990  WHITE  HIST-HEC  FROM  HIST-OOT-EINE. 

989S0  move  HIST-SCALE-VALUE  TO  HIST-SCALE-RPT. 

98960  write  HIST-REC  FROM  HIST-SCALE-LINE. 

98970  IF  HISr-OuT-RAVbE-VALUE  IS  EOUAL  TO  EERO  60  TO  HIST-WRITE-B. 

98980  MOVE  HIST-OUT-RANGE-VALUE  TO  HIST-OUT-RANQC-RPT. 

98990  wRITF  HIST-REC  FROM  HIST-OUT-RANCE-REC. 

98S00  HliT-wRITE-J. 

98S10  WRIIE  HIST-HEC  FROM  HIST-OOT-LINE. 

98S20  GO  TO  EhO-HIST. 

99000  HIsT-ERKOH-1. 

99U10  wHIIF  HIST-REC  from  hist-title. 

99020  MOVE  HlaT-ERR-T  TO  HIST-TlTLF-1. 

99U30  move  mIsT-NO-OF-OUS  TO  HIST-ERR-2. 

99090  WRITE  HIST-HEC  FROM  HIST-TITtE. 

99US0  move  si:  to  HI'.I-FLAG. 

9OU60  GO  TO  EhO-HIST. 

99100  MIsT-ERHOH-2. 

90110  move  hIST-EHR— » TO  hist-title-1. 

90120  move  ltIST-ERR-3  TO  HlST-TlTLE-2. 

99130  WRITE  HIST-REC  FROM  HlsI-TITLE. 

90190  MOvL  SI:  TO  hist-flag. 

99150  GO  10  El, 0-HIST. 

99200  HIsT-ERM-3. 

99210  MOVL  SIS  TO  H1S1-FLA6. 

99990  ENll-HlST.  tXlT. 

/•  MLACE  COIIOL  SOUR  IE  BEFORE 

//LHG.IFCIN  00  W.SPFIOtCTL.tlll]] 

TFG  DT03  11  0202080 


C98970 
C9e9T0 
096970 
C969T0 
C969T0 
096970 
C96970 
C989T0 
C98970 
C96970 
C98970 
C96970 
C96970 
C96970 
C969T0 
C 96970 
096970 
C969T0 
C969T0 
C969T0 
C989T0 
C969T0 
C96970 
696970 
C969T0 
C969T0 
C969T0 
C96970 
C98970 
C969T0 
C 96970 
C 96970 
C989T0 
C 96970 
C96970 
C96970 
C969T0 
C96970 
C96970 
C96970 
C96970 
C96970 
C 98970 
C9S9T0 
C96970 
C98970 
C96970 
C96970 
C9S970 
096970 
696970 
690970 
690970 
696970 
C90970 
690970 
090970 

1990  COS 


10 

*ENO 

/• 


PLACF  TFG  DATA  PEFORE  THIS  CARO 


//IPR.TU12  OU  olSP>EOLO<FEePl.VOL>SER>*Fl,UNIT>T*Fl 
//IPR.TU2S  OU  OISP>.OLO.FEEPl.VOL>SeR>*Fe.UNIT>T*F6 
//TPR.TPHIN  nu  •.SPAIESETRK.Cl.l]} 

T/P  TU12  IOIUO2O202O 
TU2S  11OOI30ROU0 


T/P 

/• 


PLACE  T/P  CONTRC.  CAROS  BEFORE  THIS  CARO 


Tit 

725 


1 


6.10  PROGRAMS  FOR  EFFECT  OF  TIME  AFTER  INSPECTION 
6.10.1  MEASURE  OBSERVATIONS  AT  AIRCRAFT  LEVEL 


//C9it9  7x  jue  01.:  6.  mans.  iiPRTr>os  xsAoa 

//CtoqTX  EXEC  PV6.!TLtTlHE>l.ACCT>01&S2S00T  PUT  PROMAM  IN  LIBRARY 

//CHG.  INPUT  DO  •t&PACEHCYL.Cl.tl) 

OOUOO  COMjlNE  COPPILE  B.  RANO, 

01U90  OXTL-WRITTEN.  Ob  APR  72. 

blbbO  remarks,  phase  11-  TASK  Iv-  FORTHAN/COBOL  LINKABC. 

01060  MAIN  UMIVER-  POkTHAN. 

01070  INPuT/OUTPUT  - COUOE. 

02000  ENVIRONMENT  DIVISION. 

02010  CUM- lOURArlON  SECTION. 

02020  SOuhCE-COmPoTER.  lUM-160. 

02010  ObJECT-tOMPuTER.  IbM-lbO. 

02100  INPUT-OuTPUI  SECTlUl.. 

02110  7 Ill-COhTkul. 

02120  -..riLCI  oAHn-FlLt  AbSlON  TO  UT-k-FTU4F001 

U.'llU  KL'.lKvK  1 alilhnail  ahea. 

U2140  jLLl( I oFlELl  ASSION  TO  UT-b-FToOFOOl 

u2ibu  hlsoRve  1 Alternate  area. 

021cU  SELlCI  aCU-KP-FILE  ASSIGN  TO  UT-S-FTl IFOO 1 

02170  RlSlRVE  1 ALTERNATE  AREA. 

02160  SELlCI  bG-FlLE  ASSIGN  TO  UT"b-FTolFOol 

02190  rlSlRve  3 Alternate  area. 

02200  SELlCI  liSG-FlLE  ASSION  TO  UT-S-fToIFOOI 

02210  RlSlRve  S ALTERNATE  AREA. 

lOUOO  DATA  OlvlSloN. 
lOUlO  FILL  SElTIOa. 

11100  FU  KCn-KP-RlLE 
11120  RECURUI'.G  mode  is  f 

11110  HLOlK  CONTAINS  2b  RECORUS 

11140  rECuru  contains  au  characters 

lllbO  labll  RlCOPOS  Are  omitteo 
lllbU  data  RELOhOS  are  rcu-kp. 

11200  01  rco-kp  sync. 

11210  02  filler  picture  XISOJ. 

14100  FO  SG-FILE 
14120  RECURuIkG  mode  IS  F 

14110  block  contains  40  RECORUS 

14140  RECoRU  contains  70  CHARACTERS 

141b0  EARlE  records  Are  omitted 
14160  data  records  are  sg-rec. 

14200  01  SG-rEC  sync. 

14210  02  filler  picture  XI70J. 

IblOO  FU  NSG-FIEl 
lbl2u  RECORUIhG  mode  is  f 

IbllO  HEOCK  contains  40  RECORDS 

lbl40  RECURU  CONTAINS  70  CHARACTERS 

IblbO  EABlE  t'SCORDS  ARE  OMITTEO 

lbl6U  DATA  r.  OROS  ARE  NSG-REC. 

lb20U  01  NSG-REC  SYNC. 

Ib2lu  02  filler  picture  XI70). 

16100  FU  CARU-FIlE 
16120  RECORuli.G  mode  IS  F 

16110  bEOCK  CONTAINS  10  RECORUS 

16140  RtroRu  CONTAINS  ao  characters 

IblSU  LAPlL  RlCuRUS  are  OMITTED 

IblbO  DATA  NLCOHDS  ARE  CARO-REC. 

16200  01  CARo-hlc  sync. 

16210  02  filler  picture  xiao). 

17100  FU  bllLEl 
17120  RECuRUlliG  muUE  IS  F 

17110  BLOCK  CONTAINS  70  RECORDS 

17140  RECORU  CONTAIAS  40  CHARACTERS 

17150  eapee  records  are  omitted 
17160  DATA  records  ARE  OFILEI-REC. 

17200  01  0FiECi-i<Ec  syk:. 

17210  02  FILLER  PICTURE  X[4bl. 

lOOOO  kORKING-STOrAgE  SfCriON. 

10110  01  NlNL-40  SYNC. 

10140  02  FILLER  PICIURE  X12S]  VALUE 

10150  ivqqqqqqqvqqqqqqqqqqqqqq’qi. 

10160  02  FILLER  PICTURE  XIlS]  VALUE 

10170  199999499999499*1 • 


CHARACTERS 


CHARACTERS 


characters 


characters 


6-178 


MO  cos 

C98970 

€96970 

C96970 

C9S970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98Q70 

C9bQ70 

C9b««70 

C9b970 

C9A970 

C98970 

C98970 

C98970 

C98970 

C98970 

C9b970 

C9b970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C9b970 

C98970 

€98970 

€98970 

€98970 

€98970 

€96970 

€98970 

€98970 

€98970 

C9897C 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€96970 

€98970 

€98970 

€98970 

€96970 

€98970 

€98970 

€98970 

€98970 

€98970 

€96970 

€98970 

€96970 

€96970 

€98970 

€98970 

€96970 

€96970 

€98970 

€98970 

€98970 

€98970 

€96970 


50^10 

01 

NlNt-an  SYNC, 

30^40 

02  FILLEK 

PICTURE  XC2!>]  VALUE 

; 9999999999999999999999999 1 1 

J0260 

02  FILlEH 

PICTURE  XT  28 1 VALUE 

30270 

. 99q99999999999999999999°9 1 . 

30280 

02  FILcEh 

PICTURE  XC30J  value 

30290 

: 999999999999999999999999999997 1 . 

30310 

01 

HECOPOS-REAO 

PlCT(fPi 

9t71  STNC  value  zero. 

30320 

01 

RECORUS-PASS 

PICTURE 

9Ct]  sync  value  zero. 

30330 

01 

CARu«LN|l 

PICTURE 

9(61  SYNC  VALUE  ZERO. 

3034U 

01 

CARU-CNf2 

PICTURE 

9t7I  SYNC  VALUE  ZERO. 

30350 

01 

CARu-LNr3 

PICTURE 

9C71  SYNC  value  zero. 

30355 

01 

5N-|0f»CNT 

PICTURE 

9C3]  SYNC  value  zero. 

30360 

01 

HCP.KM-CNT 

PICTURE 

S9C61  SYNC  value  zero  computational 

30370 

01 

50P|Il5-CNT 

PICTURE 

S9CSI  SYNC  value  zero  computationaL( 

30380 

01 

LANUIN65-CNT 

PICTURE 

S9CSI  SYNC  value  zero  computational 

30390 

01 

knt 

PICTURE 

S999  SYNC  value  ZERO  COMPUTATIONAL. 

30400 

01 

KOUnT 

PICTURE 

S999  SYNC  VALUE  ZERO  COMPUTATIONAL. 

30410 

01 

socnt 

PICTURE 

S999  SYNC  value  zero  Computational. 

3042U 

01 

NSGCNI 

PICTIWE 

S999  SYNC  value  ZERO  COMPUTATIONAL. 

30500 

01 

PICTURE 

9(61  SYNC  value  zero. 

30510 

01 

NSC-Ci*T 

PICTURE 

9C6]  sync  value  zero. 

30520 

01 

SG-hCNT 

PICTURE 

9Ct]  sync  value  zero. 

30530 

01 

NSG-RCNT 

PICTURE 

9C71  sync  value  zero. 

30540 

01 

hl-o»CMr 

PICTURE 

9C61  sync  value  zero. 

30350 

ni 

h2*o-L9f 

PICTURE 

9Ct]  sync  value  zero. 

30560 

01 

PICTURE 

9C71  SYNC  value  zero. 

30b00 

01 

LFLaG 

PICTlME 

X SYNC  VALUE  TOT. 

,30bl0 

01 

CAPu-LOJ -SW 

PICTURE 

X SYNC  value  :o:. 

30700 

01 

NSG-lU 

PICTimE 

S9CbI  SYNC  value  <12  computational. 

30710 

01 

SGCUF 

PICTURE 

X value  :oi. 

30720 

01 

NSGtOF 

PICTURE 

X value  :o:. 

33000 

01 

TFS1-A  5YI4C, 

33UI0 

02  SM-A 

PICTURE  XtAl  value  space. 

33U20 

02  Wk-A 

picture  XtJl  VALUE  space. 

33100 

01 

fESf-U  jYNC* 

33110 

02  Sn*U 

PICTURE  Xt8]  VALUE  SPACE. 

33120 

02  4K-U 

PICTURE  XC3J  VALUE  SPACE. 

39000 

01 

CAPU-OAIA  SYNt* 

39010 

02  Tt5l-123 

PICTURE  XX. 

39020 

02  CATAl-l 

PICTURE  Xt8J. 

39U30 

02  FlLtEH 

PICTIPRE  XX. 

39040 

02  OArA2-I 

PICTURE  Xt8l. 

39050 

U2  AbLANK-1 

PICTURE  Xt9J. 

39060 

02  filler 

PICTURE  X(6J. 

34U70 

02  I65oCl*2 

picture  S9(JJ. 

39U80 

02  AHSoC2«2 

PICTURE  X. 

39040 

02  AbSgC3-2 

PICTURE  X. 

39100 

02  AUS0C4-2 

PICTURE  X. 

39110 

02  filler 

PICTURE  X[i|J. 

39120 

02  Al-j 

PICTURE  X. 

39130 

02  Ai-j 

PICTURE  X. 

39140 

02  A3-3 

PICTURE  X. 

39150 

02  A4*-i 

PICTURE  X. 

39160 

02  Ab-3 

PICTURE  X. 

39170 

02  Ao-3 

PICTURE  X. 

39180 

02  A7-3 

PICTURE  X. 

39190 

02  A6-3 

PICTURE  X. 

39<'O0 

02  A9-3 

PICTURE  X. 

39210 

02  FILcER 

PICTURE  XI3IJ, 

40000 

01 

S6*l*S0»t<rC  SYNC 

• 

40010 

02  SLRltS 

PICTURE  XI8J. 

40020 

02  SN 

PICTURE  XCAJ. 

40O30 

02  NK 

PICTURE  XI  3 J. 

40040 

02  WUC12 

PICTURE  XI2J. 

40U5U 

02  WUC3 

PICTURE  X. 

40060 

02  4UC4 

PICTURE  X. 

40070 

02  XUCd 

PICTURE  X. 

90080 

02  WUC 

PICTURE  X. 

40090 

02  MRl 

PICTURE  XI  3J. 

40100 

02  uNirs 

PICTURE  XI 3J. 

40110 

02  LAUOR 

PICTURE  XI A!. 

40120 

02  AIL 

PICTURE  X13J. 

40130 

02  NOMR 

PICTURE  XIMJ. 

40140 

02  NORS 

PICTURE  XIAJ. 

40150 

02  U-AfC 

PICTURE  X13J. 

40160 

02  filler 

PICTURE  X(2J. 

40170 

02  TYPt-'l 

PICTURE  XI IJ. 

40160 

02  FM 

PICTURE  XIHJ. 

<*0190 

02  SFH 

PICTURE  XI6J. 

40200 

02  S50hT 

PICTURE  XtSJ. 

40210 

02  SLA<40 

PICTURE  XI5J. 

40220 

02  filler 

PICTURE  XttJ. 
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HOnOO 

01 

SN-' 

rOT»L  SYNC. 

HOblO 

02 

CAH-CONIHYL 

PICTURE 

X VALUE 

SPACE, 

60620 

02 

FM-IOT 

PICTURE 

60630 

02 

FJLLtH 

PICTURE 

X VALUE 

SPACE, 

60O60 

02 

SOHIItS-TJT 

PICTURE 

ZEZZ9. 

60650 

02 

FILLEh 

PICTIWE 

X VALUE 

SPACE, 

60b60 

02 

LANuINGS-TOT 

PICTURE 

ZZZZ9. 

6067U 

02 

fillEh 

PICTURE 

X VALUE 

SPACE. 

6 0660 

02 

TTFt-l-TC  I 

PICTURE 

ZZZZZ9. 

60690 

02 

filler 

PICTURE 

X VALUE 

SPACE, 

60700 

02 

TYMt-3-TOT 

PICTURE 

ZZZZZZ9. 

60710 

02 

filler 

PICTURE 

X VALUE 

SPACE. 

60720 

02 

YYRl-R-YCT 

PICTURE 

ZZZZZZ9. 

60  730 

02 

filler 

PICTURE 

X VALUE 

SPACE, 

60760 

02 

sn-iot 

PICTURE 

XfSJ. 

60750 

02 

filler 

PICTURE 

X VALUE 

SPACE, 

60  760 

02 

Sg-IOt 

PICTURE 

ZZZZZ9. 

60770 

02 

fillfh 

PICTURE 

X value 

SPACE, 

60760 

02 

NSO-TOY 

PICTURE 

ZZZZZ9. 

60790 

02 

RtC-KP-TCr 

PICTURE 

XCISJ  VALUE 

space. 

60B00 

01 

ROD< 

-yotals  sy'ic, 

60810 

02 

filler 

PICTURE 

X VALUE 

SPACE, 

60820 

02 

rlcorus-i.'Jpuy 

PICTURE 

ZZZZZZ9. 

60830 

02 

filler 

PICTURE 

X value 

Space. 

60860 

02 

ObStRVE-PUl 

PICTURE 

ZZZZZZ9. 

60865 

U2 

f ILLEh 

PICTURE 

XCSI  VALUE 

SPACE, 

60865 

02 

So-oTOT 

PICTURE 

ZZZZZZ9. 

60870 

02 

FILLER 

PICTURE 

X VALUE 

SPACE 

60875 

02 

NbO-GTOY 

PICTURE 

ZZZZZZ9. 

60860 

02 

filler 

PICTURE 

X VALUE 

SPACE 

6089U 

02 

PI-L-TOT 

PICTURE 

ZZZZZZ9. 

60900 

02 

filler 

PICTURE 

X VALUE 

Space 

40910 

02 

Ri-G-TOT 

PICTURE 

ZZZZZZ9. 

60920 

02 

filler 

PICTliRE 

X VALUE 

SPACE 

6093U 

02 

RJ-O-TOI 

PICTURE 

ZZZZZZ9. 

609HU 

02 

filler 

PICTURE 

XC  ZO 1 VALUE 

space 

60960 

01 

HOP 

-KP-liLNK  'YNC, 

60900 

02 

filler 

PICTURE 

Xt  «0 1 VALUE 

SPACE 

61U0U 

01 

HCO 

-ki'-caro  sync. 

6IU10 

02 

filler 

PICTURE 

XCa0  3 VALUE 

space 

61600 

01 

HOP 

-KP-IAPE  FTNC, 

61610 

02 

filler 

PICTURE 

Xieoj  VALUE 

SPACE 

62O00 

01 

O-RlC  SiNC. 

62U1U 

02 

FILLER 

PICTURE  XX 

VALUE  SPACE. 

62020 

02 

SN-U 

PICTURe 

62U3U 

02 

IlI*0 

PICTUHe  VC6J* 

62035 

02 

Filler 

piOTwe  v 

value  space. 

62U60 

02 

OO-I 

PICTURE  Xt6J. 

62U65 

02 

filler 

PICTURE  X 

value  space. 

62050 

02 

Ou-2 

PIOTURC  XC6)* 

62055 

02 

FILLER 

PICTURE  X 

VALUE  SPACE. 

62060 

02 

Ob-J 

PICTURE  XteJ. 

62065 

02 

filler 

PICTURE  XX 

value  space. 

62070 

02 

rll'-rk-o 

PICTURE  X 

vALue  :ai. 

» 

66000 

LINK AGP  StCllON, 

68U10 

77 

INTYP 

PICTURE 

SRIUJ 

COMPUTATIONAL 

SYNC. 

66U20 

77 

lEOl-I 

PICTl.RE 

SVI61 

COMPUTATIONAL 

SYNC. 

68070 

77 

ISN 

PICTI  RE 

SVtOJ 

COMPUTATIONAL 

SYNC. 

66060 

77 

IHX 

PICT"RE 

SVCbl 

COMPUTATIONAL 

SYNC. 

66UQ0 

77 

IMULI2 

PICTURE 

SVC  6 3 

COMPUTATIONAL 

SYNC. 

68100 

77 

XHUC3 

PICTURE 

XI « 3. 

68110 

77 

XHUC6 

PICTI  Rt 

XC*3. 

66120 

77 

XWUL5 

PICTURE 

XC<t3. 

68130 

77 

XWOL 

PICIURE 

XC«3. 

68160 

77 

XHMC 

PICTI  RE 

XI « 3. 

68150 

77 

IUN1T5 

PICTI  HE 

SVC  6 3 

COMPUTATIONAL 

SYNC. 

66160 

77 

ILA80H 

PICIURE 

SVC  6 3 

COMPUTATIONAL 

SYNC, 

66170 

77 

IAIL 

PICTURE 

S9(  b3 

COMPUTATIONAL 

SYNC. 

66180 

77 

INOhM 

PICTI  RE 

S9Ib3 

COMPUTATIONAL 

SYNC, 

68190 

77 

inohs 

PICIURE 

S9I6  3 

COMPUTATIONAL 

SYNC. 

66200 

77 

ITYPt 

PICTURE 

S9C6  3 

computational 

SYNC, 

68220 

77 

ISPH 

PICTI  RE 

S9I63 

COMPUTATIONAL 

SYNC. 

68230 

77 

ISSOPT 

PICIl'RE 

SVC  9 3 

COMPUTATIONAL 

SYNC, 

68260 

77 

ISLAND 

PICTURE 

SVC  6 3 

computational 

SYNC. 

69000 

77 

INI 

PICTURE 

svr63 

COMPUTATIONAL 

SYNC. 

69UI0 

77 

ITl 

PICTI  RE 

SVI63 

COMPUTATIONAL 

SYNC, 

69020 

77 

tOATAl 

PICTl-RE 

svr8  3 

COMPUTATIONAL 

SYNC. 

69030 

77 

I0ATA2 

PICTURE 

SVC  8 3 

COMPUTATIONAL 

SYNC, 

69060 

77 

ablank 

PICTURE 

XI<t3. 

60220 

77 

lOSOCl 

PICTI  RE 

SVC  63 

computational 

STNC. 

69230 

77 

ABSifC2 

PICTI-RE 

XCV3. 

69260 

77 

ABSOC3 

PICTURE 

XC93. 

69250 

77 

ABSOC6 

PICTURE 

XI<l3. 

69300 

77 

lAI 

"ICTURE  Xt*J, 

69310 

77 

IA2 

PICTURE  X[«l. 
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49320 

77 

1*3 

HICTUHC 

XI  4 I. 

49330 

77 

1*4 

r>iciim£ 

XC4]. 

49340 

77 

l*b 

'i€Tunr 

XI  4 I. 

493b0 

77 

1*6 

n 1C  Tune 

Xt4]. 

49360 

77 

1*7 

PICIUHC 

XC4]. 

49370 

77 

1*6 

. ICTUrtC 

XC4]. 

49360 

77 

1*9 

ICTOrtC 

XC41. 

4940U 

77 

ISNO 

9IC1UAC 

S9CS] 

COMPUTATIONAL 

SYNC* 

4941U 

77 

IDO 

hICTUMC 

S9Cb] 

computational 

STNCb 

49420 

77 

loni 

'ICIUMC 

S9Cbl 

COMPUTATIONAL 

SYNC* 

49H3U 

77 

1062 

*»1CTUH€ 

S9Cbl 

COMPUTATIONAL 

SYNC* 

49**40 

77 

101^3 

PICILMC 

S9tb] 

COMPUTATIONAL 

SYNC* 

bOUOO  PKOLtDimi  OiVISIJN. 
aouio  CAHUI. 

bOU12  E.MTKT  tCRCAOi:  USING  INI.  ITI.  lOATAl.  IO*T*t.  ABLANK. 

S0U2U  IF  CFLAG  CUUAL  !i:  GO  TO  RCAO-1. 

bOUiO  OPEN  OUTPUT  'CO-KP-FILE  OFILEl. 

bOUTb  OPEN  INPUT  -g-file  NSG-FILE  CARO-FILE. 

bou40  povE  :i:  To  fflag. 

blUOO  REAU-I. 

blUlU  PLRFOhM  read  A-LAMO  thru  CANO'EXIT. 

blU20  IF  CAHU-LOF-SR  EOUAL  !i:  GO  TO  REAO-I-EXIT. 

blOiO  AOD  1 TO  CARU-CNTl. 

bllOU  MOVL-LiNKl. 


bll20 

MOVL 

UAIAZ-I 

TO 

10*T*2b 

bll30 

HOVt 

aiilank-i 

TO 

abl*nk. 

51160 

Rt*U-l-tYlT. 

bl  16b 

MOVL 

UAlAl-l 

TO 

10*T*1. 

bll90  GOPACK. 

b2UP0  CAHU2. 

b2uio  entky  :cREt02:  using  ini.  iti.  lesoci.  ausoCz.  absbcs* 

b2U20  AOS0C4. 

b2u^0  PERFORM  RLAO-A.LARO  THRU  CARO-EXIT. 

b2IIUU  IF  CAHU-EOF-SR  EOUAL  IK  GO  TO  REA0-2-EXIT. 

b2UbO  APn  1 lo  C»R)-CnT2. 

b210U  M0vt-LINA2. 


b2110 

MOVt 

IMiGCl-2 

TO 

lOSOCl* 

b2120 

MOVt 

AHbGC2-2 

TO 

AH$6C2« 

52130 

MOVt 

AUbOC  J-’ 

TO 

A»S0C3* 

92140 

MOVt 

ARbGC4-'> 

TO 

ABS0C4, 

b21«0  RLAU-2-LX1T. 
b21<»0  GOPACK. 

bSuOO  CArU^. 

b^UlO  LNThT  iCRLAOSi  USING  INI.  ITI*  lAl.  lAt.  |a3.  IAR.  IAS. 

b^uZO  IA6f  IATf  IAS.  IA9. 

bJuJO  PERFORM  REAr-A-CARO  THRU  CARO-EXIT. 

bJU40  IF  CARU-EOF-SR  EOUAL  III  00  TO  REAO-J-EXIT. 


b3ub0 

53100 

ADC*  1 Tv  CAHO** 
MOVt-tlNK3B 

CNT3. 

53110 

MOVt 

*1-3 

TO 

1*1. 

93120 

MOVL 

*2-3 

TO 

1*2. 

53130 

MOVt 

*3-i 

TO 

IA3b 

53140 

MOVL 

A4«« 

TO 

1*4. 

53150 

MOVL 

*5-3 

TO 

1*5. 

53160 

MOVL 

*6-3 

TO 

1*6. 

53170 

MOVL 

*7-3 

TO 

1*7. 

9 WHO 

MOVt 

*8-3 

TO 

1*6. 

53190 

53280 

93290 

MOVt 

RLAO-3-LX1T. 

OOHaCK* 

*9-3 

TO 

1*9. 

bSUOO  TAPES-IN. 

bbUZO  ENTRY  ICOPROII  USING  INTTP.  lEOFl. 

bbu22  IbN.  IRK.  IMUCI2.  XRUC3.  XWUCR.  XWUCS.  XBOC.  XMNC. 

bbU24  lUNlTS.  IEAUOH.  iaie.  inorm.  inors.  itypc.  isfh. 

bbOZb  ISSORT.  ISLANU, 

bbU4U  IF  INTiP  EOUAL  NSG-IO  GO  TO  REAO-NSO-1. 

bbObO  PERFORM  REAO-SG  THRU  REAO-SG-EXIT. 

bbUbO  IF  IeOFI  EGJAL  I GO  TO  TAPE-EXIT-SO. 

bbUTO  ADD  1 TO  SG-'NT. 


55100 

MOVL-LII.A 

-SO. 

55110 

MOVt 

bN 

10 

ISN, 

55120 

MOVt 

TO 

IWK. 

55130 

MOVL 

«Ucl2 

TO 

IWUCI2 

55140 

MOVL 

»UC3 

TO 

xiruc3. 

55150 

MOVt 

iiUc4 

TO 

x«r(>C4, 

55160 

MOVt 

iiUtb 

TO 

XlfUC5. 

55170 

MOVt 

nUt 

TO 

XtfOC, 

55180 

MOVt 

HMt 

TO 

XHMC, 

5S190 

MOVL 

UNIT5 

TO 

lUNITS 

55200 

MOVt 

lahom 

TO 

ItABOR 

55210 

MOVt 

Alt 

TO 

lAIt. 

55220 

MOVt 

NO»<H 

ro 

I NORM, 

55230 

MOVL 

NOhS 

TO 

INORS. 

55240 

MOVt 

lYME-N 

TO 

ITYPC, 

55250 

MOVt 

bFH 

TO 

Ib£H. 

5*«260 

MOVt 

bSvRT 

TO 

ISSORT 

55270 

MOVt 

SLANU 

TO 

ISLANU 

6-181 
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TAPt-EXlT-50. 

GOBACK. 

KLAO-NSb-1. 

perfokm  reap-nsg  thru  reao.ns««Cxit. 

IF  ILOFl  EQUAL  2 GO  TO  TARE-CXlT-MSG. 
ADD  I TO  NSC-CNT, 


MOVL  10R2  TO  On-2. 

MOVE  tOBj  TO  Ob-3. 

XRITf  OfIwEI-HEC  From  0-REC, 

ADD  1 TO  REFORDb-PASS. 

GORACK. 

REAO-A-cArD. 

REAU  CAi<D-f;lE  INTO  CARD-DATA 
At  end  GO  TO  CARD-EOF. 

IF  TLST-123  equal  IPQ:  GO  TO  CARD-COF, 
NOTE  OEBLG  write  CARD  IMAOEX  XX  XX, 

HOVE  card-dta  to  rcd-kp-caro. 

WRITE  rcd-kp  from  rcd-kp-card, 
add  1 TO  rcd-kp-cnt, 

GO  TO  card-,  kit. 

CARO-EOF. 

close  card-file  with  lock, 

MOVE  :i!  TO  CARU-EOF-SW, 

card-exit,  exit. 

REAU-SG. 

REAU  5G-FILt  into  SG-NSG-REC 
at  LND  GO  TO  SG-EOF. 

IF  TTPE-N  equal  ;9;  GO  TO  5O-E0F. 

CO  TO  READ-SG-EXIT. 
sg-eof. 

CLOSt  SG-FILE  WITH  LOCK. 

MOVE  I 10  IIOFI  SGEOF. 

READ-DG-EXIT.  EXIT. 

REAU-NSg. 

RFAU  NSO-FI  E INTO  SO-HSG-REC 

AT  END  00  TO  NSG-COX, 


C98970 

C98970 

C989T0 

C98970 

C98970 

C98970 


bSbOO 

MOVL-LlNK*r4b6o 

C96970 

55610 

MOVL  5N 

TO 

ISN. 

C96970 

55620 

MOVb  HK 

TO 

IWK. 

C96970 

55630 

MOVL  HUL12 

TO 

IWUC12. 

C969T0 

556<«0 

HOVL  «UC3 

TO 

XWUC3. 

C96970 

55650 

MOVL  HUC4 

TO 

XWUC4. 

C96970 

5566U 

MOVL  nUC5 

TO 

XWUCS. 

C98970 

55670  “ 

MOVL 

TO 

XWDC. 

C98970 

55680 

MOVL  HMC 

TO 

xhmc  . 

C989T0 

55690 

MOVL  UNITS 

TO 

lUNITS. 

C989T0 

55/00 

MOVL  LAuOK 

TO 

ilabor. 

C98970 

55705 

IF  TYPL-N  UAL 

:<•:  GO  TO 

BY-PASS-TTPC-O, 

C96970 

55T1U 

HOVL  AIL 

TO 

lAIE. 

C98970 

55720 

MOVL  NOHM 

TO 

INORM. 

C98970 

55730 

MOVL  NOhS 

TO 

INORS. 

C989T0 

55735 

BY-PASS-TYPL-48 

C96970 

5574U 

MOVL  TYPEoN 

TO 

ITYPE. 

C98970 

55750 

MOVL  5FH 

TO 

ISFH. 

C9B970 

5576U 

MOVL  5S0RT 

TO 

ISSORT. 

C9B9T0 

55770 

MOVL  5LAN0 

TO 

island. 

C9B9T0 

55900 

TAPE-EXIT-NSG. 

C989T0 

55910 

GOBACK. 

C98970 

57U00 

TAPL-01. 

C9B970 

57010 

ENTRY  : COBOUT i 

! using 

ISnO,  IDO,  lOBl,  10.2,  10B3, 

C98970 

57040 

MOVE  ISNC 

TO  SN-0. 

C98970 

57U50 

MOVE  IDO 

TO  ID-O. 

C9B970 

57060 

MOVE  IOB< 

TO  Ob-1. 

C9B970 

C 98970 
C98970 
C98970 
C98970 
€98970 
C9B970 
C98970 
C98970 
C90970 
C90970 
C98970 
C90970 
C989T0 
C9B970 
C98970 
C 98970 
C909T0 
C9B9T0 
C98970 
C989T0 
C98970 
C98970 
C989T0 
C98970 
C98970 
C989T0 
C909TO 
C989T0 
C989Tn 
C909T0 


59530 

IF  TYPl-N  equal 

IGI  GO  TO  NSB-tOP. 

C989T0 

59590 

GO  TO  RLAU-.ISG- 

LXIT 

• 

C9B970 

59600 

NSG-tOF. 

C9B9T0 

59610 

CLOSE  N5G.FILE 

WITH  LOCK. 

C9B9T0 

59620 

MOVE  2 TO  IeOFI 

NSGLOF  . 

C989T0 

59630 

READ-NSG-EXIT, 

EXIT* 

C989T0 

61U00 

Block-check, 

C98970 

61UI0 

ENTRY  ICLOSEF 

: 

USING  ITI. 

C9B970 

61100 

EOJ-RCD-KEEPING. 

C989T0 

61110 

MOVE  SG-CN 

TO 

S6-GT0T. 

C989T0 

6I12U 

MOVE  NSg-CN* 

TO 

NSG-GTOT, 

C98970 

6113U 

MOVE  CArD-CNTI 

TO 

ri-g-tot. 

C9B970 

61140 

MOVE  CARD-Ci.T2 

TO 

R2-O-T0T. 

C9B970 

61150 

MOVE  CArD-C'  T3 

TO 

R3-G-TOT. 

C9B970 

COMPUTE  RECORDS-READ  > CARD-CNfl  < CARD-CNTI  < CAKD-CNT),  C989T0 
MOVE  RECORDg-RCAD  TO  MECORDS-InPUT.  C989T0 
HOVE  record  i-PASS  TO  OBSERVE^T,  C98970 
write  RCD-K"  from  RCD-TOTALs.  C989T0 
ADD  1 TO  RCD-KP-CNT.  'C98970 
COMPUTE  KOUI.T  > RECORDS-fAft  - CEUCCOmO  Pa«  ! T*l  • TOl.  C989T0 


6-ia2 


02UMO 

b2UbO 

62060 

b2U70 

62100 

62115 

62130 

621M0 

62150 

62160 

6MU00 

6'«U02 

6<«a04 

64006 

64008 

64010 

64020 

64030 

64110 

64120 

64125 

64130 

64140 

64160 


LOOH3* 

WKlie  OFlLE^-REC  FROM  NlNe«40» 

AOO  1 TO  KOUNT. 

IF  kOUNT  is  less  than  70  60  TO  L00^9. 

BLOCK-CHELK-2. 

COMPUTE  KNT  > RCn«KP*CNT  • CCRCt^KP^CNT  / 29)  6 fS), 
LOUP4. 

white  Hv.O-Kf  FROM  NlNE«60» 

AOn  1 TO  KNT. 

IF  KNT  IS  LESS  THAN  2b  GO  TO  L00P4» 

CLOSE-FILLS. 

IF  sofcoF  fcual  :i:  go  to  test-nsgeof. 

CLOSE  S^-FllE  WITH  LOCK. 

TtST-f4S6F0F. 

IF  nsglOF  equal  :o: 

CLOSE  NSG«F1LE  WITH  LOCK. 
close  OFILEI  WITH  LOCK. 

close  PC0-KP«F1LE  WITH  LOCK. 


DISPLAY 

DISPLAY 

DISPLAY 

display 

DISPLAY 

GORACK. 


catds  in 

OesERVOUT 
SO  IN 
NS^  IN 
ECJ  C9897 


records-reaq  upon  console, 
records-pass  upon  console. 


so-cnt 

nsg-cnt 

UPON  CONSOLE* 


UPON  console. 
UPON  console* 


S7000236 

57000237 

57000243 

57o0u24^ 

S7002645 

500007/6 

SA000401 

S900U002 

56000003 

590O0OOS 

SQOUOOOe 

5900O01O 

5^000012 

S9000015 

5900u01h 

5Q000019 

59000026 

59000030 

5900UOS4 

59000057 

59000054 

59000059 

59000104 

59000105 

59000108 

59000110 

59000119 

S9000141 

59000143 

S9000144 


59000164 

J 


C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C98970 

C96970 

C9ft970 

C96970 

C9ft970 

C96970 

C96970 

C96970 

C9ft970 

C96970 

C9ft970 

C9a970 


/• 

//CH6.SYS1N  00  DATA*LPACE>CTRKfClil ]) 

NAME  Cd777tRJ 

/• 

//I<i09/U  JOB  OlilG.  lANO  1 •PRTY>02»TYPRUN>HOLO  XI3I0 

//C9097U  EXEC  C960IN* ' lME>02i ACCT>D35323007  STAND  AlOnC  TFO 
//LH6.TUI5  DU  USN>«P*9e974lSiDlSP>C »PASSJ»SPACE>CCYL»C009»00i3T 

//CHG.rFOlN  OU  ••SPAC£>CCrLiCl»l)) 

TF6  TUlS  11  0102063 

100  SOO 

S7000231  S< 

3 
3 


STIMC 
STN-CTN 
SGNI 
SGPT 
HPH 
MAI 
PERI 
ISO  A/C 
ISO  A/C 
ISO  A/C 
ISO  A/C 
ISO  A/C 
ISO  A/C 
ISO  A/C 
ISO  A/C 
ISO  A/C 
ISO  A/C 
ISO  A/C 
ISO  A/C 
ISO  A/C 
ISO  A/C 
ISO  A/C 
ISO  A/C 
ISO  A/C 
ISO  A/C 
ISO  A/C 
ISO  A/C 
ISO  A/C 
ISO  A/C 
ISO  A/C 
ISO  A/C 
ISO  A/C 
ISO  A/C 
ISO  A/C 
ISO  A/C 
ISO  A/C 
ISO  A/C 


5900O145 

3^4 

ISO  «/c 

b90001M7 

3^4 

ISO  A/C 

59004151 

3^4 

ISO  A/C 

59000152 

324 

ISO  A/C 

9900U152 

324 

LAST 

9999999999999999999999^9999999999999999999999999999999999999999^99999  LAST 
•END 


uuouoouooo  uuuooooouooouoouuouu 


//C9897IJ  CXEC  P9b**SG  tPARM*  ASSTH  MAP»LlSt  »8C0 
//  PARM.LKLD>:LlSTiXHLK:»tlPe >06* ACC t >035323007 

//ASSY.SYSIN  00  OAT*  *SPACE>lCYL*Cl»i]3 

FORTRAN-COBOL  LINK  TCST«  JOHN  LINK, 

19  APRIL  1972 

THIS  DRIVER  CALCLLATLS  OBSERVATIONS  FOR  GROUPS  1-6 
THIS  program  GeNIRATL  OBSERVATION  DATA  TAPES  FOR  FUTURE  ANALYSIS 
observation  tape  for  AIRCRAFT  LEVEL 


c 

1960  CDS 


COLUMN  value 

3-10  ZEro 

12  1 

13-14  0' 

0> 

0^ 

0* 

OS 

Oh 

IS  4 


16  i 


lb-23 
32-3/ 

COMMON  Section 

COMMON  AlL«RLANK*nbGC«CHS6l *Cl *CNORM#CSGN>C TYPE  »CHK* OCT* DON* 

1 OfH.Uln  lUlt  H,n.L>Ul<;<PL>0!3>UUMMT>0tlK,ENSGWK>E<;GHK>ETlME>ETN>HMC> 

2 lu<  lr<>  I ( • IMAY.Mf  SG<«IOHb>NSGBC>NSGCFII>IISGCL>NSGCi>>NSGEOF>NSOF> 
i ribOMM)tlbGN<I.SOM<IW)NbGSN<NSGU>NSGKK>llSGHUC>OAlE>OFlLEI  •0UT>PUATA> 

4 PIOATA  •PllSGt>A>FPI  •Pb>PbGCFH,PbGCL>PSGCb>PbGnL>PSGI  >PSGK,PS0L> 

5 PbO»K.PIH.P«A|  EIIME.SGCFH.bGCL.SGCS.SGEOF.SGF.SGPH,SGHR,SGL> 

6 SGM  >SGN0HM>SGP'  •SGbN<<lGU>SGWK.SGWUC>bSN«SS!>«K>bSTlME>SbTNO> 
7i.TlML.STN.ITHE.WUC 

C OIMtNSION  SECTIOI. 

C 

Ul  PENSION  CNOHM(2|  .CWKI  tNSGWUC<<l).Pl>ATA|>)).PlDATA|4)  > 

1 PNKl(JI.SGNI(2).SG«UC(Ut 
UlMLNSlOll  USuC(i«.3l 
C TYPE  specification  SECTION 

C 

INTEGER  AIE.H..ANK.nSGC.COSGI.CIfCNORM>CSCN>CTYPE>CWK>OCT>DDN, 

1 OFH.OICT.UlFH.O'L.OIS.OE.OS.OUMMY.DWK.ENSGWK.CSGMK.ETIME.ETN.HMCf 

2 1 U . 1 N . I I . I W A Y . NNSC . NOHS  > NSGUC . NSGCFH . NSGCL . NSGCS . NSgEOF . NSCF  f 

3 NSGMH.HSGN.NSONCM.NSOSN.NSeU.NSGwK.NSGWCfOAlE.OFILEI.OOT.PDATAf 

4 PIUATA  .PNSOTR  .ppi.ps.psocfh.psgcl.psgcs.psgdl.psgi.psok.psgl. 

5 PSGWK .PTN.PaKI.'ETIME. SGCF H. SGCL . SGCS.SOEOF. SGF. SGFH , S6MR . SOL t 

6 SGNI.SGNOHM.SCPI.SCSN.SGU.SCMK.SGWUC.SSN.SSSWKtSSTIMC.SSTNOr 
7STIME.STN. TYPE.WUC 

C 

C KEAO  IN  cAhO  input  DESCRIPTION  FOR  GROUPS  1-6 
CALL  CINI 
C 

C POSH  ion  THE  SOWGC  file  for  the  first  TIRE  ONLY 
C HEAU  a support  Cl  NEKAL  record  from  the  data  bank  via  COBOL  ON  SOF 
TYPE  = I 
300  call  COPl 

C CHECH  TAIL  NuMHER  AGAINST  99999994  ERROR 
IF  ISGSN  - 99999' 991  30S • lOOUO. SOS 
c CHECH  FNu  OF  File  for  error 
SOS  IF  isGF.OFi  iiinnn.sio.iuoon 
C CHECH  TAIL  NuNUEK  AGAINST  STARTING  TAIL  NUMBER 
310  IF  ISGSN  - SIN)  ,00.320.320 
C HEAU  A NON-SUPPOPT  GENERAL  RECORD  FoR  FIRST  TINE 
320  ITPE  = 2 

call  coei 

C CHECH  tail  NUMUEI  against  99999999  ERROR 
IF  INSGSN  - 99999999)  32S. 10000. 32S 
c CHECH  ENu  OF  File  for  error 
32S  IF  INSGEUFI  1000. .330.10000 
C POSITION  THE  SO  FILE 
330  CALL  SGPUSI 

C FIND  end  OF  INITIAL  INSPECTION 
C find  end  OF  CUKRtNT  INSPECTION 
33S  CALL  FESGI 

C CHECH  FOhBPRlVIOUS  INSPECTION  FLAG 
IP  IPSGI)  340.34C.80b 

c save  heouikeu  data  from  the  so  record 


DESCRIPTION 
AIRCRAFT  LEVEL 

NON  ISO 
ISO 

NORM  HOURS  / PERIODIC 

NORN  HOURS  / HOURLY  POSTFLIOHT 

AIE  / SORTIE 

FH  / WEEH 

SORTIE  / WEEH 

landing  /WEEH  _ 

ORIGINS  -HOURLY  POSTFLIGHT 
ORIGINS  - MA 

ORIGINS  - Periodic 

INOLPLNDINT  VARIAHLE  - WEEH 
INDEPENDENT  VAHIAIILE  - FLIGHT  HOuRS 
INUEPENDENT  VARIAHLE  - SURTiL 
IMOEPENOENT  VARIABLE  - LANDING 

numerator  of  dependent  variable 
denominator  of  dependent  variable 
independent  VARIAHLE 


G-184 


t 


311O  PD*T*(I)  = PbGWK 
H0ATA(2)  = PiGCFh 
HDA|A(3)  : P'jGCS 
HDATA(tt)  : PbGCL 
C bET  UP  NLK  OhIGINS 
00  ttUO  IrliNSt^C 
PhKI  ( I)  = Cl»^(  1 1 
bOO  LONTltlur 

C LHECK  TO  SEE  IF  »<4SPtCTlON  IS  A PERIODIC 
bos  IF  ii.»K(br-piii  An>8io>ai7 

C CHECH  IF  ThEhE  bAS  EVER  A PERIODIC 
blU  IF  (PPI)  A.<S>A^b>a2U 

C bAyt.  last  PEHlOni:  information 
bI7  PPI  - I 

PS  I PbGcS 
PIDA)A(I)  = PSGbK 
P10AIAI2I  = PSGCF  i 
PIUA|A(3I  = PSGCS 
PIUATAUI  = PSGCE 
C CAECOLATE  groups 
b20  call  FENbGI 

C bAS  THERE  A PREVIOUS  INSPECTION 

b25  IF  (PbGIl  N0U>R0U>a3U 
C UO  NORM  UAIA 

b30  call  VARIT2 
900  PSGI  z Cl 

C CHECK  for  change  IN  TAIL  NuMbER 
IF  (PIN  - bGbNi  noa>920>ioau 
920  IF  IPTN  - NSgSNI 1000>93ai 1000 
C CHECK  FOR  END  OF  TIME 

930  IF  (bCTlMC  - SGbK.  iioa>9sa>9Sa 
9bO  IF  (bETIMF  - NSGbTI  II00.33S.335 
i TEbT  tail  number  against  BLOCKING  FLAG 
lUOO  IF  (bGSN  - 999999991  1015.11000.11000 
1U15  IF  (bGEOFI  11000.  020.11000 

IU20  IF  (NbGSN  • 9999S')99I  1025.11000.11000 
IU2b  IF  (NbGEuF)  llOOC.1029. 11000 

c CHECK  for  LAbT  tail  Number 
1027  IF  (NbGSN  - ETMI  1030.1030.11000 
1030  IF  (bGSN  • ErNI  1090. lObO. 11000 
1090  UAr  z 1 
GO  lu  330 
lico  IwAt  : 2 
GO  TO  330 
10000  CON) INUE 

bRlIt  (b.IOOini 
10010  format  (/H  SIOPl  ■ 

GO  10  IIOIO 

11000  continue 

«RITl  (fc.IlOoS) 

1 1005  FORMAT  (7H  SIOPO  ) 

11010  continue 

ITl  I 0 

call  CLObEF  (III) 
call  LUJMSg 
call  ixit 

LNO 

bUUMOUTiNl  CINI 

C THIb  bUPROUTINE  R'.AOb  IN  THE  MODEL  DEFINITION  FOR  GROUP  1 

C ALSO  BASIC  InITIALUATION 

c COMMON  Section 

c 

COMMON  AlE.nLTNK.ebGC.CBbGl.CI.CNORM,CSGN.CTrPE.CWK.DCT.DON> 

1 (IFH.DICT  .UlFH.DlL.OIS.OL.OS.OUMMY.DbK.ENSOWK.ESGWK.ETlME.ETN.HMC. 

2 lU.lN.lT.lbAT.NNjG.NOMS. NSGbC . NSGCFH. NSCCL .NSGCS. NSgE  OF . NSOF . 

3 NSGHR.NbGN.IISGMOM.NbGSN.NSGU.NSGbK.NSGWUC.OAlE.OFiLEl.OUT.PDATA. 

9 PIDATA  .P(nSGWK, PPI. PS. PSGCFH.PSGCL. PSGCS. PSGDL.P5G1.PSGK.PSGL. 

5 PS(.MK.PIN.PAKI,br  TIME.SGCFH.SGCL.SGCS.SGCOF.SGF.SGFH.SGHR.SGL. 

6 SGNl.SGNOMM,S(iP.  .SGbN.SGU.  SGbK,  SGbUC.SSN.SSSbK. bSI  IMF.  SSTNO. 
7STlML.bTN. ITPE.bOC 

c uimlnsion  section 

DIMENSION  CN0RM(2I .CWKISt .NSGWUC««I.P0ATA(9) ,PIDATA(«I . 

1 PbKI(3I.SGNI(2I.SGbUC(9l 
UIMlNSIOn  iiSgC(9.3I 

C ‘ 

c type  specification  section 

integer  AlE.BLANK.RSGC.CBSGI.CI.CMORH.CSeN.CTTPE.CbKtDCT.ODN. 

1 DFh. DICT. UlFH. Die. DIS.DL. OS. dummy. DbK.ENSeWK.CSebK.ETIME.ETN.HMC. 

7 1 D . I N . 1 1 . 1 b A Y . NN ;g . NORS . NSGHC . NSGCFH. NSGCL. NSGCS  t NSGCOF . NSGF  t 

3 NSGHR . NSC-N . NSGNOM . NSGSN . NSGU . NSGbK  . NSGMUC  t OA  IE  . Of  ILE 1 1 OUT . POATA  t 
9 PIUATA  . PNSGbK.PPl.PS. PSGCFH.PSGCL. PSGCS. PSGOL.PSGItPSeKtPSGLt 

5 PbGbK.PTN.PMKi.SJTIHE.SGCFH.SGCL.SOCS.SGCOf.SGFtSGFHtSGHRtSGLt 

6 SGN I . SGNORM . SgP I . SGSN . SGU. SGbK  t SGbUC . SSN. SSSWK t SST IHE . SSTMO t 
7STIML.STN.TTPE.bOC 


1 

1 

J 

\ 


/ 


t 


I 


! 


i 


nnnnnnnnor.  onrrnnonnnnnnnn 


C 

C 


C 


C 

C 

c 


c 


c 


c 


c 

c 


c 

c 


c 


bAbIC  INIT1AL12AT10N  SECTION 
INiTlALUr  FILE  N'JMBLRS 
OFILLI  = I 
IN  r 5 

OUT  = 6 
bGF  s 11 
NSO^  s 12 

initialize  flags 

LAC  Ob  - n 
NSGLOF  = 0 
IwAy  : I 
NNbG  = 2 
NSGtiC  : ^ 

IT  = 1 

CAMU  INPUT  OLFINiriON  SECTION 

THL  ^OLLOWII4v>  COHMENI  TELL  HOW  YOU  READ  DATA  IN  VIA  FORTRAN 
head  in  star  I itfEEK  and  END  MEEK  OF  ANALYSIS 
head  in  a ULANK  FiELU 
head  (IN»5)  bTlM£  ETIMEiBLANK 
5 FORMAT  (2llU»A(t) 

KEAQ  in  IAILNUHPEH  range 

KEAO  (lM*b)  STNtETN 

HEAU  IN  SUPPORT  CENEHAL  NORM  INDICES 

KEAu  (IN»5)  (SGNl ( I ) « ISlfNNSO) 

HEAU  IN  SUPPORT  OENCKAL  PERIODIC  INDEX 
KLAu  (INfb)  SOPl 

KEAu  IN  UASIC  SUPPOKT  GENERAL  CODES 
UO  SU  1=1*nS«4UC 

head  (INflS)  (HS<.:(J*I)*Jsl*4) 

15  format  (12«3AI) 

50  CONIINUF 

HEAU  IN  HRS)  aircraft  SUBSET  INFORMATION 
KEAU  (INfS)  SSTMC<SSSWK 

THt  FOLLOWlNg  IS  HOW  YOU  READ  CARO  INPUT  VIA  COBOL  LlNRAOC 
KEAU  IN  STAR!  WEL  . AND  END  WEEK  OF  ANALYSIS 
KEAu  IN  A ULANK  F»ELU 
call  LRFAOl 

1 <lN*lT*STlMt*CTl-4E*bLANK) 

REAL  IN  tAiLUUMULT  RANGE 
call  CRFaCI 

1 <lN*lT*STNfLTNfOUMMY) 

KEAU  IN  SUPPORT  general  NORM  INDICES 
call  CKEAri 

1 <lN*lT*SGNl<Uf<GNn2)*OUMMY> 

read  in  support  general  PERIODIC  INOLX 
call  creadi 

1 <lN»lT*SOPlfDUMFY«DUMMY) 

REAU  IN  BASIC  SUPPORT  GENERAL  COOES 
IT  = 2 

UO  SO  1=1*NSGBC 
CALL  CREA02 

1 UNf  ITfUSGCUfl)  •BSGC(2»l)»USGC(3»n»BSGCU»l)l 
50  continue 
IT  = 1 

REAU  IN  FIRSI  AIRCRAFT  SUBSET  INFORMATION 
CALL  CREADI 

1 ( lN»ITfSSTNO»SSSNK»UUMMY) 

IF  (IT  • 3)  b5f6C»65 
60  CALL  CREA03 

1 ( 1 N f I T f UUMMT  f DUM<AY  « DUMMY  » DUMMY  » DUMMY  » 

2 DUP  Y » Dummy  • dummy  » dummy  > 

66  CONTINUE 

RETURN 

LNU 

SUUKOUTII^E  CUHl 

THIS  SUKKOUTINe:  call  a COBOL  SUBROUTINE  TO  READ  THE  DATA  BANK 
COMMON  SECTION 

COMMON  AlEfPL«NKfBSGCfCBSOI»Cl»CNORM»CSON*CTYPE>CMK»DCT»UDN» 

1 nKH.OICr  •UlFH,Dl<.>DlS>DL>US>OUMMr>0«K.CNSO»KfeSGHK>tTIME>ETN>Ht4C> 

2 IUtlNtIl>lNAY> NNSG > NONS> NSGUC • NSGCFHtNSOCL f NSGCG • NSGEOF > NSGF t 

3 MSGMHtMbGN>NSGNC<ltNSGSNiNSGU>NSGWK.NSeMUC«OAIEfOFlLEIlOUTiPO*T*l 
*1  PIOATA  iPIjSGWK  .PPI  ,PS>PSGCFH.PSGCL>PSGCS>PSGDL>PSGNPSGK,PSGLi 

5 PSr,wK,PTNtPiiKI,SETIHEfSGCFH>SGCL>SGCS>SGEOFtSGF>SGFH>SGHRiSGLi 

6 SGNliSGNOHMt SGP I > SGbN t SOU i SGMK , SGWUC > SSN • SSSMK tSSTiMEtSSTNOt 

YbTiMtfSTNiTrpE.irc : 

dimension  section 

dimension  CN0HMI2) >CWK|3) iNSOMUCI « ) tPDATA |« ) iPIOATA I A) t 

I PMKII3I>SgNII2)>  ;6MUCI«) 
dimension  USgCI4>3I 
type  specif  ration  section 


6-186 


1 

M 

i 

i 


I 

I 

1 

I 

1 


1 

i 

J 

I 

I 


3 

1 

n 

a 


ItJIFoiK  AlE.Rl  ANKfBSGC>ceSGl>Ct>CNO«)H,CSON>CTrPE>ClrKiOCT.OON. 

1 DFH.MCI  f JlFH,DlL>0IS>DL>DS>0UI*MT>0MK.ENS6l«K>CSGMK>ETIMe«ETN>HMC« 

2 1 U > 1 1 J , 1 T > 1 M A Y t NtvSG  f MOHS  ■ NSGtlC  > NSGCFHt  NtGCE • NSGCS • NSCEOF > NSOF • 

3 KbOHH,rjbGN>l<Sr>NC'*>NbGSN>NSGUiNSGtlK«NSGHUC>OAlE>0FlLEI>0UT>P0ATAi 

4 PlUATA  •PNSG«KfPPliPS>PSGCFH>PSGCI.«PSGCS>PSGDL>pSGI>PSOK(PS«L> 

5 PbG<>K,P(N>P<.Kl,stTIME,SGCFHtSaCI.>SOCS>SGEOF«SGF>SGFHtSGHP>sei.> 

6 Sut<l  iSGNOhM.SgPI  /SGSN>SGU>SGWK>SOWuC«SSN«SSSWK<SSTIME>SSTNO> 
Yb.flML.STN.IYPE.WD": 

GO  lU  MU>10U)iTYPE 

read  a support  general  recomo 
10  call  LorHCi 

• (SGFfSGt.0FiSGSNi'G»K.SGHUC(l><SGtlUC(2>«SGI«UC(SI>SG<*UC(4t  •DUMMr> 

• nUFMY.SuU>SGHR>UuHMY>SGNORM>DUMMT>SGFH>SGCFH>SGCS>SGCLI 
LHELk  norm  HuURS 

IF  (SGNOrMI  cO.GU  40 
20  SGNORM  = 0 
40  RETURN 

REAL  A NON-SuPPOF  T GENERAL  RECORD 
100  call  LOpHn 

• ( NsgT  • N^iGlOf  • riSGSN  • NSGMK  • NSGMUC  1 1 1 •NSGWUC 1 2 1 > NSGWuC  I S I • NSGWUC 1 4 ) i 

• aULiMMC  •NSGUitJSG  iR  > A IE  •NSGNOM.NORS>CTTPE>NSGCFH>NsGcS>NSGCl  I 
RETuRt< 

ENU 

SlIiJROUTlNF  SuPOSl 

1H15,  SUI'ROuriNE  FJSltlON  SG  FILE  FOR  NEW  AIRCRAFT  SUBSET  OEPENUINO 
UN  1«AT  toil  I.ROHP  , I-h 
LOMUUN  '.I  Y I I iit< 


LUMMoti  AlE  .(IL  NK.|lsGC<LMGGltCl«CNOHM.CSON>CTTPE>LWK>OCT>DDN> 

1 (IFli.l.lCI  •UIFH.DII  .01S<nL>US>UUMMT>OMK>CNSO«K>ESGWK>ETIME>ETN>HMC> 

2 IU>1N.  1 r<  14aT.MNjG>N0HS>NSGIIC<NSGCFH>NSGCL>NSGCS>NSgE0F>NS0F> 

i NSuMRtNSGNtNSGNO  ‘.NSG&N>NSGU>NSGtlK,NSGWUC>OA!E>OFlLEl  >OUT>POATA> 

4 PlUATA  .P.'.SGHK  'PP1.PS<PSGCFH.PSGCL>PSGCS>PSGDE>PSgI>PSGKfPSGL> 

5 PSGor.PTNtPoKl .SET!ME>S0CFH>SGCL>SGCS>SGE0F>SGF>SGFH>SGHR>SGL> 

6 Sun1>SGN0RM,SGP1.SGSN>SGU>SGHK.SGWuC>SSN>SSSI«K>SST1ME>SSTN0* 
7‘jT1«l,STN.TYPE,WU* 

c dimension  section 


UIMENSIOi.  CN0HM(21  )CNK«JS)«NSGWUC(4)«P0ArA(4)  ,PtOATA(4|> 

1 p«r1(3).SuN1(2I.".G»(uC(4I 
dimension  USuC(4>TI 
C type  SPEClFlCAflO.J  SECTION 


INTtGER  AIE.PL  NK,bSGC.CBS6I,C1.CNORM,CSGN,CTTPE>CMK.OCT,DON, 

1 IIFh.oict  .DIFH.or  •01S>0L.0Sf0UMMY.0Ml<>CNSG«KtESGWK*ETIME>ETN>HMC> 

2 ID. IN, I r > IwaY,NNSG,NORS,NSGBC,NSGCFH>NSGCL,NSGCS,NSgEOF>NSGF, 

3 NScnR, NsGN,nSunO.<,NsGSN>NSGU,NscWK, NSGMUC, OAIE >OFlLEI > OUT, PDATA, 

4 PUiAlA  .PNSgwK  PPI,PS,PSGCFH,PSGCL,PSGCS,PSGDt.,PSGI,PSGK,PSGt., 

s i'sn*k,ptn,paki ,sptime,sgcfh,sgcl,sgcs,sgeof,sgf,sofh,sshr,sGL, 
b S>,-,I.SGNORM,SgPI.SGSN,SGU,SGMK,SGWUC,SSN,SSSMK,SSTIME,SSTNO, 

7ST  Ii-E,STN.  TYPE.MD. 

C IMflALI^'E  PrEVIO  -s  »EEK  INDICES  TO  -1 
c 

C SET  HSOI  TO  iEHO 

PSGI  ; 0 

c SET  ppi  lO  Zero 

PPI  ; 0 

c iNiTiALUE  Previous  weef  indices  to  -i 

DO  300  IFI.nSGNC 
PAMII)  i -I 
300  CONIINIIF 

GO  TO  I3Z0, 3z5) , 1 /AY 
c 

c ENTER  HERE  FOP  BEGINNING  OF  NEM  AIRCRAFT 

C initialize  AIWCRA  t start  time 

320  SSTIME  : SURE 

C INHIALIZt  AIRCRAFT  SUBSET  NDMHER 

SS'/  : 1 

C SAVE  PREVIOUS  TAI.  NDMiIER 

PTN  : SGSI/ 

C CNELR  IF  TAILNuMHFR  SUBSET  EXIST 


IF  ISGSN  -SSTNO)  331, 332, 330  1 

c ; 


L ENTER  NErE  FuR  BEEINNING  Of  AIRCRAFT  SUBSET 
c uPUAiE  aircraft  subslt  number 

32S  SSN  z SSN  ♦ 1 

c initialize  aircraft  subset  start  time 

SSTIME  z SSSrK 

C REAli  IN  SI/BSeT  in,  ORMATION 

C 330  HEAD  (IN,3S)  SSTN'.SSSMK 
C 3S  FORMAT  I2110,A4) 

330  call  CREAni 

I II/,,IT,SSINO,SSS,K,UllMPTI 

c checr  for  change  n iail  Number 

IF  (SgSN  -sSTNO)  '31,332,320 
C INllIALl/t  AIRCRAFT  END  IIME 
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L 


J3I  bETiML  i t TIME 
v>0  TO  3<tU 

C SET  tNO  IIML  OF  Si'fiStT 

332  bETiMC  = SbSwK 

C CHLCK  WELK  NuHoEH  4GAINST  STARTING  wECK 
3^0  IF  TSGWK  - SSTIMC)  3MS»349«349 

C HEAD  A SUPPORT  GENERAL  RECORD  FROM  THE  DATA  BANK  VIA  COBOL  ON  SBF 
345  TYPE  = 1 
CALL  GOBI 

C CHECK  BLOCKING  FLAG 

IF  TbOSN  - ?,C7  # 10200  » 347 

C CHECK  FOH  ENU  OF  NFORMATION  <eoF} 

347  IFT  SGEOF)  I U200 • 340* 1 0200 

c 

C CHElK  FOk  change  .n  tail  number 

349  IF  (SGSN  - PTN)  3.0*350*320 

C CHECK  IF  A SUBSET  EXISTS 

350  IF  (bOSN  - SSTN<')  352*351*320 

C CHECK  ENUTIME 

351  IF  (SLTIHE  - SGWKi  325*325*360 

C CHECK  ENUTiME 

352  IF  (SLTIHF  - SGWK t 345*345*360 

C f>Il4l)  NEXT  legal  SOWUC 

360  call  FLSgI 
KETuKN 

10200  CONTINUE 

WRITE  (6*1U210) 

10210  format  (13h  bGEOF  STOP2  ) 

ITl  = 0 

call  CLOSLF  (ITI) 

CALL  LOJMSG 
call  EXIT 
ENU 

6UUHOUTlt4E  FlSGI 

C THIS  SUPkOUTINl  F . NOS  A LEGAL  SGWUC 

C COMMON  SECTION 

C 

common  A1E*BL^NK*BSGC*CBSGI*CI*CN0RM»CSGN*CTYPE*CWK*0CT*00N* 

1 OFM*OICT*UlFH,or  *OIS*OL*US*OUMMY*04K*CNSGWK*esGKK*ETlME*ETN*HMC* 

2 lU* IN*IT  *IKAY»NNSG<NOHS*NSGUC*NSGCFH*NSGCt*NSGCS»NSGEOF*NSGF* 

3 NSGHK  * tTSGN  * («S0N0M , NSGSN*  NSGU  * NSGWK  *NSG4UC*0AtE  *OF  Ml  1 * OUT  * PU  AT  A * 

4 P lUA  TA  • PhSGWK . PPI • PS  * PSGCFH  * PSGCt*  PSGCS*  PSGOL  * PSgI • PSGK » PSGt • 

5 PSGwK*PTN*PwKl,srTIMe,SGCFH*SGCL*SGCS*SGEOF*SGF*SGFH*SGHR*SGL* 

6 SGN I * SGNOKM  * SgPI • SGSN  * SGU  * SGWK » SG»UC*  SSN*  SSSWK  *SST IME  * SSTNQ  * 
7STIml*STN*TYPE*WUC 

c uimlnsion  section 

C 

UlMtNSION  CNOHW(2).Ct(K(3I.NSG»fUC«*)tPD*I*l<»).PIO*TA(i»)* 

1  PI<Kl(3l>SbNl(2)>bGWUC(4) 

UIMLNSION  bSGC(4i?) 

C TYPt  SPECIFICATION  SECTION 

C 

IMTLGLP  AIE>RL.  NKfBSGC>CBSGItCIrCNOftM>CSGNtCTYPE>CWK>OCT>DDN> 

1 OFM>UICr>UIFHfOIl  .OISfOL>OS>OUMMYtnWK.ENSGWK>CSGHK>ETlMe.CTN>HMC> 

2 lOf  INp  ITf  I«AYfNNSGfNOMS>NSG(]C>NSGCFH.NSGCL>NSOC5tNSeEOF>N50F> 

3 NSGHP  p NSCN  t NSGNO. p NSGSN  p NSGU  p NSGWK  p NSGWUC t OA IE  t OF I LE 1 p OUT  p PO AT A t 

4 PIUATA  pPNSGWK  PP I p PS pPSGCFHp PSGCL pPSGCSpPSOOLpPSOI pPSGF pPSOL p 

5 PSGiPK,PrN,PpiKI,SFTIMEpSGCFHpSGCLpSOCStSGEOF«SeFtSOFHpSOHPpSM.p 

6 SbNipSGNOKMpSGPIpSOSNpSGUfSGHKtSOWUCpSSNpSSSWKtSSTiMEpSSTNOP 
7ST IMt p STN p T YPE p wot 

C 

360  UO  369  CI'jGI  = ipNSOBC 

c Check  all  lhakactlhs  of  sowuc 

UO  36S  1=1 p4 

IF  (HSGClIpCbSGI)  - SGWUC(I))  362p36&p362 
362  IF  lUSGCI IpCOSGI)  - BLANK)  369p4I0p369 
365  CONTINUE 
GO  TO  41U 
369  CONIINUE 

ENIHY  fnlsgi 
IYPl  = I 

C HEAU  A Sb  HECOPO 

CALL  C061 

C CHLLK  TAIL  NUMBER  AGAINST  99999999  PAOOINO  OF  LAST  LAST  BLOCK 
IF  (SGSH  - 999999"9)  3T5p409p375 
C CHELK  FOh  EOF 

375  IF  (SGEOF)  4UOp36bp400 
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C SET  lAlL  NUMbER  Tt  R99999R9 

40U  sGsn  = 99999999 

<405  insbl  = USbUl.  4 1 
410  CONIIUIIE 
Cl  = CbSbl 

hetukn 

b'lU 

SIIUKUinlKC  (lSGI 

c rxis  ‘.KKunuii'ii.  i.Nus  kil  luu  or  the  cimrcnt  iNSPcf^riON  *no 

C S<IMS  W tUL  hOIIM  ' OUM<; 

C tOMMOII  SLCIIUN 

COMMON  AlEir<C>-NKiF)bGC)CBSGl  tCl4CNORH,CS6N>CTYPE>CWK>DCTtDON> 

1 DFh»OlCTiUlfH,ni(  •0lSi0L*aS*0UMHY*0MK#£NSGWK»ES6«K*ETlMe»ETN»HMC» 

2 IUiIN*1Ti!«AY*NNS6«N0RS<NSGUC*NS6CFH»NSGCL*NSGCS>NSGE0F»NS6F» 

3 NSGHR • NbGN • nSGNOS  » NbGSN • NSGU>NSGWK • N^GWUC • 0 A IE  *0F ILE 1 » OUT  9 PDATA  9 

4 PIUATA  iPNSGWKi^PliPSfPSGCFH.PSGCUtPSGCS.PSGDLvPSGl^PSOKfPSGLt 

5 PbGviKiPTHtPviKl  iSf  T IME  • SGCFH«SGCL*SGCS#S6£0F*SGF  •SGPH»  SGHP  »SGL » 

6 SGNi • SGNOkM • SGP 1 • bGbN*  SGU  < SGWK • SG«uC • SSN*  SSSWK • SST 1 HE  9 SSTNO  9 
TbTiHLiSTNi FTPEiWUc 

C UiHLNblON  bbcTION 

UIHLNSIOr^  CN0KH(21 •C»K(3l*NSG«UC(4f •PDATA(4( »P1DATA(4)» 

I  PmkI (3( (2) • G«UC(4I 
UlHt.fiSlOr^  ubGC(4«  M 
C FYPl  SPEClFItAllON  StCTlON 

c 

INTtoLP  AlE,RL;NK«BbGC«CHSGI»Ct*CNORH«CSGN»CTYPe»C«K»DCT»()ON» 

1 OPH.DlCI (Ulf H.Olt  •OlS«OL«DS«DUHMV«oMK*ENSG«K»ESG«K»ETtHE»ETN»HMC» 

2 lOi INi IT* lMAY«NNSGfNORS«NSGUC»NSGCFH*NSGCL*NSGCS»NSGEOF»NSOr» 

3 NbOMK » MSGh • NSGNOf^  r N^GSN • NSGU .NSGtiK • NS6«U€ *0 AIE »0F ILE 1 9 OUT 9 POAT A » 

4 PIUATA  (PNSGWKi ^pi *ps«psgcfh,psgcl*psgcs*psgol»psgi»psok>psgc» 

5 PSG4K»PTN«Pi«ki «SEriHe,SGCFH«SGCL*SO€S#SGEOF»SGF»S6FH»SOHR»S0t» 

6 bONI  • SCUOhM  < SgP  I • SGbN « SGU«  SGt^K  9 SGMUC  9 SSN»SSS«K  * SST  IME  • SSTNO  9 
7i>TlML»STN»  rtPE#WOC 

c 

C INUlALWf  current  wCEk  indices 

10  uO  It)  isliNSGBC 
C«K( I IS  •! 

15  CONIIUUE 

C INIIIALIZE  Sum  of  NOrtM  HOlfRS 

CNONM(I(  s 0 

CN0r<M(2)  : 0 

C SAVE  LAST  50  RECORD  INFORMATION 
20  PSOwK  s 5G«iK 
HSOCHH  r SGCFH 
PS0C5  s bGCS 
PSGCL  = bGCL 
CwKtCll  S bG^K 

C C»*EuK  TO  RtL  IF  NCRM  HOURS  EXIT 
IF  <C|  - ^ONKIII  60*50*60 
50  CNOHMCIJ  = CNOkM(xI  ♦ SGNORM 
GO  TO  no 

60  IF  (Cl  - S0NI(2M  60*70*60 
70  CN0RM(2(  s CNOrM(^|  ♦ SGNORM 

c find  next  legal  S WUC 

60  CALL  FNLbGI 

IF  (bow*'  - SLTIMEI  e5*300»300 
flb  IF  (PIN  - bGbNC  ^00*86*300 

C CAcCulATl  UIi-FERL'CE  in  week  field  for  CONSCCTive  so  RECORDS 

66  UWK  = SGhK  - PSGWV 

c chlck  foh  change  *n  week 

IF  (DaKI  300*20*90 

C IS  PHLVUfUb  bG  INlEX  =3(3400)r 

90  IF  (PbGl-3)  vS*10r*9b 

C IS  MIFF,  IN  WEEKS  MORE  THAN  2» 

95  IF  (UwK-3)  20»20u»2U0 

C lb  DIFF.  IN  WEEKS  MOKE  THAN  4, 

100  IF  (UWK-b)  20*200*200 
C CHECK  CWK 

200  DO  240  1=1 *NSGKC 

IF  (CwKCiU  240*2*0*210 
210  IF  (CwKd)  - PSGMTt'l  230*240*230 
230  CWK( n = -1 
240  CONTINUE 

LSGwK  = HSgwk 

R(  ruHr( 

300  COfU  UAJE 

IF  (Cl  • SGNKK)  360*350*360 
350  CNUHMd)  = CNOnMIM  ♦ sgnokh 
GO  lU  360 

360  IF  (cl  - SG>U(2d  360*370*380 
370  CN0RM(2)  : CNORM<r)  A SGNORM 
380  ESowk  s btriMt  ♦ < 

RETURN 


suUHouTitjr  flnsgi 

C (HZs  FINUS  LtG»L  NSG  RECORD  TYPE  3 

C tOMMOtJ  SLCTIUN 

COMMON  RlEtRLl YKfBSGC>CBSGl.Cl>CNORMtCSON>CTTPE«CNK>DCT(OON( 

1 DFMiDlCliUlFH.nU  .UlS>DLiDSiOCIMMT>DMK>ENSGMK>£SGMK>ETtMe>ETN>HMC> 

2 1D> INtlTi l*MY>NNSG)NOHSiNSGBC>NSGCFH>NSGCLtNSGCS>NSGEOP>NSGP> 

3 NSbnH • NSGN  > NSbNOM . NbGSN • NSGU • NSGXK . NSGHUC  > OA IE  > UP  t LE 1 > OUT  > PO AT  A > 

R PlUATA  f PNSGWR  , ->P1  .PS>PSGCPH,PSGCL«PSGCS.PSGDL>PSg1  tPsCKiPSOLt 

5 p!>g»kiPtn>v*ki.setime>sgcphisgcl>sgcs>sgeof>sgf>sgfh>sghR(SGL( 

6 SbNI,SGNOHHtSGPl>SG!>N>SON>SGMK.BGWUC>SSN>SSSWK>SSTlME>SSTNO( 
7bTlMtfSTN.IYPE.WDC 

C 

C DIMENSION  section 

C 

UIHtNSIOr.  CN0RM(3|  .CWKOl.NSGMUCIOt.PDATAlRt.PIDATAIR)  . 

1  PWKII3).SGNll2I.SGWUCI<tt 
dimension  BSbCiR.JI 
C TYPE  SPECIFICATIOK  SECTION 

C 

integer  aie.blank.bsgc.cusgi.ci.cnorh.cson.cttpe'CNk.oct.ddn. 

1 ofh. DicT. uiFH. OIL. ois.DL. os. Dummy. dwk.ensowk.esgwk.etime.etn. MAC. 

2 ID. IN. 1 1 . IWAY.NNSR.NOHS.NSGBC.NSGCPH.NSOCL.NSGCS.NSgEOP.NSGF. 

3 NSGHR.NSGN.NSGNOM.NSGSN. NSGU. NSGWK.NSGWUC.OAtE.OFlLEl. OUT. PDATA. 

R PlUATA  .PNSgWK.PPI.PS.PSGCPH.PSGCL.PSGCS.PSGOL.PSGI.PsGK.PSGL. 

5 psgwk.ptn.pski.setime.sgcfh.socl.socs.sgeof.sgp.sgFh.sghr.sgl. 

6 sgni.sgnorm.sgpi.sgsn.sgu.sgmk.sgwuc.ssn.ssswk.sstime.sstno. 
tstime.stn.ttpe.wdc 

C 

C CHECK  BLOCKING  FLAG 

350  IF  INSGSn  - RRRRRRRRt  355. BOS. 355 
C CHECK  FOm  end  of  INFORMATION 

355  IF  INSGEuFI  a00.3tT.B0U 
C CHECK  FOK  type  3 RECORD 

350  IF  (CTYPl  - 3l  ST0.3B0.3T0 
370  TYPE  S 2 

call  com 

GO  TO  35U 

c CHECK  foh  change  in  tail  number 

360  IF  (NSGSM  • PTNI  370.390.605 
C CHECK  WEEK  FOR  PAS".  END  OF  CURRENT  SG 
390  IF  (NSGWK  - LSUWKI  370.3TO.ROO 
C CHECK  week  before  THE  START  OF  NEXT  INSPECTION 
ROD  IF  (NSGWK  • SGWKI  RIO. RIO. 810 

c FIND  observation  csta  and  output  same 
RIO  call  vAR3Tb 

c save  previous  week 

PNSGkK  : NSGmK 
PS  = NSGCS 

C KEAU  A NON-SuPPORT  GENERAL  RECORD 

type  = 2 

R20  call  COPt 

C CHECK  FOK  CHkNGE  IN  TAIL  NUMBER 

IF  INSGSN  - PTNI  6lO.R30.8IO 
C CHECK  FOK  change  I < WEEK 

R30  IF  IPNSGWK  - NSGWKI  RR0.R20.RRn 
C CHECK  FOK  (YpE  3 KECORD 

RRO  IF  ICTYPE  - 3l  R2b.RU0.R20 
600  NSGSN  = V9V9V9V9 
BOS  ENSGWK  = SETIME  ♦ I 

BIO  continue 

KETUKN 

ENU 

SUUhOUTINF  V*HI 

C THIS  SUBKOuriNE  CALCULATES  THE  FIRST  G DEPENDENT  VARIABLES 

C common  section 

C 

COMMON  AIE.BLANK.BSGC.CBSGI.CI.CNORM.CSON.CTYPE.CWK.DCTiDDN. 

1 DFh. Die T.UlFH.niL.DIS.DL.DS. DUMMY. D«K. ENSGWK. ESGWK.ETIME.ETN.HMC. 

2 ID.  IN.IT.IWAY.NnJS.NOKS.NSGBC.NSC-CFH.NSGCL.NSgCS.NSgEOF.NSGF. 

3 NSGHR . MSGN . NSGNOM .NSGSN . NSGU .NSGWK . NSGWUC .OAIE.OFILEl.OUT.pDATA. 

R PlUATA  .PNSGWK.PPI.PS.PSGCFH.PSOCL.PSGCS.PSGDL.PSGI.PSGK.PSGL. 

5 PSGWK.PIN. P«K I. SETIME. SGCFH.SGCL.SGCS.SGEOF.SGF.SgFH.SGHR.SGL. 

6 SGNI.SGNOKM.SGPI  SGSN.SGU.SOWK.SGWUC.SSN.SSSWK.SSTIME.SSTNO. 
TSTiMt.STN. lYPE.WDC 

C UIMtNSlON  SECTION 

c 

dimension  CN0HMI2).CWKI3>.NSCWUCIR).P0ATA|R).PI0ATAIRI. 

1 PwKll3)fSGNII2|.SGWUCIRI 
dimension  BSgCIR.jI 
C type  SPEcIFIcATIOI  section 
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c 


c 


c 


INTtoLR  AIE»BLANK*Bi6C»CBS6I#Cl#CNORN#CSON#CTYPE»CWK»OCT»OON» 

1 OFH»OICT*OIFH*DlL#OIS»OL»DS»OUMMV#OWK*tNSGWK»e56WK*ETlNe»ETN*HMC» 

2 ID*IN»IT* 1WAY»NN'  G.N0RS#NS6BC»NSGCfH»M5GCU»MSGC5*MSGC0f»NS0f # 

3 NSOHK»NiGN»NSoNOH»NS6SN»NSGU»NS6»<K»HSGlWC*OAlE»OFttEI>OUT*POArA» 

4 PI OAT A • PfiSGWK $ PPI #PS»PSGCFM#PSGCL#PSGCS»P5GOL»PS0l fPSGKtPSGtf 

5 Pi&wK*PTN.P»iKl.StTIME#SGCFH#SGCL#SGCS#SGEOP»5Gr»SG^M»S0MR*S0t» 

6 SGN 1 0 SGNOKM*  SGP 1 SGSN  $ SOU#  SGWK  » SGWUC • SSN  » SSSWK  t SST I ME • S5TM0  » 
7bTlMt»STH»  TYPE* woe 

ENTHY  VAhI \2 
iAVE  tail  number 

IPTN  2 PIN 

ZLMO  OUT  PHLViOUS  TAIL  NUMBER 
FTN  r 0 


UCT  :(PSOWK  - POAU(l))  • IQ 
UFU  S P<^oCrM  - P0/TA(2) 

OS  s(PSGCS  - PQAT^n))  • 10 
OL  s (PSOCL  - P0AiA<4))  • 10 
00  bOO  1=1*NNSG 
C CHECK  IF  nOHM  OAT^  EXISTS 
KsSoNl ( 1 ) 

If  (CwK(k))  o00«ou0*10U 
lOU  00  590  J^liNsGti' 

IF  (PmKKJ))  590*'>90*400 
C OOTHOT  OdSLRvAT10^4S 
400  OON  : 10 

CSON  2 CI40HMU) 
c calculate  10  FOP  ooTPor 

iO  : lOOUU  • SSN  ♦ lUO  • 1 ♦ 10  • J ♦ I 
CALL  COPUMT 

• <PTN.10#Cb0.4#00N»nCT) 

C 490  format  <<'X«lb«4lb) 

C calculate  lu  FOP  CJTPUT 

10  : lOOUO  • SbN  4 100  •1«104U^2 
cALu  COPuUT 

• < PTU« IO*CSGN*OON«OfH) 

C w«lTc  (OTAHE1#490-  PTN#10#CSGN.OON»OfM 
C calculate  10  FOR  OUTPUT 

10  £ lOUUO  * SSN  ♦ lUO  4 1 ♦ 10  4 J 4 3 
CALL  COHOUT 

• < Prui I0«c  GNtOONfOS) 

C WRITE  <OrAPEl«490)  PTN«10»CSGN«00N*0S 
C calculate  10  FOR  OUTPUT 

ID  ^ mouo  * SSN  • lUO  4 I 4 10  W J • 
CALL  COnoUf 

4 ( PTN.  1D.C<;GN.00N#DL) 

C WHIU  l01APElf4O0,  PTN»IO#CSGN*OONfOt 
090  CONflNOE 
600  CONlirjuC 

HOAfAd)  S PbGWK 
PnATA(2)  s PbGCFH 
PUAIAJ3I  = HbGCS 
PfiArMJU)  s PbGCL 

c SET  UP  New  ohIoinl 

UO  ouo  1=1*NSG'’C 
pwKiin  = C4n(n 
BOO  COIUIMJF 

C KESruRE  IAIL  NumUvR 

PTN  2 IPTN 
KETUMN 
entry  VAK3Tb 

c save  tail  number 

lPTr4  s PIN 

C ZERO  OUT  PREVIOUS  TAIL  NUMBER 

PTN  2 0 


oicr  2 

INSbWK  - 

FIDAtAU)) 

• lo 

UIFH  2 

NSOCFH  . 

PI0ATAI2) 

UlS  2 

(NSbCb  - 

PI0ATAI3)) 

• 10 

OIL  2 

INSbCL  - 

1 1UATA(4)) 

4 10 

us  2 

(NSbCS  - 

rS)  4 10 

IF  lub: 

1 900*900*650 

050  CONTINUE 

OAlE  2 

lU  • Alt 

DON  2 DS 

c calculatl  id  for  Output 

ID  = 10000  • SSN  * 300  « 10  • SGPl  * 1 
tALL  COPOUT 

* i PTN>II)>OT1L>OUN«OICTI 

C CALCULATL  10  FOR  OUTPUT 

ID  = IIIOUO  • SSN  * 300  A 10  • SOPl  * t 
CALL  COPOUT 

• ( P1M>IU>U*IC>D()N>OIFHI 

C LALLULATL  111  FOR  OUTPUT 

ID  = 10000  • SSN  V 300  A 10  • SGPl  A 3 
CALL  CORUUT 

A ( PIN>IU>OAIE>ODN>OISI 

c callulatl  id  for  output 

ID  = lOOUO  A SSN  ^ 300  A 10  A SGPl  A « 

call  corout 

A-(  PTN>IU>OA1E>OON>D1L) 

•100  IF  (UlCTI  lOuO.IOoOtVSO  ’ 

C CALCULATL  ID  FOR  t JIPUT 

SSO  CONIlNIir 

ID  = lOOOO  A SSN  A MOO  A 10  A SGPl  A 2 

call  copout 

A ( PM.  II).U'FH.DICT>01FHI 

C CALCULATL  ID  FOR  OUTPUT 

ID  = lOOUOA  sSN  A SOU  A 10  A SGPl  A 3 

call  CORoUI 

A I PIN.Ill.O’S.UICT.DISI 

C calculate  lU  FOR  OUTPUT 

ID  = lOOuO  A SSN  ouO  A 10  A SGPl  A M 

CALL  conour 

A ( PIN, III. UIL.OICT. DILI 

C KESTOHL  I ail  NuMUAR 

1000  CON1INUF 

PTN  s IP  IN 
Pf TUhN 
LNU 

/A  HLOUImEu  PLACf  FOPIHAN  PCD  SOURCE  HEFORE  THIS  CARD 

//LKEO.AUUCALL  DU  uSroPC.MLlP .(1ISP>SHH  , VOL >SEH>I 1 1 .UNI T>OSA 
//LAED.STSIN  DU  DAT A . SPACt >1  TRK , t S, b 1 J 
INCLUDE  AUUCAlLH  BT  17  1 

/A  HtOUIKFU  PLACf  LINKtUIT  CONTROLCAROS  IF  ANy  BEFORE  THIS  CARO 

//CHG.FTOIFOOl  DU  UlSf  >C .PASS  ], UNI T>t  A AFI . 2,OEFER JaOSN>a A .VBITM 19 a 

//  VOOSLRX  aFI.AafI.HAFI.CaFI.OaFI.E  Fl.FAFl.GAFl.HAFl. 

//  lAFl.jAF- .Aafi.Lafi.MafI ,NaFIa0AF1aPaf1.0aFi,raF1,saF1 1 

//CHG.F I03F001  Du  UISP>t .PASS J. UNITS! TAF3.1. DEFER  J.OSN>Ac ,9B9rMi8. 

//  V0L>SER>1 AF3.AAF3.UAF3,CAF3AnAF3.EAF3,FAF3>GAFS.MAF3> 

//  lAF j.jaf: ,KAF3.Laf3.MaF3.NaF3aOAF3.PaF3aOaF3,haF3.SaF3 J 

//CHG.FTOMFOOI  DU  OSN> aP, 98<I7M  Ib.O TSP>C OLOaPASS  J 

//CHG.FTUBFOOI  Du  DISP>C .PASS  l.UNI T>t AAFbA2A0EFER jAOSN>At ,90974 12 a 
//  VOL>SER>C  AFbAAAF5.BAFSACAF5A0AFb.EAF5AFAFb»6AF5,HAF5A 

//  lAFb.JAFA  >KAFb.LAFb.HAFb.NAFSA0AF5ApAF5A0AFbAHAF5.SAF5J 

//CHO.FTllFOOl  OD  DSN>aP. 9897413. 0ISP>I  aPASS JaSPACEHC TL .1  009. OO  1 JJ 


/A 

//C9897U  EAEC 
//CHG, IU12 
// 

// 

//CHG.TU14 

// 

// 

//CHG.TUlb 


C9bo3N.TrAE>02.ACCT>035323007  STOALONE  JOHN  LINK 
DO  UISPSC , KEEP  1, UNI T>t AAFl, 2 aOEFERJaOSN>AA, 9897419. 

VOLASERSt aFI.AAFI.HAFIaCAFIaOAFIaEaFIaFaFiaGAFIaHafI. 
lAFl.JAFI .KAFI.LAFI.HAFIaNaFIaOAFIaPAFIaOaFiaRAFIaSAFI J 
00  UlSP't . KEEP  1. UNI T>tTAF3.1. defer  J.0SN>AC ,989741*. 
VOL>StR>t aF3,AaF3aOaF3aCaF3aOaF3»EaF3,FAF3»GAF3.Haf3a 
lAF3.JAF3.KAF3,LAF3.MAF3,NAF3AOAF3APAF3A«AF3,RAF3ASAFiJ 
DU  OSN;  aP, 989741b. OISPHOEOaOELETC) 


3b0  CDS 


CT12/13  1 
CT12  2 
T12  3 

CT14  1 
CT14  2 
T14  3 

D15-IN 
CT22/23  1 
CT22  2 
T22  3 

D25-0UT 


CT12/13  1 

CT12  2 

T12  3 

CT14  1 

CT14  2 

T14  3 

DIS-IN 


//CHG 

'.TU22 

DO  DISF  At  .KEEP  IaUNITACTaFSaIaOEFCRJaDSNSAE. *897*1*. 

CTIt 

1 

// 

VULASERAI »Fb.AAF5.BAFS.CAF5A0AFbAEAF5.FAF5»*AF*AHAF»A 

CTI2 

t 

// 

lAFbAjAF5AKAFbALAFbAMAF5ANAF5A0AF5.PAF5.0AF5.RAFSA*AF*J 

Tit 

S 

//CHG.TU25 

00  OSN  >aP. 9897413.01 SPA! OLD  a DELETE  ) 

D2B«IN 

//CHG 

i.TPHIN 

00  AaSF  ICtAtTNK.d.l]} 

I/P 

TUIb 

iu*008020ar 

T/P 

TU2S 

10*00802080 

T/P 

TU22 

1002040204L 

T/P 

T0I4 

10020702071 

T/P 

TUI2 

10020  70207'' 

/• 

PLACE  T/P  CONTROL  CAROS  BEFORE  THIS  CARO 

6.10.2  MEASURE  OBSERVATIONS  AT  WUC  LEVEL 


//T9697BA  JOR 
//C9897R  t*EC 
//CHO.IUlb 
//CM6.TF01N 
OOUOO 

010001  019999 
IFO  7Ulb 

luu 


01* :j.  FOUNTAIN  : fPHrr>02*TYPRUM»HOLO  XlSl 

C9<)UlN*T;ME>02f  ACCT>035323007  STAND  AlONC 
CD  OSK'k«P.^897415fDlSP>C#PASS)*SPA€e>tCTL»C009»  00133 
ro  •fSPACe>lCYL»(l«133 


11 


b700u23l 

3 


111 

3 


Ofcl  TF6 
replace 

OlOZOf 0 
5u0 


57U00Z32 

2 


VAND 


03300 

U33 

03400 


033U0 

033 

034U0 

74  A 

74H 

74C 

740 

74F 

74H 

74A 

74L 

74P 


101  1 

2 h3 


740 

740U0 


03300 

034U0 

IIJ 

UK 

11 

12H 

12 

13C 

13J 

13 

14 
P3K 

23M 

?3N 

230 

23S 


23 

41F 

41 
42E 
42F 
420 

42 
44 
45E 
4bJ 
4b 
46A 
46C 


Di»*OUT 

C9S970»T 

•T 


STINE 

STN-CTM 

NS6BC 

HPH 

MAI 

PERI 


HPT 

MA 

PER 


ORPIO  1 


HPF 

PER 


HPO 

PMN 

HPO 

PMN 

HPO 

PMN 

HPO 

PMN 

HPO 

PMN 

HPO 

PMN 

HPO 

PMN 

HPO 

PMN 

HPO 

PMN 

HPO 

PMN 

HPO 

PMN 

0 

0. 

X 

PMN 

HPO 

PMN 

HPO 

PMN 

HPO 

PMN 

HPO 

PMN 

HPO 

PMN 

HPO 

PMN 

HPO 

PMN 

HPO 

PMN 

HPO 

PMN 

HPO 

PMN 

HPO 

PMN 

HPO 

PMN 

HPO 

PMN 

HPO 

PMN 

HPO 

PMN 

460 

HPO 

PMN 

46H 

HPO 

PMN 

46J 

HPO 

PMN 

46 

HPO 

PMN 

47 

HPO 

PMN 

49A 

HPO 

PMN 

49 

HPO 

PMN 

91 

HPO 

PMN 

92 

HPO 

PMN 

99 

HPO 

PMN 

93 

HPO 

PMN 

69 

HPO 

PMN 

71 

HPO 

PMN 

79 

HPO 

PMN 

93 

HPO 

PMN 

97 

HPO 

PMN 
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oooooooooooor‘r‘i*‘r>or‘ooooooocroonr5r.  o 


J 


ABCDCmvl  HOC 


ktm 

MDCI 

i 

3 

ABORTI 

b7UOU2ib 

331 

ISO  A/C 

b700u2i7 

3j1 

ISO  A/C 

b7U0u2Hi 

3..R 

ISO  A/C 

b700U2H44 

331 

ISO  A/C 

b700^b**b 

331 

ISO  A/C 

bBUOu  f f*i 

3..I* 

ISO  A/C 

bBU0u9Ul 

331 

ISO  A/C 

b9U0U0U4; 

331 

ISO  A/C 

bQUOUOUi 

3jl 

ISO  A/C 

b9U0uUUb 

331 

ISO  A/C 

b9uoanub 

331 

ISO  A/C 

b9U0uUl0 

331 

ISO  A/C 

b900uui^ 

331 

ISO  A/C 

b^uOuiilb 

331 

ISO  A/C 

b9U0uUl(i 

331 

ISO  A/C 

b900u0l9 

331 

ISO  A/C 

b900U0^b 

331 

ISO  A/C 

b9uOUOJu 

331 

ISO  A/C 

b900UUb4 

3m4 

ISO  A/C 

b9U0U0b7 

ISO  A/C 

b9U0u0bti 

324 

ISO  A/C 

b900u0b9 

324 

ISO  A/C 

b9U0aiU4 

331 

ISO  A/C 

b9U0ulUb 

331 

ISO  A/C 

b9U0ulUb 

324 

ISO  A/C 

b900011a 

324 

ISO  A/C 

S900U119 

324 

ISO  A/C 

b9UOUl4l 

324 

ISO  A/C 

b9U0al4J 

324 

ISO  A/C 

b900ai4(« 

324 

ISO  A/C 

b900ai4b 

324 

ISO  A/C 

b9U0U19; 

324 

ISO  A/C 

b900ulbl 

324 

ISO  A/C 

b900uib2 

324 

ISO  A/C 

9900alb2 

324 

LAST 

99999999999999^^999 v94 >999999999999999999^999^999999999999999999^99999 
•Erirr 

/• 

LAST 

//C969/A  tKLC 

P9b4bGiPARM,ASSY>l  MAP. LIST  (BCD}*  _ 

C 

// 

PArM.L :En>:LlST.XREF:.TlME>20.AcCT>DSS323007 

//ASSYoSTblN 

CD  DA'A,SPACE>ICYL.C1.1 ]] 

1990  CDS 

fWTP»N-COBO'  LINK  ItbT,  JOHN  LINK. 

THIS  IIHIVEK  LALCULATtS  OUStKVATlONS  FOH  6H0UPS  7-17 
THIS  PROv,PAM  GLHLHATt  ORSLKVATION  DATA  TAPES  FOR  FUTURE  ANALYSIS 
HEAU  IN  CARO  IN  'UT  DESCRIPTION  FOH  GROUPS  7-17 
OBSERVATION  TAPE  FOH  RUC  LEVEL 


COLUMN 

V.4LUC 

DESCRIPTION 

3-7 

07111 

U330U.  033XX.  03400  ORIGIN 

00101 

03300.  03600  ORIGIN 

ti-lU 

MUC  SET  number 

11 

1 

CURRENT  INSPECTION  - HPF 

2 

CURRENT  inspection  - “A 

3 

CURRENT  inspection  - PERIODIC 

12 

1 

NON- ISO 

ISO 

13-19 

•'I 

UNSCHEDULED  MA  / MEEK 

ua 

unscheduled  MA  / FLIGHT  HOUR 

.9 

UNSCHEOuLEO  MA  / SORTIE 

*0 

unscheduled  MA  / LANDING 

te 

REPAIR  action  / INTERVAL 

20 

ABORT  MA  /sortie 

15 

1 

origins  - hourly  postflight 

2 

ORIGINS  - MA 

3 

ORIGINS  - periodic 

16 


16-21 

2S-3U 

32-3/ 

common  section 


1 

2 

3 

V 


independent  variable  - meek  i 

independent  variable  - flight  hours  | 

INUEPENDENT  variable  - SORTIE 
independent  variable  - landing 
numerator  of  dependent  variable 

denominator  of  dependent  variable  I 

independent  variable  i 
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COMmuii  AlE.MLANKiBSGC>CBSOI.CItCNORM.CSON>cTrPe>CWK>OCT>OON> 

1 l)FHfUlClfUll-HiUlL>OIS>ULiOS>OUMMt.OMIC<ENSGUK«eSGWK>eTIHE>ETN>HMC> 

2 lUi INi ITi iNAYit  NSG>N0HSiNSGbC>NSGCFH>NSGCL<NS6CS>NSGE0F>NS0F> 

3 NboMHfM'jGNff<SiiN0HiNbGSNiNS6UiNSG<fK«NS0«UC<0AIE>0FILEI>0UT>PbATA> 

4 PIuATA  •HH5>&4KtPPIiPS.PSGCFM,PSGCt.#PS«eS.PSG(H.»PSGI.PS6K,PS<M.» 

5 Pb««KtPINiP.KI  SCTIMEiSGCPHiS6CL«SGCS<SGE0F«S0P>SGFH>S6HR>SGt.« 

6 bbliliSGl40H>«>Sb'<IiSGbNiSGU.SG«KtSGWUC>SSN>SSS*K>bSTIME>SSTN0> 
7bTIi.lttbTUi  irPE.WOC 


COM, JON  UNS(i^.CMAiCUM*.uV0>GNPIO>GPPG£0<lO2>IUENT,lEND>IGPP> 

1 IM*|  .IMaXi  loLl  IbTAHi  ITIPE>IV>NLNSGG<NESO<NSET>NWOC>N«IICOP(POATAt 
2>PtlbbCf  •>'Mb(il.L|ONbGCSi<IDl0 


tOI-bol.  1P(7I 
LOMhoN  IIJ« 

C UIMlNSIOH  Stt-Tnn 


I 


UIMlNSION  CN0KMI2»iCMK(3l>NbGHUC<<t)<P0ATA|4|  (PI0ATA(«I> 

1 PMM  (3)  iSo  il  •SU4UC(41 
UIMtNblON  UboC(4,.i|| 

UIMtuSlON  CMA(20UI.OVO(4)>10A(4t>lHATI3i7l >N£NS6GI7I> 

1 PUAIA2(4i3Ii>IULU(9I 
UIMLuSION  Ut,Sl,r((ii2U0l 
UlMtl.SlON  bnPinc  71  >bRPSEO(7l 
C lYPt  bPEtlFKAT/ON  SECTION 


INttotb  Alt.BCAN4iUSGC*CBbGl,Cl.CN0RM.CSGN.CTrPE>C4K.0CT,0DN, 

1 HF  Millie  I lUlFH.nlLiUlSiDLjOSjOUMMY.OWKtENSGWKJESGMKJETINEJETNjHPC* 

2 IU,IN,lriI>..iriNNSGiNORSi  NSGUC  • NSGCFH  « NSGCE  • NSGCS  • NSGEOF  i NSGF  > 

3 NSoMMiNSGNi>iSG.JOM,NSGSNtNSGUiNSGWK>NSG«UC>OAIE>OFILEllOUT>PDATA> 

4 PIUATA  iPNSt (AiPPIiPSiPSGCFM,PSGCLiPSGCS.PSgOE»PSgI.PSGK,PSGL. 

5 PbG»AiPIMiP«KI .SETIMEiSGCFHiSGCLiSGCSiSOEOF *SGF»SgFH.SGM«.SGL» 

6 SGNIibGNOHI  iSgPI iSGbNiSGUiSGKK.SGWUCiSSNtSSSWKiSSTlMEiSSTNOi 
7bTlMLibTNi  ITl'E,  jOC 

INIlOEK  Ml.bu:iCMAiCUPAiUVUiGRPIO>GRPSEO<ID2<  IUENTiIENDiIGRPi 

I IMai ,IUA>iIbtr.ISIAH.ITIMtiIV.NLNS0&iNESG>NSET>FM0C>NWUCGP>P0ATA2 
2 1 PNbotF  1 CNbol.L  I PNSOCb  1 xOCU 
t 

COMhoN  CACdul  |IHA(2U«I  .PS2 

INlEotH  tAiCi<A,(>b2 
tOMFoN  AEOi<(  1 »21  lAUtl  ( 31 
IMeoEK  APOHll.wOCI 
COMMor.  Ib4( 

EOMMoIi  IPI 

C head  in  eahd  H-’OT  oesehiptions  for  groups  7-10 

CALL  CIN,; 


(.  POSITION  IHt  bCAUC  FILE  FOR  THE  FIRST  TIME  ONLY 

C hEau  a SuPPUi.T  general  record  from  the  data  BAmR  VIA  COBOL  ON  SBP 
fTPL  : 1 
3UU  CALL  COP.; 

C chela  tail  uuM:  fH  AGAINST  V499<»999  FRROR 

IF  (bobAi  - yN9'q,jq,j,  3uSi  100110(305 
t chela  fok  enj  of  file  error 

305  IF  (bCEOFI  Io0i,0i310(  10000 
C chela  tail  tlyW,  ER  AGAINST  STARTING  TAIL  NUMBER 
310  If  (bCbN  - blNI  300(320(320 
C REAu  A NON-bciPPORT  GENERAL  RECORD  FOR  FIRST  TIME 
320  TYPE  i 2 
call  C0P2 

C LtiECK  TAIL  NuRrER  AGAINST  99999999  ERROR 
IF  (libGbK  - 999999991  325(10000(325 
C LHELN  for  ENu  LF  file  ERROR 
325  IF  ll.boruF)  10000(330(10000 

c pobii ION  thl  sg  file 

330  call  bbP0b2 

C FINu  EfIO  OF  initial  INSPECTION 

C UNO  ENP  OF  CURRENT  INSPECTION 

335  call  FESg2 

C SAYl  PEOUIREU  lata  from  the  56  RECORD 
If  IPbGI)  34U(  '40(337 
337  LONTINUr 
CALL  Vie 
Ibil  : I 

340  P0A(A2(I(IP1I  PSGWK 
PDA|A,;I2(IPII  = PSGCFH 
POA(A^'(3(IPII  - PSGLb 
PDA|a,;(4(  IPl  I PSGCL 
PS2  I PSgCS 
PSGl  = IPI 
iSTAH  £ u 
lENli  9 0 

UO  SOU  lsl(N»IUCGP 

ISTAm  s lENU  ♦ I 

IfNU  £ lENU  ( 'lENSGGIII 

C LHece  to  see  if  INSPECTION  BELONG  TO  THE  WUC  GROUP 
IF  IIMATIIPI(I))  500(SU0(400 
400  LONIllAIf 


I 

1 


i 


i 


i 


1 

i 


6-195 


i 


C SAVL  1NSHEC110.1  INDEX  TO  CUHHENT  INDEX 
HMD  = lEl 

C INlllALUE  CijMiiLATIVE  MAINTENANCE  ACTIONS  TO  ZERO 

UO  4'10  JIlSfAHiIEND 
(.MA(J)  r (1 
CnAlo)  = 0 
CAIJ)  = 0 
«(iU  CON  II  HUE 
bOU  CONIINUF 

C calculate  OHOIVS  TiBtOilU 
BDb  call  rLNbC-2 

C CHECK  rOH  CHAISE  IN  lAlL  NUMBER 
IF  ihtn  - bbbi'i  inooiq20iloou 
N20  IF  (HtH  - NbuSNIlOOOtRlODOOO 
C CHECK  FOH  LNu  OF  TIME 

N3U  IF  ISEIIME  - ''iMKI  llOO>9SO>9SO 
9SU  IF  IbETlME  - NSGlKI  1100>T3S>00S 
C lEbl  tail  NUmOcR  against  BLOCKING  FLXO 
C ILbl  FOR  ENL  C'  INFOKHATION  FLAG 

lUOU  IF  IbbSN  - 999199991  1 OlOt 1 1 000* llOOO 

lUlO  IF  (NbCSU  - 999999991  1020> 11000> 11000 
C CHECK  FOH  last  tail  NUMBER 

1U20  IF  INbbSN  - ET  II  lOlOtlOlODlOOO 
lulu  IF  l:,bSN  - lINI  lOROt  lOROt  11000 
lUUO  day  : I 
UO  10  IIU 
1100  l»Ar  = 2 


uO  (u  S3U 
lOUOO  CON  II  HUE 

kHIIe  IfiDUUlCI 
lOUIO  FOKF.AI  ( /H  blFPl  I 
UO  10  IIUIU 
IIUOO  CONIIllUI 

■iOliL  l6)IIUjil 
UUOb  FORMAT  (7H  9I0O11  I 
IIUIU  CONIIlXlE 

in  A u 

CALL  CLObEF  DID 
CALL  EOJMSo 
call  L»II 

LNU 

bUtlHOUTINE  CHV 

c iHib  shphouiike  heads  in  The  model  definition  for  variables  t-it 

C ALSO  UASIC  IN, TIALIZATION 

c COMMON  StCIlOH 

C 

COMMON  alL>HLANKfBSCC>CHSGI>CI>CNORM>CSGN>CTTPE>CXK>DCT>DDN> 

1 DFHtOICI •UlF‘'f0IL>0IS>0E>0S>0UMMT>0*K.eNSGWK>ESCXK>CTIME>CTN>HMC> 

2 I0>  UN  ITi  Ii<AV.NNSG>NOHS>NSGUCfNSGCFHfNSGCL>NSCCS>NSCE0F>NS0F> 

3 NbOMHillbCN>NSoNUM>NSGSN>NSGU>NSGWK.NSGWUC>OAlE>OFILCl >0UT>PDATA> 

<t  P I UA T A . IMl  jVK  . PP 1 . PS « PSCCFM. PSGCL • PSOCS • PSgDL  • PSC I * PSOK , PSCL * 

b PboKK.FMNfPKFIfbETIMEi SCCFH t SGCL • SOCS . SCEOF t SCF > SGFH > SGHR > SOL • 

6 Sun  1 • bONOHM  • b(,P  I • SGSN  • SuU  • SGWK  • SCWUC  > SSN  • S5SWK  > SST I ME  • SSTNO  > 
7STlMt.STNiTrFE.X0C 

COMMON  llNE  >C.CMA.CUMA.UVD.0RPI0.0RPSE0.1D2.IUENT.|ENu.ICMP> 

1  IMaT. IMaX. ISET.ISTAH. ITIME.IV.NENSOC.NESO.NSET.NXDC.NNUCOP.PDATAZ 
2 . PNSUCF . PNSUC  L . PNSCCb . XDCD 

common  IPID 
common  lUA 
C UIMlNSION  section 


UIMensIOn  CN0HMI2I  ,CWK  I3I.NSCX0CU)  tPDArA(4|.PIDATA(«l  . 

I PXKlIll.SOII  2I.SGXUCI4I 
OIMi.NSIOn  IISOriM.ll 

UIMlNSION  CF>AI20UI.SVtl(4l.irAUItlMAt(3t7I.NtNSOO(7l> 

I PUA|A?m.3I.X|)CUI9l 

uiMcNbioi.  III.' oci<i.2uai 

UlMt.NbION  OllPiniTI.UHPSLOITI 
C 

C IrPt  SPFCIF IC«1 ION  StCtlON 

INILOLH  AI  . BLANK. nSCC.CBSGI.CItCNORMtCSON.CTYPE.CXK.DCT. DON. 

1 DFH.DICT.UlF'l.niL.DIS.DE.DS.DUMMr.DRKtCNSOXK.CSCXK.CTIME.CTN.HMCt 

2 lU. IM. IT. lAnT.NNSC.NOHS.NSCUC.NSCCFH.NSOCL.NSGCS.NSGCOF.NSeF. 

3 NSoHK . NSCN  t N ^GNOM . NSGSN . NSGU  t NSGXK  tNSGXUC . OA IE. OF ILE 1 f OUT  > PDATA . 

X PIUAIA  tPli  '.GXK.PPl . PS. PSCCFHiPSeCLtPSeCS. PSGDL. PSGl. PSOK. PSOL. 
b PSuaK.PlN.PaKI.SETIME.SbCFH.SOCL.SOCS.SGEOF.SeF.SGFH.SOFIRtSOE. 

6 Sum. SGNOHM. soPI. SGSN. SCO. SGXKiSCXUCf SSN. SSSWKtSSTlMC. SSTNO. 

7S1 I»t.STN. lYP.  tXDC 

INTtuLR  ll''<r'GC.CMAiCUMA.0V0.0RP10tCRPSCetl02tIDCNT.lCN0.leRP. 

1 IMAT.IMAX.IsEl.ISTAH,ITlMEtlV.NCNSeC»NCS0.N5CTtNX0C.NXUceP.P0«TA> 

2 » PNboCF . PNjULL . PNSCCS. XDCO 
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C 

LOMmuii  LAI;;0UI>CMA(200)>PS2 

INIH.LH  tAiChfc.PiJ 
COM.4UN  ABUHI.  12)  iWOCI  I 3) 

INTtoLH  AUUrtl * iWDCl 
lommon  isxr 
lOmhun  IPi 

C tlASlL  INITUL'ZATION  SECTION 

C INllWLUE  Fl'-E  NUMBERS 

UFIllI  = 1 
IN  = -j 
Ulll  J U 
SOF  i 11 
NSOf  i li 

C INI  I lALUE  KL  I.S 

:iCiLU)  = b 
lIbbr.UF  = 0 
1«A1  A 1 
N^Ui.  r q 
IjAdI  = 7U1 

1DA|£|  = t>u^ 

10*13)  = quj 

lOAlU)  = luu« 

II  F 1 
C 

C C*Hu  INPUT  IJL'INITION  SECTION 

C (HE  fOLLOWIIiu  is  ho«  you  HEAD  CARO  INPUT  VIA  COBOL  LINKABC 
C KEAu  in  ST  ah  I tiEtK  AKO  END  WEEK  OF  ANALYSIS 

C HEAu  IN  A ULA  Ik  FIELU 

bALL  CHEaPI 

1 IlN.lT.STlA'b-triMEiHLANK) 

C HEAU  in  I*1L  i-UMHER  hANOE 

call  tPEAPl 

1 IlNilT. SIN, u’N. BLANK) 

C HEAu  IN  NUM,  tH  OK  ENIBICS  IN  SO  DICTIONARY 

C HEAu  IN  UUMUb  OK  NSO  GROUPS 

CALL  LHfiUl 

1 ( iNi  IT>I.SufC  •NWUCnP#OUMMY) 

L KfAlJ  IN  SNHPuHr  OfNEHAL  UICTlONARY 

II  * 

uo  su  1 Fi » < j^'HC 
CALL  CHEaP<! 

1 ( 1 <4 , 1 T ) iiSuL  1 4 • 1 ) ) RSbC  ( 2 • 1 ) •USGC « 3>  I * • BS6C  U * 1 1 > 

su  loniinuf 

C INIIIALI^IE  INSPECTION  USE  MATRIX  TO  2EB0 

uo  lou  1:1imS0MC 
uu  luu  j:liNt-IICOP 
l'^«l  U.J)  = 0 
100  cONliriuE 

C rilliALI^t  ',I»HT1NG  ANO  ending  VALUES  OF  DO  LOOP  TO  READ  IN  VUC  MOUP 
IS  I All  : u 
UN.j  ; 0 

UO  2lin  liIfNXIICGP 

n - I 

C riCAU  IN  uHOUH  id 

C HE*U  GROUP  Sc  'NFNCE  START 

CALL  CI'FaOI 

• ( INdT.bHHIu.  DiGRPSEOII  I«DUMMy> 

C hEAu  in  NUMkl  0)  INSPECTIONS  ASSOCIATED  VITH  THIS  VUC  GROUP 

C HfAu  IN  liNMi.c”  OK  NSG  ASSOCIATED  VITH  THIS  VUC  OROUP 

CALC  CHEANI 

1 (lri.IT<Nf.SO.I.l.NSGG(II»OUMNYl 

C KlNu  UUT  WMILI'  ENTRY  OF  THE  INSPECTION  MATRIX  NEEDS  MODIFICATION 
IT  i 2 

UO  luu  LUiNLSb 

C HEAU  IN  SGkUC  associated  VITH  THIS  NSG  GROUP 
CMC  CHEAP2 

1 I IN.  ITiSGkUCI  1)  ,SG»UCI2I  >SGVUC(3>rSGMUCI<ll  I 
UO  ISO  J=l>NSGeC 

UO  ins  KFl'R 

IF  isoKUciK)  • nsGCiK.j) )iba>i25tiso 

12b  CONIINUE 

IHAIIJ.I)  A 1 
bO  lU  160 
IbO  CONIIIIUF 
160  CONlllINF 

C UPUA1L  SI  AH)  I 'ft  AND  tWINO  VALUES  OF  DO  LOOP  TO  READ  IN  VUC  GROUP 
ISTah  = ILNP  1 
lENU  ; IcNu  ♦ NENSGGdI 
uO  ISO  JilSI-H.IENU 
call  CHEAC2 

1 I In, IT.uNbbc' l.J) .0NSGC(2.JltBNSGC(3>J)>BNS6CI»>J)) 

190  CONIIMOE 
200  l.ONIINIir 
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r 


c 


c 


c 


c 


c 


c 

c 

c 


c 

c 


c 

c 


I 


c 


c 


INITIALUE  OF  WUC  DEFINITIONS  TO  I£NO 

J^Stl  = ilno 

IT  = 3 

KtAl)  XN  wHtr^  'UsCOVEHED  CODE  DICTIONARY 
call  CREAD3 

1 llN»IT>taCCU(A|  »wDC0(2|»M0C0(5)tli0CD<4|»wDCD<5)»WDCDC6T»HDCDC7)» 

2 wUCU(e) »wutu  91  I 

head  in  »dc  inspection 
CALL  CREA03 

• (lN,IT,nrLX(*l •wncx(2l » woe n 31, dummy •dummy, dummy »dummy»dummy» 

• DUMMY, DUMMY, fUMMYl 
IT  = I 

HEAL)  IN  ADORT  INDICEb 
CALL  CREAOl 

^ (lN,lT,AeUK|T(Xl , ABORT  I (21 , DUMMY) 

HEAU  XN  HM'jT  AIKCKAFT  SUBSET  INFORMATION 

call  crfadi 

I (IH,IT,bbTi,0,SSbwK,UUMMYI 

K).  TUHN 
LNU 

bUMRUUTlNE  CUn<> 

IHXb  bURKUUTll.E  CALL  A COBOL  SUBROUTINE  TO  READ  THE  DATA  BANK 
COMMON  StCTICf 

COMMUrj  AlE,nLANK,BbGC,CHbGX,CI»CNORM,CSGN,CTYPE»CMK,DCT,DDN, 

1 PFm,  OICI.  UlF. 'lOIL,  OIS«PI- tOSt  dummy.  OWK,ENSCWK.£SGt(K>ETlMt.ETN.HMC. 

2 lU.  IN.  I I • I NNSG.NOHS.NbGBC.NSGCFH.NSGCL.NSGCS.NSGEOF.NSGF. 

J NSC.MHiNSGN.I.SGNOH.NSGSN.NSGU.NSGmK.NSGHUC.OAIE.OFILEI.OUT.PDATA. 

A P1.)ATA  .PI.jGWK.PP1.PS.PSGCFH.PSGCL.PSGCS.PSG0L.PSGI  .fsgk.psgl. 

S PSuwK,PrN.PA<I .SETIME.SGCFH.SGCL.SGCS.SGEOF.SGF.SGFH.SGHR.SGL. 

A SuN 1 . SCNOHH . Sup l . sgsn . sgu. sgwk . SGWUC . SSN .SSSWK . SST I me . sstno . 

7sl 1»L.STN. TYPE. WUC 

common  m.-,GC.CMA.CUMA.OVO.GRPlD.GRPSt0.102.  lUENT.  lEND.  1gRP> 

I IMAt  .IMA*.  IS'^r.lSTAH.  ITIHE.  IV.NENSGG.NES0.NSET.NWDC.NWUCGP.PDATA2 
2 . PNSUCF  . HNSGl  1. . PNSGC  S . WOCO 
COMMON  lp<7l 
COMMON  IJn 
UIMtNSIOr,  SLl’ION 

uImlnsION  CN0HM(2|  .CHKOI.NSGWUCIR)  >PDATA(4|  .PIOATAIA)  > 

1 PWKl  (31  ,SGWUC(Ul 

UlMLNblON  ijbV,C((4,3) 

UlMLNblOl,  CMAI2U0) fDVD(4) »IDA(4)#IMAT(3»7) >N£NSGG(7) • 

I PDA  I A2 (4* 3)*  /UCU(9) 

UlMtNblON  («I4S(iC(4,2U0) 

JiMtNblON  G.<Pin(7)  ,OPPSE(3(7l 
TYPE  bPEClF  K'»TI0N  bLCTION 

IfJTLOEH  Al*- , BLANK  *BSGC*CUSGI,  Cl  KNORMfCSGNtCTYPE^CWKrDCTrDDNr 

1 0Fh,UlCT>UIl’H,01L,0lS,0L,0S»0UMMY,nWK,eNSGWK,CSGWK»ETIME,ETN,HMC» 

2 IU,lN,IT»U'r, NNSG , NOHS , NbGUC rNSGCFH, NSGCL » NSGCb » NSGEOF , NSOF » 

3 NboHH,NbGN»ir*GNOM,NbGbN,NSGU»NSGWK,NSGWUC#OAlE»OFILEl»OUT,PDATA> 

4 P I UA  T A , P(  4bOWK , PP I , PS  • PSGCFH  ,PSGCE»PSGCS  #PSODl. » PSol » PSOK , PSOL » 

b Pbo«K,PTN,Pt.<*I,beTIMe,SGCFH,SGCL*S6CS,SGE0PfSGF»SGFH,S0HRrSGL» 

b Sora  ,bGl40RM,:^0PI  >SGbN, SGU, SGWK, SGWUC» SSN, SSSWK tbSTlME, SSTNO » 
7bTlKL,bTN»  rYH^ ,WOC 

INTtOLR  l^4bOC*CMA,CUMA,OVD»GRPIO,GRPSEO,ID^,IUENT,IEND^IGRP» 

I IMaI ,IMaX, IbLT,ISTAH, ITIME, IV,NENSGG,NES0,NSET»NWDC,NWUCGP,PDATA2 
2,PNbGtF,PNbOSw  .•PNSGCb,WOCO 
COMMON  CA(20o) ,CKA(200) ,PS2 

INTcOEP  CA,CRA,PS2 
common  abort  I (2) ,WOCI (3) 
integer  aborii,wuci 

COMMON  XbWX 
common  IPX 

GO  TO  (X0#X0L',TVPL 
HEAu  A support  general  RECORD 
10  CALL  COPKOl 

« (bG)^  »SGLOF»b  SN,bGWK,bGWUC(l),SGWUC(2)»S0WUC(3)»SGWuc(W)  ,DUMMY» 

• dummy,  SGUrSv,'»K,UUMMY,SGNORM,  DUMMY, SGFM,SGCFH,5GCSfS0CL) 

HCTUNN 

REAU  A NON-SU»-POKT  GENERAL  RECORD 
loo  CALL  COBrDI 

• (NbGF,NbGtO)-  ,NSGSN,NSGWK,NS0WUC(X)  ,NSGWUC(2)  ,NSGWUC(3)  ,NSGWUC(4)  , 

• |•DL,HMC,NbGU,NSoHR, AIE,NS0N0M,n0RS,CTyPE,NSGCFH,N5GCS,NSGCL) 


I 


L 


L .aAjm  ..a;^ 


6-198 


HF.  TUh.*4 

LUU 

bUtlHUUTIf^t  bw 

C TlUb  bUtmOUtl^L  HOSIIION  <^6  FILE  FOr  NCM  AIRCRAFT  SUBSET  DiPLNOlNO 

C OU  IWAY  FOh  o«OUI>S  7-17 

C tOM.^OfJ  StCTlO  • 

c 

tOMKOt^  AiL*l)LANK*nSGC*CBb6i»Cl»CN0RM*CSGN*CTrP£*CWKt0CT»D0Nt 

1 I>Fm*U1CT*UIFI  *01L*0lS*0L*0S«UiiMMY*0«K*eNSGHK*£SGWK*LTlMC»ETN»HMC» 

2 I U • 1 N * 1 T 1 1 K A''  • NNSG*  NOhS  i NSGUC  • NSGCFH*  NSGCL*NSG€b*  NSgEOF  » NSGF  t 

3 NboriH,ribON*l4Si,NOM*N^6bNiNbGU*NbG«K*NSGWUC»OAl£*OFlLEl  *GUT»PUATA» 
d rl[)ATA  fPt<nowK*PPl  •PSiPSGCFH«PSGCL*PSOCS*PSGr>l.*PSGl»PSOK»PSGL» 

•t  1 (bF  TlMr*SOCFMibGCL»SOCS*SOEOF»SGF»SGFH»SGHR»SGLi 

A Stii4l  •'>r,i,OM».|<.i.Pl*SGjN*SoUiS0«K*b0WUC*bSN*SSb«tC*bSTlR£tSSTNGt 
7bf IVL  »bTN» I rPt*«UC 

common  iiN^OC*CMA*CUMA*UVUiGRPlU*ORPSEO*102»lD£NT»l£NDtlOHP» 

1 iMAr  f IMA»* Ib^r* ISTAKt lTlMt«lV»N£NSGG*NESG*NSET*NWOC»N«UCGP»PDATA2 
a.PNbUCF  •P^bOk.LiPNSGCb#  wOCO 
common  IP( /) 

COMMOtJ  1(>M 
C OIMtNSlON  btoTlON 

c 

ulMcl^blOh  CN0HM(2) *C«K(3>  *NbG«UC(4l •PDATA{4) »P1DATA{4) • 

1 PNKl ( tboNl ' •bOWUC<4l 
uIMlnSIOn  UboC(4«:)) 

LIMlNSION  CMA(20U)*OVO(4l*inA(4|*IMATO»7)  >N£NSGG{7>» 

1 PUa|A2(4*J)*OCU<9) 
uiml^^sion  ri«%c<4«2un) 

OlMLNblON  OmPIO( 71 #oRPStO( 71 
C IYF*L  bPEClFIC«fION  SLCTION 

C 

IMTcoLM  f blank «BbGC*C6SGl« Cl •CNGRM*CSGN»CTYP£»CWK»DCr» don* 

1 r FrifOlCI  •UlFH«niL«UlS*nL*US*0(JMKY*OWK*ENSGWK*£SGWK>£TlM£,£TN>HMC» 

2 Ill>  Illi  n •!»  ..  •MII'.O>UOl<S>MbGllCiNSOCFH>NSOCL>NSOCS>N^OF0F*NSaFl 

3 NboMKillbONiit  1NOK,NbbbN)^>SG>J•NSUl•)(•NS(}l«UC•O*Ie•OFILCl>0UTlP0ATAl 
* PIu.iIA  .PIAOWK.PPI  •PS.PbGCFH,PSGCL«PSOCS.PSOOL*PSOl*PSOA»PSOL* 
b Pbi^»K,PrN.P«KI.beTIMe.SGCPH.SGCLtSGCS»S0E0PtS6F»S6PH.b6HB»SGU* 

b Sor<l.SGNOK:^,!jPI,S&bN.SGU,  SGWK . SG«UC  * SSN  • SSSWK  • bS  T I ME  • &&TNO  • 
7brU'L,brKi.  fYKF.Muc 

lUtLGtH  MtibGC>CMA)CUMA)0VU)GRP|0>GRPse0«I02«10eNT(ICNDtl6RP> 

1 IMoC . IPAX<  1 iLT)  IbTAH)  tTlME>lV<N{.MbGG>HE&G>NStT«H«DC*VniUCGP*PDA1A2 
2.PNboCF .PNbG^t .PNSGCSiHOCO 
tOMMO.J  C.XJOOl  .CHA(200I  <PS2 
INtLoEP  CA.CttA.PS2 

APOPI  .(21  ,1K0CH3I 
INttutH  AI‘(;HC,WOCI 
tOMMUK  Ibxt 
COMwori  iKi 

ism  : 0 

C btT  PbGI  tu  a'‘PO 

PSOl  : 0 

c iKiiiALuc  pkLvigus  meek  indices  to  -I 

UO  UI.NWUCC.P 

ipcn  = -1 
200  Lomiinir 

C INiflALl/e  cumulative  MAINT£NANC£  actions  to  •! 

UO  ^uo  1=1»NSLT 
CRA(U  = -I 
cAin  = -I 
LMAU  ) z -I 
JOO  LOruifJUF 

GO  ru  <34:0*j<:b)*lwAY 

C LNTtK  urnK  FOF-  PEGINNING  OF  NEW  AIRCRAFT 
C iniUALUf  AIP'IRAFT  bTART  TINL 

J20  bbllHL  r SI  IKE 

C inillALUr  MHvRAFT  bUHSET  NUMRER 

bb-b  = I 

C b/'VL  I'MlVlOUb  ^AIL  F/UHdEH 
PTI^  s bObN 

C CHECK  IF  TAlLf.JMHtR  bUdSLT  EXIST 
IF  (bOSfi-bbr^OI  33I»3J2»330 

c LNTl»<  HFKF  FOh  BEGINNING  OF  AIRCRAFT  SUBSET 
C UPUATL  AIRCWyaI  T bUnbLT  NUMBER 
32b  bbN  r SSt4  ♦ i 

C INIUALUC  AiMcRAFT  SUBSET  START  TIME 

bbllM  r SSSmK 

C WLAi)  ir^  bUubc'  information 

C 330  hFAu  (ir<»3b»  SsTNO*SbS«K 
C 3b  forma t (211 Ah) 

330  CAUL  CKTAri 

1 Urj»IT»bb)HVfSSbWK»UUMMY) 

C LHLcK  rOH  CM..NOE  IN  JAIL  NUMBER 

IF  (bGb»^  -bSINj)  33I*332»320 
C INlllALUt  AlH'RAFT  LNU  TlMfc 
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J31 


3^U 

34b 


34  r 

C 

C 

349 
C 

350 
C 

351 
C 

352 
C 

360 

1Q2Q0 

1Q21U 


C 

C 

C 

C 


C 

c 


c 

c 


360 

c 


362 


•ji  r iM»  = I r iM 

««0  |0  ^4U 

«l  ( I III'  (iMt  < • MlllSt 


'wJl 


«l  1 IM  r. 

enters  wl  lH  AGAINST  STAKTING  WLCK 

34b*  34<>»34‘9 

HJ  Ai.  A buf'POMf  GLNEKAL  «EC0Hi>  F«0M  THE  DATA  BANK  V|A  COBOL  ON  SOF 
IYP|  - 1 
CALL  COP^ 

LHLCK  nlOCKlUf  FLAG 

II  ( u>'*N  « 347»]U2U0*347 

cHtth  MJ><  LMw  3F  INFORMATION  (EOF) 

1T(  boL0»>)  lu2  >0*340*  lU2Un 

CHLCA  FOH  LIUNoE  IN  TAIL  NUMBER 
IF  ibObN  • PIN,  320*350*320 
cHLtK  IF  A SUBSET  EXISTS 
IF  (SGSN  - SSTNO)  352*351*320 
cHLLK  EMDTIWL 

IF  (SLTIME  - S>«K)  325*325*360 
LHtCK  ENOTr^t 

IF  (SLTIME  - SG«K)  345*345*360 

FINU  NEXT  LLGA^  SGHUC 

CALL  FLS02 

kETukn 

L0N( INUF 

WPIIL  (6*10210 

►OHmAT  (13M  so  of  STOP2  » 


ITl  = 0 

CALL  CLOsf F (III) 

call  lojmso 

call  LXIT 
LhU 


SUUmOUT iui  FlSO? 

THIS  SUPhOUTlN  FINDS  A LEGAL  SGWUC 
LOM.ION  StCriON 

LOMmun  i.lE  »LANK.BSGC.CUSGl,CI*CN0RM,CS6N,CTyPE*CWK*DCT»DDN» 

1 OFMiOICI *U1I  H niL*UlS*nL»0S*0UMMt»0WK,ENSGKK»E5GKK*£Tl>^t*ETN*MMC* 

2 lU*  lr4*lT.  l*iAY*MNSG*NOKS*NSGbC*NSGCFH*NSGCL*NScCS*NSGEOF>N$GF* 

3 NSvHH I NSGN I HSgNOM  * NSGSN » NSGU  * N$0WK • NSGWUC  *0A IE»  OF 1 LE 1 * OUT  * PDAT A » 

4 PIuaTA  *P(iSi  )*K.PP1  .PS*PS(»CFH,PS6CL*PSGCS*PSG0L*PSGI  *psgk,p$ol* 
b Psu*.K,PTM.p.^Kt .setime.sgcfh*sgcl*sgcs*sg£of*S6f*sgfh*sghr*sgl* 

6 SGia*SGNOHM,S(iPl«SGSN*$GU«SGWK»SGWUC*SSN»$SS«K*SSTlME*SSTNO* 
7STlMt*STN»  TYr£,WUC 

LOMMUri  Ul^S  •C*CMA«CUMA.UV0*GRP10»GRpSE0f  I02*lDCNTt  1EN0*IGHP» 

1 IMat iIMaX* lSET*lSTAK*lTlMt*IV»NtNSGG*NesG*NS€T#NWDC*NWUCGP»PDATA2 

2 * PNsgCF • PNSGLL  *PNSGCS*  WOCO 
COMvvN  1P(/) 

LOmmvn  lliM 
UlMtuSlON  StLTlON 

UlMtHSlON  CN0HM(2) fCMK(3) *NSGWUC(4) »PDAT A ( 4 ) , PIQAT A ( 4 ) » 

1 PmM  (3)  *So 'll  ( '*)  f SGWUC  (4) 

UlMtNSlON  uSGC(4f3) 

ui Mansion  cma(2oo)*dvo(4) » ioa(4) *imat(3*7) »nlnsgg(7) * 

1 PUA|A2(4f3) *w  CU(9) 

UlMtNSlOH  l'uS(.C(4f2U0l 
UlMti^SlON  GkP»0(  7)  *GRPStO(  7) 

)YHt  SPECIF  IlA*.  ION  SLCTION 


INTLgLK  AlLfPLANKfHSGC*CBSGI»Cl*CNORM»CSON»CTYPE*CWK*DCTrUON» 

1 UFHfUlCr*UlFH,01LfOlS*OL*US*OUMMY*DWKtENSOWK»ESGWK*ETlML»ETN»HMC* 

2 lUf  1N>  1 T*  UoY  NiJSG*NOMS*NSCBC*NSGCfH»NSCCL*N$OC&*NSOEOF»N$OF» 

3 NSoMHf NSGN* nSi.NOM* NSGSN* NSGU »NSCWK»NSGWUC*0 AIE»0F I LEI* OUT *PDATA* 

4 PluATA  *PIiSgWk»PP1 *ps*psgcfh»psgcl»psgcs»psool»pSoi *psok»psol» 

5 PSGwK»PTN.P.»K.,stTlME,tGCFH*SGCL*SGCS»SGEOFtSGF#SoFH*SOH«*SGL* 

6 SGNlfSGNOKP.*S^Pl f SGSN*SGU*SGWKrSGWUC*SSN*SSSMK*SSTlME»SSTNO* 
7ST1ml»STN»  TYPEfWOC 

INTlgLM  BNSGC*CMA*CUMA»OVU*GRPIO*GRP$£0«I02*IOENT«IEND*!6RP* 

1 IMaI f 1MAX*1SETi ISTAKf IT2ME»IV»NENSGG»NESG»NSer*NMDCfNWUC0P«PDATA2 

2 * PNSGCF  » PNSGcL*PNSGCS*  WOCO 

common  CA(20U) *CHA(200) *PS2 

INILGEP  CAfCKA/PS2 
common  al'oh  1 1 ( 31  f woe  1(3) 

INTlgLR  aPOI(TI*WOCI 
COMMON  ISWT 

common  IHl 

DO  3o9  Cr.  jG'  = 1*NSGHC 

CHLCK  all  C iAHACTERS  OF  SGWUC 
UO  3oS  I = i*** 

IF  (USGC(I*C  )S  ;I)  • SOWUC(I))  362*365*362 
IF  (USGC(I*CDSnI)  -Blank)  369r410*369 
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u 

tONIlhUF  i,' 

uo  iu  mu 

toNimur 

CNIKY  FNlSO^: 

rYHu  = 1 

C rtEAu  A So  KtCOPO 
CALC  con^ 

C LHtLK  TAIL  AGAINST  99999999  PAOOtNG  OF  LAST  LAST  BLOCK 

IF  tb&SM  - 9y9q99«T9l  375t40S«375 
C CHLCK  FOk  tOK 

37b  IF  (SGEOFI  Hu0<3b0i4UP 
C btl  TAIL  NlJNotK  TO  99999949 

400  bOS.'j  r 4999499 

40b  CMbol  = Nbot^L  • I 

410  LONi  irjrrc 

Cl  = CHSol 
KLFlh:< 
t4U 

bUiJHOUTiNE  FlTjO? 

C Itilb  bUlKOUfiNt  FiNUb  THL  LNO  OF  THL  CUHftCNT  INSPECTION 

C lOMmoU  ScCliON 

c 

COHmo'J  .Me*|4LArjK»HbGC*CnbGUCt*CNOftH*CSGN»CTTPE«CM>DCT»DON» 

1 ltFM*tilCI  •uU  H.niL*01b*r)L»Db*0OHMV*0MK*ENSGWK*£Si*«K>LTlMe>ETN*HNC» 

2 1U*1N* II • 1»aY  NNSG*N0KS*r4SG»C*NSGCFH*NSGCL»NSGCb#NSGE0F»NSGF* 

3 Nb.jlif^iN-jGNf^b'.NOMfriSGbNiNSGOtNSGWKtNSGFOCtOAtEtOFlLLl  •OUT*PUATA* 

4 PlUAfA  tP  4b(jtkK*PPl  •Pb*nbGCFH»PSGCL*PSGCS*PSGOL*PSOt*PbOK,PSGL» 

5 Pb^Nn.PrNiH  .K.  •srnMe*S0CFH*SGCLtS6CS#SGe0F*S0F*SGFH*bGHP»<;GL» 

6 boru  •bCi40K‘'*b  PI  •bGbM*SoO*SG»K«SG»UC*SSN*SSSl>KtbSTtMe»SbTNO* 

7bl 1>L •STm#  r T|  L.wdC 

tOMvuN  Hr4buC*CMA*CUHA*UVU*6ftPl0»GPPSL0*t02#tUeNT»lLND*tGHP> 

1 IHAr.lf^MXfibL  *!STAHf lTlML«iV«NeNSGG»NFSO*NSET*N«DC»N«UCGP»PDATA2 
2*PNSsfCF  fPN^OcL  Pt^SGCbfaOCO 
COHnOij  1H(7I 

COMwgii  Hp« 

C UlMLN9lOf4  Stwin^ 

UlMtr^blON  CNOH^'tai  «<.«K(3I  •NbGwUCTHI  »PDATA|4)»P1UATAI«>  • 

1 Pom  <31  tbo  4i  ^ I •S<.iiifUC(4} 
ul^’Lf<blOi4  obuC  '4»  SI 

ul^'tWjIOx  C^A(20Ul*nvn<4l*t0A<4|#tHA1<3»7l»NLNSGGl7>» 

1 P|JAIA2<4*3I  *0(/Cu<9l 
U|M,^ijSlOu  f«.<b  C<4»2U0I 
wIMli.SIOn  vjr4p*n<7l  .0RPSL0(7I 
t IYPl  bPrclFIcAflOM  bLCTlON 

KiTc.olK  AlL,9LAriK  tnbOC*CHbGIiCI»CNOPM»CSON»CTYPE*CHK»DCT»DOM» 

1 ''M<,UlC  1 *ul^H,niL.UlS*OL*US*OUMMY»o«K»c:NSG«K»ESG«K*ETl**E»ETN»HMC» 
P I lNSG*NOKS«NSOUCiNbOCFH#NSOCL«NSGCb*NSGEOF»NSGF» 

3 ibv^HH,ri4^r,.,.r.b^  iOM»r:30bN» NSGU«NSGWK«NSGWUCf OAfE»OFILEl  »OUT»PUATA* 

4 P| j.*Ta  *P'4So4K»PPl.PSiPbOCFH»PSOCL*PSGCS*PSGDL»PSGl»PSOK»PSGL» 
b Pbu«K,P|N«M„Ki .SLTlMf:,SOCFHiSGCL»SGCS*SGEOFfSGF»SOFH»SOHR»SOL» 

b »S0i40k  ••*$(,  *liSGbNfS4U»SG«K«SGWUC*SSN»SSSWK*SSTlNE»SSTNO» 
7bTl.-c»STti»l  YPe.9UC 

INTtoLH  ir^SC-C^CMAiCUMAiOVOvGRPIO^GPPSLGttOStlUENTvlENomoKP* 

1 lH,\T>lPA)>»lbLT»ISTAK»|T|ML«IV«N€NSGG»NCSO»NSET*N«OC»N«UCOP»PDATA2 
2»PNSuCT  >prib0CL»  ’NSOCSi»OCO 
common  cAiroul •cha<2uo} fPS2 

INTLGFP  CA,cMA,PS2 
common  APU*4|  1 «2I  i«OC|<3} 

INTr.OLR  APOMll.WUCl 
common  I^WT 
common  ip  I 

C 

C bAVt.  L*S|  SO  Mfc'rORO  INFOHMATION 

2U  PS9•.^  S SC-K 
PbMcFH  = SocfH 
= ijOcb 
P‘.t»CC  = bOCC 
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■F 


? f R Ij— 

iLa 


lf*I  = Cl 

fINo  MtXI  LtoAL  SGWUt 
60  CALL  ^NLbG<! 

C CHtCK  FOH  LNu  i iME 

IF  tiiGMK  - ScTlML)  dS«3U0»i00 
C CHLCK  FOX  CHaNGc  IN  TAIL  NUMBER 
eb  If-  (pri4  - bojN)  3oo*e6*joo 

C CALCULATL  UlkFL<7LNCL  IN  WEEK  FIELD  FOR  CONSECTIvE  SO  RECORDS 
66  UMK  = SGaK  - PSG^K 
C CHLCK  FOX  CMANGJ  |N  wEEK 

IF  IUmK)  3UU«20  9U 

C IS  PKLVIUUb  SG  index  siCiKOO)* 

9U  ir  (WSGI-3)  :iS«400«9b 
C IS  UIFF,  IN  mEE^S  MOHE  THAN  2« 

9b  IF  (uteK-J)  20«2U0*2U0 
C lb  UIFF.  IN  mELKS  MOHE  than  4« 

100  IF  <J«iK«b)  2U«2U0i2U0 
200  COlitlNUt 

cSGak  : HSOr.K 
HE  TukN 
iOO  CONIINUE 

LSOma  = bETl*-e  » 1 

hE TuHn 

LliU 

bUuhOUTlUE  FLNS'i2 

C THIS  SUHhOUIINL  FINOS  LEGAL  NSO  RECOKO  TYPE  4 RECORD  FROM  OaTA  BANK 

C cOMwofi  ScCTloN 

C 

COHMur^  <<lE*nLANK*XbGC»CBSGI«Cl#CNORM»CSON*CTYPE*CWK*DCr*l}DN« 

1 iiFn«i)in  *UIFH«MIl#UIS*OL*US*QUMMT*DWK«ENSOWK»lSGWK*LTIML»ETN*HMC« 

2 IN*  In*  I I * lA  .Y«i<riSG*NOr<S*NbaMC*NSGCFl(*NSaCL»NSOCb*N'>orOE*NSOF* 

i 'I'M  IOU|N'jG’iN>IJSULI>ll'j(>HK«NSOWjC>0AtElUFtLtl  lOUTiPUATAl 

A I'ilJAIA  •'■l.bt.wKii’MltPStl’bGlFH.PsGCLtPSOCStPSGULtPSOtiPsOK.PSGLt 

5 Pb„*K,P|N.P..K|  ,bt time, SGCFM.SGCL. sees. SGtOF.SGF»SGFH.SGHR.S6l.» 

6 SGIl  1 > SONOHks • SGf^l  > SGbN, SGli,  SGHK , SGHUC , SSN, SSSWK  , BST 1 ME  , SSTNO , 
TbliML.STH, rrHE, vuc 

COMMON  ONSG*.,  CMA.  coma.  DVD  •GRP|D,GRPSeO,lD2,lUENT,lEMU>l  GRP, 

I IMaT ,1MAA, IbCT, IBTAH, tTIML,iV,NeNSGC,NEBG,NSET,NWDC,NWUCGP,PDATA2 
2 , PllboCF  , pNbiil.L , , •USGCb , VDCO 
COMmOII  IPI/I 
tOMMOII  ili-i 
C UlMcNblOl,  bLoTIuN 

c A. 

UTMtHblOr,  CNOHMI?) ,LHK<3t,NSGHUCI«l ,PDATAI») ,P1DATAIRI , 

I PWMUI,S0N1I2I,SGAUCI«I 
UiMtNblOI.  BboCU,.1l 

UlMcl'lblON  CMAI20U),DVDI«)  , lOAIRI  ,lMATI3,7l  ,NENSOOI7), 

1 PUAtA2U,il  ,W0':UI9l 
UIM,NbIO(,  t«lBbt|H,2U0l 
OIMtNblON  GIlPlJI  71  ,oRPSEO(7I 

C lYPt  bPEoIPiCATTON  bCCTION 

C 

INTe.OtR  AlE,,lLANK,BbGC,CeiGI,CI,CNORM,CSGN,CTYPE>CVK,DCT,DDN, 

- 1 llFH,DICr,UlFH,  I1L,DIS,I>L, Ob, dummy, OWK,ENS0HK,LSbHK>ETlME>ETN,HMC, 

2 lU,  IN,  I f ,lH,>7,>INSC,NOI<S,llbGllC,NSnCpM,NSOCL,NSOCb,NSOEOF,NSOF, 

3 N'jl.lll(,NbnN,l,b(>liUM,NbO',N,NSOU,NBUHK,NBOHUC,OAlf  ,OFILEI  ,0UT,PUATA, 

R I’lNAlA  ,l'i,bi,.  A,HPI,MS,PbGCFH,PSOCL,PSOCS,PSODL,PSol,PSOR,PSGI  • 
b I'bOHK.r IN,P«KI tbLTIHE,bGCFH,SGCL,SOCS,SOEOF,SOF,SOFH,SOHR,SGL, 

6 SONI  ,br,llOHM,S(,P|  ,SObN, Sou, SeWK, SGHUC, SSN,SSSVK,bSTlME, SSTNO, 
7bTiML,STll,l7,'E,CUC 

IMIloLH  i<NbG^,CMA,cuMA,uvO,GRP|0,ORPSCO,ID2,IDENT,IEND,IORPi 

I IMAI , IMAX, IbET • ISTAM, iriME,|V,NCNSOG,NESO,NSET,NHD€,NHUCOP,PDAT*2 
2 , PNboCF , PUbOCL , PNSGCb , HDCD 
COMMON  OAlai.ul  ,CMAI200l  ,PS2 

IhlLOFU  CA,CMA  PS2 
common  amok  I I 12) .wnci 131 
INILOLK  Al'OHlIikUCI 
common  ibHI 
COMMON  IHI 

C 

ITIMt  = 1 

C CNLCA  NLoCKING  F.AG 

3SU  IF  (NbCSN  - VOORVqqOI  3Sb,60b,3SS 
C CHECA  FOm  til.J  OF  INFORMATION 
3Sb  IF  (r.bOroF)  l(00i3h0,a0U 
C LMtcA  FPm  HCoOHr  TYPE  « 

360  IF  KIYPt  - Ml  370,380,370 
370  ITPt  I 2 

call  CDP^ 

00  10  3SU 

C LMLCA  FOM  change  in  TAILNUMDER 
380  IF  (NbOSN  - PTn.  370,300,805 
C CHECA  HteX  FOH  PASS  ENO  OF  CURRENT  SG 
300  IF  (nsGwk  - lSGHKI  370,395,800 
395  IF  IlSWT)  3711,37.1, Mill 


■1 

A 


1 


•4 


r.-202 


C tHttK  wEtK  bLFOFi  THt  START  OF  ME*T  tNSFCCTtON 
40U  if-  (WSOWK  • SG¥K}  4i0»<»10i810 
41U  continue 

CO  Tu  U«'n*4^(l)  »ITIHL 
42U  CONllNUE 
ITlMt  r ^ 

C bAVk.  PRCVlOUb  WEcK 

PNboftK  : NSOuK 
PNboCF  s NbOcFH 
PNbUCS  = NbUcS 
HNbUCL  5 NbOtt 

430  continue 

lOA  i 0 
NAi  ^ U 
AI  z U 

C CHtCiv  FOk  CH.^NQC  IN  «ECK 

IF  tHIibGnK  • NbCNK)  790*440*790 
440  CONTINIJF 

IF  TNbOSu  • PTN)  790*450*790 
450  continue 

C CHECK  FOk  vac  10  iiHEN  OlSCOvEREO  CODE 
UO  b^o  l:i*NwOJ 
IF  ThOCDU)  - ME.)  520*590*520 
520  CONIII4UE 

uO  540  Kzi*USG0C 
IF  tMUC  - WUcKK*)  540*550*540 
540  continue 
00  TO  37u 
550  CONTlNUt 

IKA  z K 
00  TO 

590  CONiIf^uf 
HAI  S I 
bOO  COITIINuE 

IF  (i  . Apoialun  602*615*502 
b02  IF  U*  Au0KU<2)^  619*615*619 
bl5  A1  : I 
CONllNUk 
lb<At<  Z 0 
UNu  = u 

UO  7UU  ISl*  NVUCQP 
l‘iTAn  S ifNh  ♦ I 
UNi,  z TlNU  ♦ NENSOOill 
uO  ij90  J • IbTAH*  ICNU 

UO  ouu  •'Sl«4 

ir  J)  • NSOVUCIK))  620*680*620 

b2U  IF  (UNSC'C<K«j)  • HCANK)  690*720*690 
b8U  cONiirjur 
oO  Iw  72u 
090  CONTltTUr 
700  CONilNur 
U‘'*  fC  37i/ 

720  v,OfMli,UC 

IF  IHAII  7^b*7S'#725 
725  corii  ihur 

C ACCUF'ULAtE  ^maintenance  actions 
CWAuT  = CWAiJ)*  SGU 
IF  TAI)  73''*370  730 
730  CATJJ  = CATJI  ♦ NSGU 
00  lu  37u 
750  CONllNUf 

IF  MHA)  70u*370*760 
760  CNAu»  = CMATJI  4 NSOU 
00  lu  37u 
790  COfil  lf*UC 

call  V7TI0 

C ^FWO  OUT  -CA-  ARKJY  • 

IS  I AM  r 0 
IF  I =0 

UO  /-^b  1:1»'<««UCGF 
IblAM  = ItNv  * I 
lEliu  = ILNU  * Nir.'^GGU) 

00  Hb  JsIbI«M*ItNn 
cATo)  z 0 
795  CONliNUf 

C hF-INITULI/u  -ITIMf  TO  I - 
Hire  = 1 

C uO  set  IF  ri>E  0 NtAT  INSPECTION  IS  CKCtEOEO  • 
oO  Tu  400 
bOO  f*'>i»SN  z 

605  tNbw*K  = StI I^L  > I 
b 10  hT  T iim  I 


tuu 

bUUHOUTiNF  V«H2 
c common  section 
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COMMON  AlC»nL*NK*BSCC*CeSGl»Cl*CN0RM*CS6NfCTTPevCWK»DCt»00N* 

1 U^H»DlCT»UUH,04L*01S*DLi(;S«0(yMMr»OVM«CMS6»N#CSGM*eriMe»erN»NMCr 

2 1U»IN» II • IWAYfN  IS6«N0HS*NS6UC»NSGCrH»NS6CL*NSGCStNS6e0F»NS0F» 

3 riSoHN»NSGU»r4S0N0M»NS6SNtNS6U*NSGHK*NSG«UC*0At£*0F|tCl»0UT»PDATA» 

4 PluAlA  •PI4S04II..PP1  •PS»PS6CFH»PSGCI.*PSGCS»PSG0L*PSGI»FS6K,PSGC» 

5 PSoAK»rTN*P»Kli j&TIMe»S&CFH»SGCL»SGCS*SGC0F*SGF»SGFH»S6Hfl»SGt» 

6 So>'4i»S0N0HMfSoP'«S6bN»SGU»SGWK»S6«UC»SSN*SSS»K*bSTtMe»SSTN0» 
7STI^L»SlN*TVPt.W'lC 

common  hltSGriCMAiCUMA»OVUfGPPtO«GAPSeO*|D2*tDCNT»|£NO»IOPP» 

1  lMAl,IMAV,I:,ET*4Sr*H>lTlML,IV.NLNSG64NCS6.NSET*N«DC>N«UCGP,PDATA2 
2»PNSOCF»PNSGCL»P  iSGCbtWCCO 
common  |F(/I 
common  |t>»v 

C UIMlNSIOU  SL\.T|0.4 

UlMe  NblCN  CN0HM(2t  •ClfK(5WNSG«UC(4l  •PDATA(4t  ,PIUATaI4I  » 

I P«IM  (31  tSO  a (SGiiUCIAI 
uIMlN’jION  uSvC(4.  \ \ 

U1MlN1,|0(4  CMA(20Ut  •0V0(4I  • tOA(4|  • IMAT 13 • 7 WNLNSgG I 7 1 » 

I ^ ()A(A2(4i3l 
uIMli^^IOh  P(.Si«C(t4«2U0l 
U|ML.4SlO|4  0»«Hln-  71  .OAPSLO(7I 
c TtPt  specification  SLCTION 

c 

INTloM  Air«nLAN*(«HSOC«CMSGI»Cl*CNOPM*CSGN*CTVPC>CPK»()CT»UON» 

1 N^H.iJlr  ( fuU  Nit). • II ISf(iL«US« dummy »o«K»£NSO«K*LS(»«K>tT|MC»CTN»HMC» 

2 IN.  IN.  1 r . l«i.riNM<.o«NOHS.NUGuC.NSGCFH.NSG€L»N$GC^»NSGFOr.NSOF» 

3 NSjiilt.N^r.N.i«SNN0M.NSGSN.NSGUfN$G4K.N$GMiC»0Ale.0FtLEl»0Ut.PDATA. 

4 PIuaTA  .pr^SotMi  .PPI  .PS.PSGCFH.PSGCL*PSGCS.PSGOC»PSGt»PSGF,PSGI.» 
b PSvj»K.P(N,P«Kl.  f TlMt.SOCFH.SGCL«$GCS.SGCOF.SGF»SGFH.SGHP.sGL» 

b SOM .scnOk^ .SoP* .sosn. Son. Soma. sg«dc*ssn.s$s«k.sstimc»sstno» 

70TI^L.STi..TT»fc.«(UC 

INItoLH  liNSGC  CMA.CUMA.UVO#GPPIO*GPPS£G.|D2*tOCNT.|£NO.tOftP» 

I |MA<  . Imav.  I >r.r  .*STAH.  lT|ML.|V.NiNS6G.Nr$G*NSCt.M«DC.N«U€GP*P0ATA2 

2 . PNSoCF  . hNsOoL  . PNSC.C  S . «OCO 
COMf  ON  CA<?0gl .CHA(2U0I .PS2 

l.4(LGrH  cA.ChA  OS2 
common  aPOh 1 1 <21 .MUUl ( 31 
INftOLP  ABONd.MLvl 
common  Ismt 

COMMON  IPl 

I *ftOtP  CAA 
L'  f*^T  V7I  lU 

KNi  s 0 
lSl»*M  s u 

UO  «UU  lo*^Ps|  .NMUCOP 

C CALCULATL  Fli.Sr  I ACF  OF  OUTPUT  lOFNT 
lSfM<  S IfN)  ♦ I 
If  No  ^ It  No  • NFNSOOdGPPl 
IMA*  z Il•(lul^p| 

IF  ( IMAl I ^0o*2Q( . lOU 
lOO  cONiKH^r. 

u\/u<ll  S lU  • <PNSG«A  • P0ATA2(  I*  IMAXI  I 
UVO(«|  S MNSsfCf  • PUATA2<2. IMAXI 
UvUtol  : lu  • (PMSGCS  • P0ATA2(3»|MAXM 
UVIMHI  : lU  • (PNSGCL  • Pt)ATA2(4*|MAXI| 

US  5(PNSoCb  • PSiJ  • 10 
UO  IVU  J SiSTAf  .ItNO 
IStr  S J-lbT»4 

€ CACCULATt  SLCOtiO  HALF  OF  OUTPUT  10 

11L>«1  Z lQQUtGMP13(  loPPI  ♦ GRPS£GdGMPl  ♦ IS£T 
CUMA  s |u«CM.(<J| 

UO  100  1^:1. «• 

IF  (oVOlAll  |AO«iA0.170 
170  CONriMjE 

102  = 10a(K|  ♦ U'000*SSN  * lO^IMAX 
IV  s ovriA I 

CALL  conoul 

• dULNT.ir2»CUMA.0V0(K|.lV| 
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(u'.)  iAu#inii«i*5 

l7^  In^  • lOuOU^jSN  4 K ♦ 2000  4lO«tMAX 
CAA  ^ 10*CAU) 

C/'LL  coeour 

• uoeiJ*ir<:*cAA*is*ivi 
160  CONtiNUe 

190  cONrirjur 
200  CONllUUr 

PS2  = PNiiOLS 
KETUKiJ 
LNTHi  Vlb 
UDN  = 1 
iENu  = 0 
ISTmk  r U 

UO  1200  loHPsl*  JWUCGP 

ISTAk  : lENU  4 1 

IFNJ  = IlNu  4 NeiJSGGdGRP) 

IF  UMAT  ICI  • IGRP)  , 1200*1200*300 
300  iMAx  = IPUGhPi 

IF  UMAX)  I2u0il200*1100 
1100  LONi  ll^UF 

UVUU)  = 10  • (Pfc^GWK  • PnATA2Cl*lMAXl ) 

UVU<2)  = PnS«jCF  - POAtA2(2«1MAx) 

U\/UI3)  : iO  • (PNSGCb  • POATA2  ( 3*  IMAX ) I 
U0U(4)  = iO  * (PNbGCU  - P0ATA2(4*1MAX)1 
UO  1190  JslbTAR*  FNU 
iSLt  = 

C CALCULATL  bLtOfiO  HALF  OF  OUTPUT  10 

U'tNT  r 1000*Gi<Ptt<(l9PP)  4 GrtPSeO(lGPP)  4 ISCT 

UO  iiao  Asi«4 

IU2  S inuOU*bSN  4 K 4 1600  4 104lMAx  4 lOOOOO^CI 
CALL  COHuUf 

• UutNT*  U)2«(.PA(J  «UUN«OS/D(K)  ) 

1180  C0NI1I*UF 

1190  COtMlNUF 
1200  COt^UNUf 
HtTUHN 
tNU 

/•  HLOUIhFu  PlAC^  FU«T«AN  UCO  SOURCt.  RCFORE  THIS  CARD 

//LKLO.AUUcALL  ru  USrOH  .MLIiUUl‘.P>SHrt*VOL>SC«>lll*UNIT>OS'< 

//LKtU.SYSlN  tU  OATA  SPACt>LTUK«CS*bU 
IfJCLUOL  AuUcAlLI  < 87/7  J 

/•  MlOUtKiu  PLAc  LlfiRMJIt  COhTHOlCAHnS  IF  ANY  THIS  CARD 

i‘JH  iMit  In  ut . •>!  i*uNir>(  A4f  i*;**iH  rr.ii  i*fv,N>4A*vA*>7mv» 

//  vu(  y'.t  ex  *t  I « A(i  1 «(t«(  1 *c *r  1 »i)tr !*(.•)  i*r 4r  I*!**)  wrur I* 

//  f«(  i«J*l  .,A*f  t,L*M«M«Fl*N«M»04Fl*P»ri*04ri»H4Fl»S4F)| 

//CMO.M03F001  On  tJl'jJ  >1  fRASS  1*UNIT>C  T4F3*  l*0tFCMl*0SN>4c*9«974l8* 

//  VOl-»SLH>(  4F3,A4F3,h*F3*C4F3*04F3*E*F3*F4F3*G4F3*H4F3* 

//  UF3*J4^  MK4F3*L4F3*H4F3»NfF3*04F3*P^F3*04F3»R4F3»S4F3l 

//cHG.F  TUmFUOI  ro  nSN,  ♦P . 08974 IO* U ISP>C OLr)*PASS  1 

//LHO.KTOrtFoOl  l-U  DlSrX  'PASS  )*UHl  I >C  A4F‘>* 2*OCFCR  3*OsN>4E *96974 12* 

//  VOL>SlM>J  4F«j,A4F«,,B4F«»*C4F5*04FS*e4F5*F4F5*G4F5*H4FS* 

//  j*sJ4F^.*K4Fi>*L4Fb*M4Fii*N4F5*04F5*P^F5*04F5*R^F5*S^F5  3 

//LHG.KilFOOl  Co  OSN  4P.9697413*U1SP>C  *PASS3*SPACE>CCYL»C  009*001  33 

/• 

//C<)8q7(<  tXEC  cqe.u3l|.  riME>n2.ACCT>03S323007  STOALONE  JOHN  LINK 
//CHb,lul2  DU  nli '>C  •KEEPJiUNIT>C*«F1»2.0EFERJ»DSN>*»,9897*i9» 

//  VUL>St.R>'  ♦F1i»*E1iB»F1,C«FI.O*F1.E»F1»F*F1.G*F1»H*f1» 

//  I*F I.J*FliK*Fl.L*FliM«Fl.N*Fl*0»Fl.P»Fl*0*Fl,RFFl»S*Fl 3 

//LHfa.IUlu  lu  {Jib  >t  •KtEHJ,UNIT>CT»F3.1»OEFERl»OSN>FC,9B97lne» 

//  V0L>SER>1 FFSiAFFSfBFFj.CFFStOFFJrEAFSrFFFSfeAFSfHFFSt 

//  I*F J>J*F: iKFF3fLFF3>M»F3>NFF3>0*F3«P*FS«0AFj,RAF3>SAF3] 

//CHl>.IUlb  CU  nSN>*P.9897ms»0ISP>t0L0*0ELETEJ 

//CHO.IU22  00  OISP>C  iKEEP1.UNU>CT*FS>1«OEFER]«DSN>AE. 9897*12. 

//  VOL>SEP>.  *Fbi  A.F'S>6«FSiC*FS.O«FS.EfFS.FAF5'GFFS.HAF3. 

//  1*FsiJ.F  wKtFB.L-FFS.MtFS.NFFS.OFFS.PAFS.O^PB.RFFS.SAPS] 

//CHG.IU2b  Ou  nsN>.P.9a97<ll3.0ISP>COLO. DELETE) 

//CHG.IPHIN  OU  AiSf-ACElC  TRK.C  1.1  ]] 

T/p  Tuib  luooouozoa 

l/<*  iu2b  lUAOOuozoar 

T/P  TU22  lU400lt020<tU 

I/P  Tul*  1U400;0207>. 

I/P  TU12  iu«oo;o207r 

/•  PLACE  T/P  CONTROL  CAROS  BEFORE  THIS  CARO 


rTi»/is  I 
CTlt  » 
Tl2  3 
CTl*  I 
CTI*  2 
TIO  3 
015-lN 
CT22/Z3  1 
CT22  2 
T22  3 

D25-00T 


CT12/13  1 
CT12  2 

T12  3 

CTl*  1 

CTl*  2 

T19  3 

OIS-IN 
CT22  1 

CT22  2 

T22  3 

025-lN 
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6. 10,3  SORT  AIRCRAFT  LEVEL  OBSERVATIONS 


//T9d972  JOU 
//C9e972  EXEC 
//CH6.S0K11N 
// 

// 

// 

// 

//CH6.S0RT0UT 

// 

// 

// 

//CHG.bYSiN 
SORT 
MOOS 

/♦ 


Olr:  6.  mANv>,  :*PrtTY>0>»TYPAUN>HOLD  )<1S10 
P9622N*W>IS9»TXME>Od»ACCT>OdS32d007  2^/12  SORT 
DU  01bP>C  »KEEP)»UNIT>C  A«FS*2*oeFeR)«  CT22/29  1 

rSN>4E«9e9'4I2*  CT22  2 

V0L>SeR>C4»>b*A4FS*e4Fs»C«FS*04PS*e4FS*FArs*6^FS»H^F5»  CT22  9 

l4Ft>#J4F5*»  ♦Fb*L+F*>»M4Fb*N4F5#04F5»P^F5»0^^5»RAF5»S^^59»CT22  ^ 

OCBXCLRCCL' O040»BLKSX2e>2S00 J*LABeL>t  fNSLf RETPD>099] 

DU  OISP>r »PASS3»UN1T>C A4Fl*2*0eFeR3*DSN>^A,9S97411»  CT12/19  1 


VOL>SeR>C«»  i»A4FNB4Fl»C4Fl*04Fl*e4ri*F^Fl»64Fl»N^Fl»  CT12 
l4Fi»J4FI •;  ♦Fi»L«Fl»M4Fl»N4ri*04ri*P^Fi>04Fl»R4Fl»SAPl ]»CT12 
OCB>CLReCL>0040»RLKSI2e>2600] 

DO  ••OCB>BLKSI2e>0080*SPACe>CTRK*CI*13] 
FleLDS>C0U9*014»CHiA«092>006*CH*A3*SlZe>e0600000 
£i5>lEIb*OOB»SOHTL'B»N]fEle>Cei6»024*SORTLtB»N3 


6.10.4  SORT  WUC  LEVEL  OBSERVATIONS 


//Tqa97SB  JOB 
//C9897H  tXEC 
//CHG.bORIlN 
// 

// 

// 

// 

//CHG.bOHTOUT 

// 

// 

// 

//CHG.SYSIN 
SORT 
MOOS 

/• 

//C9897B  EXEC 
//CHO.IOU 
// 

// 

//CHO.TPRIN 
T/P  TU:2 

/« 


01.:  G.  wAi.g.  : •PRrr>o?.rrPRUN>HOLn  sort  iv-ia  xiiio 
P90j2N,i«>1  9. 11ME>U6.AcC1>08S328007  22/12  SORT 

DU  OISP>'  >KCEP1.UN1T>CA«FS.2.UEFEH]. 
rSII>*E. 989/412. 

VOL>SER>C  ».  b.A<F5.B«FS.C«FS.n*FS.E*FS>F*FS.G*FS>H«FS. 

1 J<FS.  ' *Fb.L«Fb.H»FS.N<F5.O«FS.P*FS.0*PS.R«FS.S*ES 
0(.U>CLRtCL>u040.RLKS12e>2800  J.LABELX  .NbL  .RETPD7001  ] 

DU  UIbP>L . PASS  1. UNI T>CA«F1. 2. defer  It DbN>*A. 9897421. 
VOL>SER>C .1  l.A.Fl.bAFl>C«F1.0*Fl.E«Fl>F*Fl.G«Fl.H«Fl. 

i»Fi.j*Fi.>'»Fi  .l»fi.m.fi.n*fi  .o*fi.p«fi>o«fi>r«fi  >s«ri 

Om>CLRECL>U040.BLKbl2E>2A00] 

.......  OU  *.OCB.ULKS12E>0040.SPACE>(TRK.[1.1]] 

P1ELOS71003.014.CH  A,032.006.CH.AJ.S1ZE>E1200000 
eib>CElb*OOb.SORTL'U.N].E18>CE18>024.SORTLlB.N] 

C96gSN.TlM_>oi.AceT>033323007  STOALONE  T P 
PO  01SP>- .KCCP].UNlT>tA»Fl.t,O£PEHJ.0SN>*A.9#9T4il, 
VOL>S£R>t  4Fl.A4Fl.B.Fi.C4F1.0AFl.E*Pl.PAFl. 8471 .MAPI. 
14F1.J4F1.  (4Fl.L4Fl>M4Fl.f<4F1.04Fl.P4Fl>04Fi,R4Fl.S4Fl 
00  4.SPA:t>CTRK.Ct.t}} 

10040402040 


CT22/23  1 
CT22  2 
CT22  3 

1.CT22  4 

CT12/13  1 
CT12  2 
1.CT12  3 


CTlt/lS  1 
CTII  t 
] Tit  3 


PLACE  T/P  CONTROi.  CAROS  BEFORE  THIS  CARO 


6. 10.5  MERGE  WUC  LEVEL  OBSERVATIONS 


//I9n97MA  JOB 
//L9n97A  txLC 
//LHO.SORTINOI 
// 

// 

// 

//CHG.SORTIN02 

// 

// 

// 

//CHO.SOHT1N03 

// 

// 

// 

//CHb.SOHTlN04 

// 

// 

// 

//CH6.SOHT1N07 

// 

// 

// 

//CHG.SORTOUT 

// 

// 

// 

//CHG.SYSIN 
MERGE  PltL0S>[ 

/* 


Ol.l  (t.  WA  9.  I.PHlY>U7.TYP|IIIN>MnLn  McRllf  P'2  Xl3lU 
P9'-.'3'l.  r IMP  >1(1.  ACl.l>ll3'j3/.3no7  MAX  T-WAY  Ml  ('l.r 
OU  II1SP71  .KtlP  J.OMIX  I4f 'j.  I .ULFEH  ),nsN>4E  ,9897421 . 
VOL>StR>C  4(  b.A4Fb.U4Fb.C4FS.04Fb.C«Fb.F4Fb.&4F5.H4Fb. 
l4Fb.J4FS.''4Fb.L4F5.M.F5.N4F5.04.S,P.F5.04Fb.H4F5.S4Fb 
OLB>CLRLCL>U040.HLKS12E>?800 J.LAPEL>t .NbL.RETPO>099] 

OU  01bP>l  .KEEP]. UNI r>[T4F&.l.UEFER].0bN>4F, 9897421. 
VOL>StR>C  41  t>.A4Fb.H4FA..C4Fib.04Fb.E4F6>F4F6.G4F6.H4Fb. 
l4Fl..  J.Fb.A  4Fb.L4Fb.M.Fb.N«F6.04F6.P4Ff..04Fb.H4F6>S4F6 
rt((>lLPLCL>U04  0.l'LKM/E»«OUJ.LAPCL>t  .NSL. Rf. TPP>n99  ] 

OU  I)1SP>.  .KH  P l.UNITX  I4F  /.  1 .OtFEH  1.0SN>4u  .9897421 1 
VOL/StHX  4 '7.A4F  7.ll4F7.C4F7.n4F7.C4F7.F4F7>b4F7.H4F7> 
14F  7.J4F7.K4F7.L4F7.M«F7.N4F7.04F7.P4F7.04F7>H4F7.S4F7 
OCU>CLRECL>U040.BLKbl2E>280U].LABEL>t .NSL.RETP07099 ] 

OU  UlSP>t  >KEEP].UN1t;:T4F8.I .DEFER ]tOSN>4H. 9897421. 
VOL>SER>C  4Pt).A4Fn.H4F8.C4FR.04F8.E4F8.F4F8.G4F8.H4FB. 
l4Fb.J4F8.K4F8.L4Fe.M4F6.N4F8.04F8.P4FB.04F8.R4FB.S4F8 
OCH>t  LRtCL. U040 . BLKSI 2E>2eoO ]. LABELS! .NSL. RETPD7099 ] 

00  0 1 bP>t .KEEP ]> UN I T>C  T4F4 . 1 .DEFER ]. DSN>4D , 9897 421 . 

V0L>SER>t4P4,A4F4,B4F4.C4F4.04F4.E4F4.F4F4.64F4,H4F4. 
14F4.J4F4.K4F4.L4F4.M4F4.N4F4.04F4.P4F4.04F4tR4F4.S4F4 
DLU>[LRECL>0040.HLKSI2E>2800].LAnEL>t.NSLtRETPD>099] 

DO  DlSP>t . KEEP], UNITS! A4F1. 2. DEFER]. DSN>4a. 9097411. 
V0L>SER>!4Fl,A4Fl.B4Fl.C4Fl.D4Fl.E4Fl.F4Fl.e4Fl.H4Fl. 
14F1.J4F1.K>F1>L4F1.M4F1.N4F1.04FI,P4F1,04Fi.R4F1.S4F1 
0CB>! LRECL>0040.BLKSIZE>2800] 

OU  *,OCB>BLKSl2E>0080,SPACE>tTRK.t 1.1 J] 
003.014.CH.A.032.006.CH.A] 


CT22  1 

CT22  2 

J.CT22  3 

CT23  1 

CT23  2 

]>CT23  3 


CT2H 

CT24 

].CT24 


CT2S  1 

CT29  2 

].CT2S  3 

CTIB  1 

CTIB  t 

J.CTIB  3 

CTlt/13  1 
CTlt  t 

).CT12  3 
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6.10.6  OBSERVATION  COUNT 


//L0697Z  EXEC  P96‘>bL»TIMt>01»ACCT>0353^fi07 

//CH0.TU12  DU  niSP>:»PASS]fUNlT>CA4ri*2*0ePCII]*DSN>^A,969791i» 

//  V0l.>SER>C«^l»A«Fi»B^Fi»C4Fl»0«F|«e^fl*F^Fl»9^Fl»H4ri» 

//  I^Fl»j4Fl»K+Fl»L4Fl»M4Fl»N4fl#04Fl,P4fl,0^Fi,R4Fl#S4Fl ) 

//CHG,TUZ4  ru  D1SP>..  vPASSIfUNITK  T4F7*l*OeFCll3*DSN>46,98979l9» 

//  V0L>S£R>t 4’7»A4F7,B4F7*C4F7#0^F7#C*f7»F^F7*04F7»H^F7» 

//  l4F/»j4F7»‘<4F7»L4F7*P4F7#K^F7#0^FT#P^F7t04F7»R^F7»S^^7) 

//CHO. INPUT  Ou  •fSPACL>CCYL»Cl*l]3 

OOUOO  COMJINE  compile  6.  «ANC« 


COMjiNE  compile 
DArL-WPITrti<J.  19  APR  72. 
remarks.  PNmSE  II-  TASK  Iv-  06SERV 
INPuT/OuTPUT  - COBOL. 
ENVIRONMENT  DIVISION, 

CONFIGURATIUN  SECTiON. 
SOUHCE-COMPUTER.  IoM-360, 

00 JECT -computer.  1MM-J60. 
INPUT-OUTPUT  SECTION, 

FILE-CONTHOl. 

SELLCT  OFILEI 

PEbtRvE  7 alternate  AREA, 


OBSERVATION  COUNT. 


bELtCT  UFILECN. 


ASSIGN  TO  UT*S*TU12 
ASSIGN  TO  UT-S-TU24 


PEbLRVE  i lTERNATE  AREA. 
data  DIVlbluN. 

file  section. 

FO  OFIlEI 

recoruIng  mode  Is  f 
dLOCK  Contains  7o  records 

RECORD  CONTAINS  40  CHARACTERS 

larel  hecopus  ^re  omitted 
data  records  ate  OFILEI-REC. 

01  OFlcEl-f<EC  SYNC* 

02  FILLER  PICTURE  XC401, 

FD  OFlLECNr 

RECoRUluG  mode  is  F 

BLOCK  Contains  9o  records 

RECORD  CONTAIN^  30  CHARACTERS 


CT12/13  1 


1440  CDS 
C9e970 
€96970 
€96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C98970 
C98970 
C98970 
C98970 
€96970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C96970 
C96970 
C98970 
C98970 
C96970 
€98970 


IfllbO 

lai-lL  hlCorus 

'HE  omitted 

C96970 

16160 

DATA  HfcOROb  ARE  OBS-REC-CNt 

« 

C98970 

1B200 

01 

OUS-PtC-CNT  SYtiC, 

€^8970 

16210 

02 

filler 

PICTURE  XtSOJ. 

C96970 

30U00 

<iuhkihg-sioi<*6E  sc''-iion. 

C98970 

3013U 

01 

NINE- 30  SYNC. 

€96970 

3014U 

02 

filler 

PICTURE 

*t  2!>J 

VALUE 

€96970 

30150 

:S.R9999999.9.999.9.999999t • 

€98970 

30160 

02 

fjllEh 

PICTU'IE 

XtSJ 

value 

C98970 

30170 

:9999T 

« « 

C98970 

30260 

02 

filler 

PICTURE 

XtJOJ 

VALUE 

€98970 

302^50 

: 99999999999999999999999999999* I , 

C96970 

30310 

01 

HECUHUS-FfAO 

picture  9C7] 

1 srNc 

value  zero. 

C96970 

303;  0 

01 

HECUPUS-PASS 

PICTURE  9C7] 

i SYNC 

value  zero. 

C96970 

30‘*00 

01 

KOIINT 

PICTJmE  S999 

' SYNC 

value  zero  coppotational. 

€98970 

31000 

01 

FIHST-'<LC-SW 

PICTURE  X 

VALUE 

lOI  SYNC. 

€98970 

31010 

01 

OHS-CNT 

PICTiJRE  9C6] 

1 VALUE 

ZERO  C0*<PUT*TI0NAL  SYNC. 

C98970 

3Ti)?0 

01 

OBS-SN-CNT 

PlCTiiRE  9C63 

1 VALUE 

ZERO  computational  SYMC. 

C96970 

42U00 

01 

0-RlC  SrNC. 

C9B970 

42U10 

02 

filler 

PICTURE 

XX 

value  space. 

C98970 

42020 

02 

SN-0 

PICTURE 

xcaJ  value  space. 

C9B970 

42U30 

02 

lu-u 

PICTURE 

xt.J  VALUE  SPACE. 

€96970 

42U3b 

02 

filler 

PICTURE 

X 

VALUE  SPACE. 

C96970 

42040 

112 

Ob-l 

PIC1URE 

XC6l* 

C96970 

42U4b 

02 

filler 

PICTURE 

X 

VALUE  SPACE. 

C98970 

42U50 

02 

Otf-^ 

PICIURE 

XC6J* 

C98970 

42U5b 

02 

filler 

PICTURE 

X 

VALUE  SPACE. 

C98970 

42UhO 

02 

Otf-J 

PICTURE 

XC6  J* 

€96970 

42Ubb 

02 

filler 

PICTURE 

XX 

value  SPACE. 

C96970 

<«2070 

02 

RtO-MK-0 

PICIURE 

X 

value  1*1. 

€96970 

42100 

01 

0-REC-A  SYW. 

C96970 

42110 

02 

SN-A 

PICTURE 

XC8J. 

C96970 

42120 

02 

lU-A 

PICTURE 

KC6J. 

C96970 

42200 

01 

0-RtC-b  StNC. 

C96970 

42210 

02 

SN-M 

PICTURE 

XC8  J* 

C9B970 

42220 

02 

lU-d 

PICTURE 

XC6J* 

C96970 

42300 

01 

0-ReC-CNT  SYNC 

, 

C98970 

42310 

02 

FlLctR 

PICTURE 

XX 

VALUE  space. 

C96970 

42320 

02 

SN-C 

PICTURE 

XC8  J* 

C96970 

42330 

02 

lu-c 

PICTURE 

XC6]* 

C96970 

42340 

02 

Cf<I-C 

PICTURE 

XC6J 

VALUE  1000000 I. 

C96970 

42350 

02 

filler 

PICTURE  * 

VALUE  SPACE. 

€96970 

4235b 

02 

Sn-oHS-CN» 

PICTURE  ZZZlt9  VALUE  lOOOOaOI. 

C96970 

42360 

02 

BLO-Mk-C 

PICTURE 

X 

value  I* I. 

C98970 

PROCEDURE  UIVISIO'  . 
OPtN-EM, 
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C98970 

C98970 


r 


50020  OPEN  INHUT  OPlLEl  OUlPUT  OffLECNT* 

50030  HEAU-IN, 

50040  HPAu  Of^lLEl  1 (TO  U-HEC 

50ub0  A I END  («0  TO  RLCUftO^KFEP* 

50070  IF  F1MS|*MFC*:>W  FUUAL  tit  00  TO  TCST*SN« 

50080  MOVt  5N-0  T ' SN-C . 

50090  MOVt  10-0  TO  lU-C, 

50095  MOVt  2tH05  TO  OUS-CNT  ORS*SN*CNT  SN*OBS>CNT* 

50100  MOVt  :i:  TO  F«H5T*PEC»SW» 

50105  00  TO  READ-  N. 

50110  TEST-SH. 

50115  ADO  1 TO  OtiS-CNT  RECOROS^REAO* 

50120  IF  5N-0  equal  5N-C  60  TO  TEST^lO* 

50125  LAST-CHANbE. 

50130  MOVt  OH5-CNT  TO  CNT-C. 

5014U  AOr  0H5-CNT  fO  OUS-SN-CNT. 

50150  MOVt  01<5-SN-C'<T  TO  5N-0BS-CNT* 

50155  ADO  1 TO  HECC905-PA5^* 

50160  nRITF  OuS-RtC-CNT  FROM  0-REC-CNT* 

50170  MOVc.  2tH0S  O ORS^CNT  08S-SN-CNT  SN-0BS*CNT* 

50160  MOVE  SN-0  TO  SN-C* 

50190  MOVt  lU-0  TO  10-C« 

50195  IF  bN-O  EQUAL  :99999999t 

50196  60  rO  REC)RU-KEEP* 

50200  GO  TO  REAU-tN. 

50210  TEST-10* 

50220  IF  lO-O  EOUA^  I0*C  60  TO  REAQ-lN* 

50230  MOVE  0135-CNT  ’0  CNT-C* 

50240  AOn  OBS-CNT  to  OdS-SN-CNT. 

50250  tRlT£  OtiS-RtC-CNT  FROM  0-REC-CNT* 

50255  AOD  1 TO  RECC )0S-PA5S* 

50260  HOVE  2EhOS  TO  OUS-CNT* 

50270  MOVt  SN-0  TO  SN-C* 

50260  MOVt  10-0  13  lO-C* 

50290  60  TO  RtAO«!N. 

61U00  RECORO-kFeP* 

6IUI0  COMPUTE  KOUNT  > RECOROS-PASS  - ItRECORDS-PASS  / 90l  ♦ 90 J. 

6IU20  LOOP3* 

6IU30  MHIIE  OUS-M-C-CNT  FROM  NtNE-30* 

61040  AOO  1 TO  K0U^r• 

61050  IF  kOuNI  IS  lESS  THAN  90  60  TO  L00P3* 

64000  CLObE-FlLLS* 

64010  CL05E  0F1LE:NT  OFILtS  WITH  L0CK« 

64020  DISPLAY  t IN  t RtCOROS-REAO  UPON  CONSOLE* 

64030  display  t OUT  i RECOROS-PASS  UPON  CONSOLE* 

64040  display  : EOo  9697  t UPON  CONSOLE* 

64050  60BACK* 

/A  PLACE  COBOL  SOURCE  BEFORE  THIS  CARO 

//CHG«TF6IN  00  AiSPACtXCYLK  1»I  )J 

/•  PLACE  TF6  OATA  JEFORE  THIS  CARO 

//TPR*TU12  00  OlSP>tOLOfKEEPJ*VOL>SER>AFltUNlT>TAFl 

//TPR.TU24  OU  OISP>lOLO*AEEP3»VOL>SER>AF7tUNIT>T4F7 

//TPR*TPR|N  00  A*SPMCt>CTRK,CltI33 

T/P  TU24  U000302030 

/♦  PLACE  T/P  CONTROL  CAROS  BEFORE  THIS  CARO 


C9S970 

C96970 

t96970 

C98970 

C98970 

C96970 

C96970 

C96970 

C96970 

€96970 

C96970 

C96970 

C96970 

C9S970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C98970 

C98970 

C98970 

C98970 

C98970 

C96970 

C98970 

C98970 


T12 

T24 


I 


i 


i 


3 


6. 10.7  REGRESSION  AND  CORRELATION  ANALYSIS 


X1310 

PUT  PROGHAH  IN  LIBRARY 
0*  WANO* 


//C9897T  JOB  Olit  6*  vANG,  J»PRTY>05 
//t9B9 7T  tXtC  P9627L# T IME>1 » ACC T>03532 3007 
//CH6. INPUT  PD  «fSPACt>(CYL»CI»l 33 

oouoo  combine  compile 

01040  OATL-WRITTLN*  25  APR  72. 

01050  remarks,  phase  II-  TASK  Iv  II-STATISTICS  FORTRAN  COBOL  LINK. 
01070  INPUT/OUTPUT  • COBOL. 

02000  environment  division. 

02010  configuration  section, 

02020  SOUHCE-cOMPuTER.  IBM-360* 

02030  object-computer*  IBM-360. 

02100  INPUT-OUTPUT  SECTION, 

02110  . file-control. 

02120  SELECT  UFiLtI  ASSIGN  TO  UT-S-FTOlFOOl 

02130  RESERVE  i ALTERNATE  AREA* 

02140  SELLCl  OFlLLrNT 

02150  reserve  1 alternate  AREA* 

02180  select  STATKLPOHT 

02190  reserve  alternate  AREA* 

loooo  data  division* 

10010  file  section. 

14100  FO  STATREPORT 
14120  RECORUll^G  MOPE  IS  F 

14130  BLOCK  contains  15  RECORDS 

14140  RECORD  CONTAINS  130 

14150  LARlI  record  AHP  OMITTED 


ASSIGN  TO  UT-S-FTiOFOOI 
ASSION  TO  UT-S-FTUFOOI 


CHARACTERS 


1440  COS 
C98970 
C96970 
C98970 
C96970 
C98970 
C96970 
C98970 
C98970 
C9n970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 


I 
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14160 

data  hECOROS  ARt  ST ATRCPORfRCC* 

C96970 

14<»00 

01 

staj-hlc  sync. 

€96970 

14<»10 

02  FlUCK 

PICTURE 

XCIJO 1. 

C96970 

17100 

FU 

Of  ILEI 

C96970 

17120 

HCCuRuU<G  MO'>e  IS  F 

C96970 

171  JO 

bLOLF  Contains  7o  hccokos 

C96970 

17140 

HECGRU  LONTI.NS  40 

CHARACTERS 

C96970 

171«)0 

LAPtL  RLCORC^  AHC  OMITTCO 

C96970 

17160 

DATA  HLCOHOS  AHE  OFlLCl^RCC. 

» 

C96970 

17200 

01 

OFIlFI-kEC  SfNC. 

C96970 

17210 

02  FILcEH 

PICTURE  xt«0]. 

C96970 

16100 

FU 

OFltfC  41 

€96970 

18120 

RECuPull^G  mode  is  F 

€96970 

181  JO 

HLOCK  CONI»l  4S  <*0  RECORDS 

€96970 

18140 

RECORD  CONTTTNS  30 

characters 

€98970 

18160 

LAPLL  HtCOROS  ARE  omitted 

€96970 

18160 

data  REcOHOS  AHt  OUS-HCC^CnT* 

€96970 

18200 

01 

ObS-PtC-CNT  jYNL. 

€98970 

18210 

02  filler 

PICTURE  *1301. 

€96970 

JOOOO 

WOKk1NG-STOh*GE  section 

C96970 

JOlOO 

01 

ulnk-uo  sync. 

C96970 

JOllO 

02  filler  picture 

X(  129  J 

value  space. 

€96970 

J0120 

02  WK-KK  PICTURE 

X 

value  it:. 

€96970 

JOcOO 

01 

paglcnt  picture 

Q999 

sync  value  zero. 

€96970 

J0210 

01 

LlNL-LNI  picture 

R9 

SYNC  VALUE  ZERO. 

€96970 

J0220 

01 

L1NL’-M*x*62  picture 

99 

SYNC  value  62. 

€96970 

J02J0 

01 

L1NlS*OoT  PlCtURE 

9(61 

SYNC  value  0. 

€96970 

J0240 

01 

FREti-CNf  PICTURE 

9(61 

SYNC  value  0. 

€96970 

J0260 

01 

OUS-CNT  PICTURE 

9(6  1 

SYNC  value  0. 

€96970 

J02^0 

01 

EFLAG  PlCTimF 

X 

SYNC  value  TOI. 

€96970 

J0270 

01 

FREuEOF  PICTURE 

X 

SYNC  value  lot. 

C96970 

J028U 

01 

ObStOF  picture 

X 

SYNC  value  1 01. 

€96970 

J02<^0 

01 

STATCnT  PICTURE 

9(61 

SYNC  value  0 . 

C96970 

JOJIO 

01 

HECoRUS-HEAD  PICTURE  9tTJ  SVNC  VALUE  ZERO. 

C 96970 

J0J2U 

Ui 

Ktl  0"US-PASS  picture  9tTl  SYNC  VALUE  ZtNU. 

€96970 

J0400 

01 

kOUNT  picture  S<t49  SYNC  VALUE  ZERO  COMPUTATIONAL. 

€96970 

J2U00 

01 

RtPoR  r-iO  < 'NC. 

C98970 

J2U1U 

OZ  EILLtW 

picture  *C5U1  value 

€96970 

J2U20 

iTOBOTTbO 

TFY919-01  I4i»8  1 1/Z  1. 

€96970 

J2UJU 

UZ  tiller 

picture  nsoi  value  space. 

€96970 

J2040 

OZ  TILlEK 

picture  X(3U1  value 

€98970 

J2O60 

! 

*:• 

€98970 

42000 

01 

0-Rt(  SrNC, 

€96970 

42010 

OZ  f ILLER 

PICTURE 

**  value  space. 

€96970 

42020 

OZ  SN-0 

PICTURE 

XI si  value  space. 

€96970 

42UJ0 

OZ  lU-0 

PICTURE 

X(6J  value  spacl. 

€98970 

42ujb 

OZ  filler 

PICTURE 

X value  space. 

€96970 

42040 

OZ  OU-J 

PICTURE 

x(6]. 

€98970 

42046 

OZ  filler 

PICTURE 

X VALUE  space. 

€96970 

42060 

OZ  Pu-i 

PICTURE 

X(6  1. 

€96970 

42 

OZ  filler 

PICTURE 

X value  space. 

€96970 

42or0 

OZ  Cll-3 

PICTURE 

XI  61. 

C96970 

420f.6 

OZ  * illEh 

PICTURE 

XX  VALUE  SPACE. 

€96970 

42U70 

OZ  fcii-mr-O 

PICTURE 

X value  :a!. 

€96970 

42JOO 

01 

O-PLC-L  iT  TNC. 

€96970 

42J10 

OZ  filler 

PICTURE 

XX  VALUE  SPACE. 

C96970 

42J20 

OZ  SN-i. 

PICIURE 

XI  01. 

€96970 

42J30 

OZ  lU-L 

PICTURE 

XI  61. 

€96970 

42  wo 

OZ  Cl.T-C 

PICTURE 

XI61  VALUE  lOOOOoOl, 

€96970 

42J60 

OZ  FILlTH 

PICTURE  * VALUE  space. 

€96970 

42J66 

IJZ  SN-ons-LNT 

PICTURE  ZZZZZ9  VALUE  lOOOOOOI. 

€96970 

42J60 

OZ  RLl)-“K-C 

PICTURE 

X VALUC  If  to 

€96970 

44U00 

01 

TllLf-f'  r*Tl  c. 

€96970 

•»4U10 

02 

CAM-0 

PICTITRE 

K 

VALUE  :i:. 

€96970 

44020 

02 

filler 

PICTJJRt 

X(95] 

value  space. 

€96970 

440  JO 

02 

T-l-b2.  64 

PICTURE 

X(16l 

VALUE  iCORRELATiON.  RCOl, 

€96970 

44  40 

02 

T-I-6‘>  65 

PICTURE 

X(  161 

VALUE  IRESSION  STATISTICS!. 

€96970 

44  JbO 

02 

fillfh 

PICTURE 

X(  361 

VALUf  SPACE, 

€96970 

440^0 

02 

PAOL-Nv-0 

PICTURE 

X(51 

value  tPAGE  1. 

€96970 

44070 

02 

PAOL-C  T 

PlCTtJHE 

2ZZ9. 

€96970 

44080 

0«^ 

« iller 

P1€TURE 

XK 

VALUE  SPACE. 

€96970 

440^40 

02 

CNX 

PicKmt 

X 

VALUE  :«i. 

€96970 

44  1 CO 

01 

TITLf-t'LK  _TNC, 

€96970 

441  JO 

02 

CAh-Bl 

PlCT^WE 

X 

VALUE  SPACE. 

€96970 

44120 

02 

filler 

PICT^JRE 

X(  128) 

VALUE  SPACE. 

€96970 

441  JO 

02 

t-hlx-recmx 

PICTIWE 

X 

VALUE  1*1. 

€96970 

44200 

01 

TITlE-I  St.  C. 

€96970 

44210 

02 

CAH-1 

picture 

X 

value  space. 

€96970 

44220 

02 

ICTURE 

X(6l« 

€96970 

44230 

02 

1U«M 

PICT»)Rt 

■(61* 

€96970 

44240 

02 

Ct-N 

PICTURE 

X(6l 

VALUC  1 CO  1. 

€96970 

442S0 

0? 

CC-U-H 

FUTURE 

-in.Misi. 

€96970 

44260 

02 

A-4 

Pl€Tt>RE 

X(4) 

value  I a>  I, 

€96970 

44270 

02 

A-r>-H 

PICTURE 

•lOl.KSJ. 

€96970 

94260 

02 

R-H 

PICTURE 

XI  «] 

value  1 ■>  I, 

€96970 

44290 

02 

e-n-R 

picture 

-lai.Ptsi. 

C96970 

44J00 

02 

SlR-H 

pictjwe 

XI  A 1 

VALUC  1 SER*  1. 

€96970 

()-209 


44310 

02 

SEW-O- { 

PICTURE 

*C8]*9C&3« 

C98970 

44320 

02 

SLE-R 

PICTURE 

XC6) 

value 

1 SEE>  1. 

C98970 

44330 

02 

SLE-O-R 

PICTURE 

•C8)«9CS3« 

C98970 

44340 

02 

F-R 

PICTURE 

XC4) 

VALUE 

1 F>  S. 

C96970 

44350 

02 

F-U-R 

PICTURE 

*C8).9C5}« 

C98970 

44360 

02 

filler 

PICTURE 

X 

VALUE 

SPACE. 

C96970 

44370 

02 

T-1-RECMK 

picture 

X 

VALUE 

Itt. 

C96970 

44400 

01  TITLE-2  SYiK. 

C98970 

44410 

02 

CAR-2 

PICTURE 

X 

VALUE 

SPACE. 

C96970 

44420 

02 

fillef 

PICTURE 

XC14) 

value 

SPACE. 

C96970 

444  30 

02 

XbAk-R 

PICTURE 

Xt7l 

VALUE 

; )(bar>  I. 

CO8970 

44440 

02 

XbAK-U-R 

PICTURE 

•C8).9C53. 

C98970 

444  50 

02 

Xblo-R 

PICTURE 

XC9) 

VALUE 

I l(Sl6MA>  1. 

C9e970 

44460 

02 

X5lu-0-R 

PlCTiiRE 

•tal.9t53. 

C98970 

44470 

02 

YbAn-R 

PICTURE 

Xt7l 

value 

1 rBAR>  1. 

C9a970 

44480 

02 

YbAt(-L-R 

PICTURE 

*C8).9C5}. 

C98970 

44490 

02 

YSlo-R 

PICTURE 

XC91 

VALUE 

: YSl6MA>  1. 

C9a970 

44500 

02 

YSlO-U-R 

PICTURE 

•t8l.9t53. 

C98970 

44510 

02 

N-R 

PICTURE 

XC4  3 

VALUE 

: N>  t. 

C98970 

44520 

02 

N-U-R 

PICTURE 

Z21ZZ9, 

C98970 

44530 

02 

fillff 

PICTURE 

Xtl6l 

VALUF 

SPACE. 

C9a970 

445*40 

02 

T-2-RtCHK 

PICTURE 

X 

VALUE 

1*1  . 

C9897n 

4AU00 

LlNKAC.F 

SECrlCN. 

698970 

4euto 

46U20 

46U30 

48U40 

48ubU 

48U80 

48U70 

48U80 

48U9U 

48100 

48110 

48120 

48130 

48140 

481b0 

48160 

48170 

48180 

48190 

4O«:00 

40«!10 

48220 

bOUOO 

bOUIO 

b0U20 

b0U30 

bOOMO 

bOUbO 

b0060 

bOU62 

bOU69 

b0U70 

bblOO 

55110 

891 

I 

bhl4U 

bblbU 
b5l60 
b5170 
bb200 
bb2I0 
b6UI0 
bbU20 
b60  30 
56040 
56050 
56060 
56070 
56080 
56090 
56100 
56110 
56120 
56200 
56210 
57000 
57010 
57U20 
57030 
57040 
57050 
57060 
57O70 


77 

77 

77 

77 

77 

77 

77 

77 

77 

77 

77 

77 

77 

77 

77 

77 

77 

77 

77 

77 

77 

77 


ISNoF 

lOrjoF 

JFPlO 

ISNO 

IDO 

lOPl 

10R2 

lOPJ 

FSNb 

FIO 

FCOKP 

FlMTFM 

FSLOPt. 

FSTuEV 

FSTOEt 

FOULS f 

fxhap 

FXf.lO 
FYPAP 
FYSIG 
IFRLO 
ITl 


P:CTURE  S9t8l 
PICTURE  S9C6} 
PiCTURE  S9C6J 
P.CTURE  S9Cd} 
PICTURE  S9C6J 
PICTURE  S9C6] 
PICTURE  S9t6J 
PfCTURE  S9C6J 
P*CTURE  S9C63 
PICTURE  S9C6} 


COMPUTATIONAL  9YNC, 
COMPUTATIONAL  SYNC. 
COMPUTATIONAL  SYNC. 
COMPUTATIONAL  SYNC. 
COMPUTATIONAL  SYNC. 
COMPUTATIONAL  SYNC. 
COMPUTATIONAL  SYNC. 

computational  sync. 

COMPUTATIONAL  SYNC. 
COMPUTATIONAL  SYNC. 

computational*!  sync. 
COMPUTATIONAL-1  sync, 
computational*!  SYNc. 
computational*!  SYNC. 
computational*!  SYNc. 

COMPUTATIONAL*!  SYNC. 

computational*!  sync, 
computational*!  SYNc. 
computational*!  STNC. 
COMPUTATIONAL*!  SYNC, 
computational  Sync. 

COMPUTATIONAL  SYNC* 


ISNOF*  IDNOf.  UFRC9* 


PICTURE  S9t6J 
F.CTURE  S9(6) 

PHOCEOUKE  OlvrslON. 

stats-in. 

ENTRY  ICOUFRO;  USINO 
IF  EFLAC  equal  HI  00  TO  FRE0*1N. 

OPEN  INPL’’  OFILECNT  OFILEI, 

OPEN  OUlPUT  STATREPORT. 

MOVE  :i.*  (0  EFLAC. 

MRlfE  ST«'*REC  FROM  RePORT*lD. 

AOn  I TU  MNES-OUT, 

perform  PaGE*FL1P  THRU  PA0E-FL1P*EKIT. 

FREQ-IN. 

PERFORM  FtAO*FREO  THRU  REAO*FRCO-EXIT, 

IF  fPEQLOP  tOUAL  Ml  00  TO  rMtO-CXlT. 

ARM  1 Ig  .'HMi*CUTt 
MOvt-LlNF*FMf  Q, 

MOVE  5N*C  TO  ISNOF. 

MOVE  1U*C  TO  IDNOF. 

MOVE  CNT-:  TO  UFREO, 

FRE0*EX1T. 

GORACK. 

OBSERVATlONS«iN. 

ENTRY  !*:OUOBS:  USING  1SN0»  100»  lOBl*  lOBS.  10B3. 
OBS-IN. 

perform  PCAU*0BS  THRU  REA0*06S*EXIT, 

IF  unsEQF  EQUAL  Si;  GO  TO  OeS*EXlT, 

ADO  I To  OBS*CNT. 

MOvL*LlNX*Oir. 

MOVt  5N-0  TO  ISNO. 

MOVE  lO-t  TO  IDO. 

MOVE  OH-'  TO  lOBI. 

MOVE  OH-?  TO  1002. 

MOVE  Ob-J  TO  1003. 

OBS-EXIT* 

con AC R. 

REPuRT-OUTf 

ENTRY  .C0B0T2I  USING  FSNSt  F1D»  FCORRi  FINTER*  FSlOPCt 
FSTU'V.  FSTUEE,  FouEST»  FXBARt  FXSIB.  FTBAR»  FYStB» 
IFRuO. 

wRllE  SI-T-REC  FROM  TITLE-BLX. 

L1Nl*1. 

MOVt  FSN%  TO  SN-R, 

MOVE  Flu  TO  lU-R, 


C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C9S970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C9P970 

C98970 

C98970 

C98970 

096970 

C96970 

C96970 

098970 

C96970 

C96970 

C98970 

C96970 

098970 

C96970 

098970 

098970 

C96970 

C9S970 

C98970 

C98970 

098970 

L98970 

C98970 

098970 

C98970 

C98970 

C98970 

C98970 

C96970 

C96970 

C98970 

C98970 

C98970 

C98970 

C96970 

C98970 

096970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C96970 

C98970 

C98970 

C98970 

C98970 

C9S970 


G-210 


L 


b7u80 

MOVE  FCO.IR  TO  CC-D-R, 

C9a970 

b7u90 

MOVE  FIi.'ER  TO  A-D-R, 

C9S970 

b7100 

MOVE  FSLOPE  TO  8-0-R. 

C96970 

b7110 

MOVE  FbltlEV  TO  SER-n-R. 

C9a970 

b7120 

MOVE  FSI>EE  TO  SEE-n-H. 

C9a970 

b7130 

MOVE  FUU'bT  TO  F-.  -R. 

C9a970 

b7150 

•RTlf  SI»T-REC  FROM  TlTLE-1. 

C9a970 

b7160 

LINE -2. 

C9a970 

b7170 

MOVE  FXU  H TO  XUAR-O-K. 

C9a970 

b7180 

MOVE  FXS’6  TO  XSIG-D-H. 

C9a970 

b7190 

MOVL  FTOAH  TO  YdAH-O-R. 

C9a970 

b7200 

MOVE  FTb.G  TO  YSIG-O-K. 

C9a970 

b7210 

MOVE  IFc'O  TO  N-D-R. 

C9a970 

b7220 

WRITE  SIAT-HEC  FROM  TITLE-2. 

C9a970 

b7«;2b 

ADO  1 TO  STATCNT. 

C9a970 

b7230 

ADD  3 IC  LINE-tNT  LINES-OUT. 

C9a970 

bTiluO 

IF  LINE-CNT  EOUAL  LINE-MAx-62 

C9a970 

b7250 

PERFORM  page-flip  thru  PA0E-FL|P-EXIT. 

C9a970 

b7J00 

REPORT-OUT-E/TT. 

C9a970 

b7J10 

GOBACK. 

C9a970 

b9UOO 

REAO-FReO. 

C9a970 

b9UlO 

head  OFIcECNT  into  0-REC-CNT 

C9097O 

b9U20 

>T  END  GO  TO  FREO-EOF. 

C9a970 

b9U30 

IF  SN-C  EOUAL  1 09999999 1 MOVE  SN-C  TO  ISNOF 

C9a970 

b9UM0 

GO  10  FREO-LOF. 

C9a970 

b9UbO 

GO  TO  HewU-FHEO-ExIT. 

C9a970 

b9UbO 

FHEU-EOF. 

€98970 

b9UeO 

MOVE  !l:  TO  FREOEOF. 

C9a970 

b9lOO 

reau-frlo-EaIt.  Exit. 

C9097O 

b9^00 

HEAU-OP!>. 

C9097O 

b9<ilO 

read  OFl'.EI  INTO  0-REC 

C9097O 

b9220 

Af  END  GO  TO  ObS-EOF. 

C9ft970 

b923U 

IF  SN-0  EOUAL  1999999991  MOVE  SN-0  TO  ISNO 

C9a970 

b924U 

GO  ,0  ou$-eof. 

C9A970 

b9^b0 

GO  TO  Pt *0-0BS-ExIT. 

C9a970 

b9260 

oas-EOF. 

C9097O 

b92ft0 

MOVE  !li  TO  OBStOF. 

C9a970 

b9300 

REAU-OPS-EXIT,  EXIT. 

C9097O 

b9MOO 

PAGL-FLIP. 

C9a970 

b9MOb 

MOVE  2LMO  TO  LINE-CNT. 

C9a970 

b9^1U 

ADO  1 To  PAGFCNT, 

C98970 

b9H20 

MOVE  PAoECMI  TO  PAGL-CNT. 

C9a970 

b9«*22 

WRITE  b AT-HEC  FROM  TITLE-8LK. 

C98970 

b9'424 

wRiiE  s'at-hec  from  tttle-blk. 

C9097O 

b9**2o 

ADO  2 to  LTNES-OUT. 

C9097d 

b9H30 

WRITE  S.AT-REC  from  title-0. 

C9097O 

b94UO 

WRITE  S'AT-Rtc  FROM  TTTLE-BLK. 

C9097O 

b9t*50 

AUr  2 TO  LINE-CNT  LINES-OUT. 

C9a970 

b9M9U 

page-flip-exTt.  exit. 

C9a970 

blUOO 

8LGLK-CI(ECK  . 

C9097O 

UlUlO 

entry  iclosef:  using  tti. 

C9097O 

61U20 

tOMPUIL  KOUNT  > LINES-OUT  - CClINES-OUT  / 15J  • I9J. 

C9097O 

blU3U 

L00P3. 

C9097O 

f}l  o4  0 

write  siat-kec  from  title-blk. 

C9097O 

felUbO 

ADD  I TC  KOUNT. 

C9097O 

OU'ftO 

IF  KOuNT  is  less  than  is  go  to  LOOP3. 

C9097O 

6UUOO 

CLOSE-FILES. 

C9097O 

64UIO 

CLOSE  OFILECNI  OFILEl  STATREPOMt  WITH  LOCK, 

C9097O 

64U20 

OrSPLAY  ! FREO-IN  I FREO-CNT  UPON  CONSOLE. 

C9097O 

64030 

DISPLAY  : OdS  -IN  I 08S-CNT  UPON  CONSOLE. 

€98970 

64040 

DISPLAY  : STATS-0  : STATCNT  UPON  CONSOLE, 

C98970 

64U50 

DISPLAY  ! EOJ  98971  UPON  CONSOLE. 

C90970 

64U60 

/• 

GOBACK. 

C9097O 

//CHG, 

SYSIN  DD  DATA.SPACE>tTRK,tI<llJ 

NAME 

/• 

//C9b« 

C8775tR  J 

(7U  HEC  P96.SG(PARM.ASSY>tMAP,LIST.eeOJ. 

C 

// 

par<.lked>:list<xref:,time>o«i.  acct>ojs323007 

//*SS».rri.lN  PU  DATA,SPACE>CCTL»tI,lJJ 

1990  COS 

c 

i ohTRaM-COUOL  link  test,  JOHN  LINK,  KCttT  9* 

c 

v.l  APhIL  J972 

c 

jHib  IS  ./HivtR  TO  calculate  the  statistics 

UIMLNSlON  X( JOOOU) »XdAK(2l»ST0(2l »SKCW(tl»CURTf2)»C(t)»SCA) 

»B(9|» 

I 

: AU)pN(4)»»'  14)  f 10ATA(3WI0!  (2)»I0?(2) 

UlMf  NbrON  uA  J<2) 

INrtOLR  OFIlLl»OFrLE2»OUT 

L = 2 

Nvah  z 2 

MAX  s bnoo 

»AU( 1 ) = -9999* 

UAU)2)  r -94^9, 

MIN  = 4 

c 

HEAU  FRruUtf't  TAPE 

10 

CONTINUE 

CALL  COPfRU  ) 101  ( n » inM2)  *NUMflCR) 

6-211 


tHCCK  FOK  blOCKING  FLAG 
IF  (U)I(l)  - 'iVt'iQW)  2U>10U0.1000 
I tONUNUE 

CMECK  FOk  minimum  NUMBER  OF  OBSERVATIONS 
IF  (NUMBER  • MIN)  1000(30 
CHEtK  FOK  MAXIMUM  NUMBER  OF  OBSERVATIONS 
I IF  (NUMBER  - MAX)  40(40(000 
I NSKIM  = 0 

REAO  observation  tape  and  position  it 
I continue 

call  COBOBS  (I02(l)(l02(2)(IOArAll)(I0ATAI2l(IDATA(3)) 

CHECK  in  ON  ibsekvation  tape  vs  io  on  freouenct  tape 

IF  (lUKl)  - 102(1))  10(310(300 
IF  (101(2)  - 102(2))  10(320(300 

continue 

00  FIRST  POINT 
IF  (1UATA(2))  32b(322(325 

continue 
idata(2)  = : 

I continue 

X(l)  = FLOAT  (10ATA(1))/FL0AT(I0ATA)2)) 
jsN)jMi*rp«) 

X(J|  = rL0AT(]uATA(5)}  / 1U«0 
UO  ^VU  l=2«NuMMtR 
IP  (NSKIHI 
UO  3oU  K = 1 aNSKIP 

call  COBuBS  (102(1)(102(2)(IUAtA(1)(10AtAI2)(IDATA(3)) 

KEAU  IN  OBSEnVATlONS 
CONI INUE 

CALL  COBOBS  '102(l)(102(2)(IOATA(i)(IOATAI2)(IOATA|3)) 

IF  (10AtA(2)i  305(302(305 

continue 
IUArA(2)  = 1 
continue 

X(l)  : FLOAT ( lnATA( 1) )/FLOAT( 10ATA)2)) 

J = number  • 1 

X(0)  : FlOA''(10ATA(3))  / 10.0 
CONTINUE 

00  UATA  cokt^lation  ano  regression  analtsis 

CALL  MISK  (NUMBER(NVAR,X(RA0(XaAR(STO(SKEM(CURT(R(N(A(B(S(lER) 

IF  (UR)  500(405(500 


405  CONTINUE 

CALL  SEESUB  (N  (ST0(R(L(SEE(F) 

VKITE  STATIS.'ICS 
407  continue 

• M0i(I)(101)2)(R(C)(A(L)  (B(L)(S«L)(SEt#F(XeAHT2>($T01*)(*BARll)( 
» ST0(1)(NUMI.eR) 

; GO  TO  REAO  IN  NEXT  FNEOUENCT 
GO  TO  10 
500  CONTINUE 
H(L)  s 0.0 
A(L)  = 0.0 
0(L)  s 0.0 
S(L)  = 0.0 
SEE  =0.0 
F = 0,0 
STO(l)  = 0.0 
STO(2)  = O.C 
<)0  TO  407 

BOO  continue 

NSKIP  = NUMH.R  / max 
number  = NUABEH  / (NSKIP  ♦ 1) 

((0  TO  300 

1000  continue 
c CLOSE  all  fi.es 

ITl  = 0 

CALL  CLOSEF  (IT  I) 

call  eojmsg 
call  exit 

subroutine  M.SR  (NO,M,X(COOE(XBAR,STO(SKEM(CURT(RiN(A(B(S(IER) 

C DETAIL  LEVEL  STATISTICAL  ANALT2ER  - SUB  MISR 

C FOR  A OESCNIPTION  of  MISR  usage  ano  explanation  Of  TeRMS( 

C SEE  THE  SS.'/360  MANUAL. 

' OIMensION  x(T),COOE(l),XBAR(l),sTO«l»(SXE)*TI>(CUMT(l)(Rll)(Mll) 

dimension  AIi)(DI1),SI1) 

c 

c compute  means 


MISR  10 
MISR  20 
MISR  30 
NISR  40 
MISR  50 
MISR  60 
MISR  70 
MISR  80 
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MISR 

90 

1EH=0 

MISR 

100 

L:u 

MISR 

no 

UO  bO  J=liH 

MISR 

120 

FN=U.O 

MISR 

130 

XHAK( J)r0«0 

MISR 

140 

UO  20  1s1«NO 

MISR 

150 

LSL^I 

MISR 

160 

IP  U(L)*CUOw(jn  10*20*10 

MISR 

170 

FNSFN^I .U 

MISR 

160 

XBAKI JlsxeAH* J)4X<L) 

MISR 

190 

continue 

MISR 

200 

IF  (FN)  30*3  *40 

MISR 

210 

c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


30  XBAK(J)=Q«U 
GO  TU  bO 

40  XHAR< JISaBAR . J)/FN 
50  LONTIMJC 

SLT-UP  ROrtK  AREAS  ANO  TEST  MHETHCR  DATA  IS  H1SS1N6 


L = 0 

00  ^dO  JslfM 
LJJ=NO«< J-1 ) 

SKL«i(  J)=U.O 
CUKM  J)=U«0 

KJ5J-M 
UO  ^bO  l:l«J 
Kl=Kl«l 
KJSKU^M 

SUMazO.O 

bUMtsQ.O 

1 ISO.O 
IJSU.O 

nuo.o 

IJJS(i«0 
f lu:u,0 
(UJ:0 

LUog«(l-n 
L J*L  J<J 
t-LM 

UO  SU  Krl *N0 

LUlWI 

LJSLJM 

\f  (A<LlI«-<.Oue(n)  60*90*60 
60  IP  (A(LJI-CO».iU)l  70*90*70 

. fiorn  UATA  ARE  PRESENT 

70  X»=x(LI)-XUAk:1) 

Yt-x  tj) 

I isn*xx 
TI  I = f 
TJ=Ij*YY 
TJJ=IJJ4>YY**c 
7 IJ=I  IJ«>XY*YT 
NIJrOlJ+l 
SUMXiSUMx^XU  Ij 
bUMrrSUMY^Xd  Jl 
iP  (1-J)  9U*60«R0 
00  SKt«<JJ=bKtM<  J|4>YY««J 
CUHT|JJ=4UhT<  n^YY^^H 
90  continue 

COMPUTE  SO'  OF  CROSS-PROOOCTS  OF  DEVIATIONS 

if  INIJ)  llOfMOvlOO 
100  RN-fJlJ 

H(LI=TIJ-TI*T  7FN 
N(LJ£NIJ 
TU  = T11-TI*TI/FN 
TJJsTJJ-TJ*TJ  FN 

COMPUTE  standard  deviation*  SKEWNESS*  AND  KURTOStS 

110  IP  U>J)  100*  20*100 
120  IP  <N1J*^)  n'1*l30*160 
130  IEK=1 

KtL)=I ,0L75 
A(Kn=l.uE7S 
blKlJrl.OETS 
S<Kl)=i,uE7b 
GO  TO  160 
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MISR  220 
MISR  230 
MISR  240 
HlSR  2S0 
MISR  260 
MISR  270 
MlSR  280 
MISR  290 
MISR  300 
MISR  310 
MISR  320 
MISR  330 
MISR  340 
MISR  350 
MISR  360 
MISR  370 
MISR  360 
MISR  390 
MISR  400 
MISR  410 
MISR  420 
MISR  430 
MISR  440 
MISR  450 
MISR  460 
MISR  470 
MISR  460 
MISR  490 
MISR  500 
MISR  510 
MISR  520 
MISR  530 
MISR  540 
MISR  550 
MISR  560 
MISR  570 
MISR  560 
MISR  590 
MISR  600 
MISR  610 
MISR  620 
MISR  630 
MISR  640 
MISR  650 
MISR  660 
MISR  670 
MISR  660 
MISR  690 
MISR  700 
MISR  710 
MtSR  720 
MISR  730 
MISR  740 
MISR  750 
MISR  760 
MISR  770 
MISR  760 
MISR  790 
MISR  600 
MISR  610 
MISR  620 
MISR  630 
MISR  640 
MISR  650 
MISR  660 
MISR  670 
MISR  660 
MISR  690 
MISR  900 
MISR  910 


p ^ ^ ^ 

'1 


c 

MISR  920 

mo 

bTU(j)=R(L) 

MISR  930 

H(L)S1.0 

MISR  9(I0 

A(K1)=0,0 

MISR  9S0 

b(Kl)=l,0 

MISR  960 

b(Kl)=0,U 

MISR  970 

c 

MISR  950 

IF  (bTDlJ)-(1.0E-20n  1S0«1S0»170 

MISR  990 

ISO 

1EKS2 

MISRIOOO 

160 

bTUlJ)zl  ,0L7t> 

MISRIOIO 

bKLti(J)ri,U£;b 

M1SR1020 

CUKT(J)zl.U£7l 

M1SR1030 

bO  TO  26U 

M1SR1040 

c 

MISRIOSO 

170 

tiOKKSSTn(J)/HN 

M1SR1060 

SKLki(J)  = (SKL«t(  J)/FN)/(MORK«SORT(«OftK}  } 

M1SR1070 

CUKT(J)=(  (CUKT(J)/FN)/WORK*#2)«*3*0 

MisRioao 

bTD( J)rsoRTIbTO( J)/«FN-1,0) ) 

M1SR1090 

00  TO  260 

MISRIIOO 

C 

MlSRllIO 

c 

COKPUTF  RtPRESSlON  COEFFICIENTS 

M1SR1120 

c 

MlSPii30 

16U 

IF  (HlJ-2)  Isr«iq0f2l0 

MlSRimO 

IQO 

lEKsi 

MISRIISO 

200 

K(L)=1.0L7b 

MlSRli60 

ACKlin  ,UE7b 

MlSRli70 

b(KllSl«UE7b 

MlSRllAO 

b(Kl)zl«UE7b 

M1SR1190 

A(KJ)=1,UE /b 

M1SR1200 

u(Kj):i .ue /b 

M1SR1210 

b(Kj):l  ,uF.7b 

M1SR1220 

00  TO  250 

M1SR1230 

C 

M1SR1240 

210 

IF  nil-(l«Uc-  0)  1 230«230»220 

M1SR1250 

220 

IF  njJ-(l«UU*?0)  ) 230«230*240 

M1SR1260 

230 

1EH:2 

M1SR1270 

OO  TO  200 

M1SR12A0 

C 

M1SR1290 

2H0 

SUMX=SUHX/FN 

Mispnoo 

SUMYrSUHY/Ff4 

M1SR1310 

b(Kl|sR(L)/Til 

M1SR1320 

AIKJ )sSUMY-B|F1)#SUMX 

M1SR1330 

b(Kj|sR(L)/TjJ 

M1SR1340 

A(KJ|sSUHX«B(KJ)«SUMT 

M1SR13S0 

C 

M1SR1360 

C 

COf'PUTE  CORRELATION  COEFFICIENTS 

M1SR1370 

<; 

M1SR1350 

H(L)=R<L)/(SoR,  <TUI*SORT<TJO)l 

M1SR1390 

c 

M1SR1400 

c 

COMPUTE  STAnOAHO  ERRORS  OF  REGRESSION  COEFFICIENTS 

MISRI410 

c 

M1SR1420 

RR=H(L)««2 

M1SR1430 

bUMXs ( T JJ-T JJ^RR ) / < FN-2 ) 

M1SR1440 

S(Kl)  z SORT  (SUMX/Tll) 

M1SR1460 

SUMts(Tll-Tim,TR)/<FN-2) 

M1SR1470 

b(Kj)  = SORT  <';UMY/TJJI 

M1SR1490 

c 

MISRISOO 

250 

continue 

M1SR1510 

260 

continue 

M1SR1520 

C 

M1SR1530 

RETURN 

M1SR1540 

LNU 

M1SR1S50 

bUbHOUTlNE  SLE^UU  (N#  STO»  R»  K»  SEE*  F) 

SEEB  0 

C 

DETAIL  LLVtL  STATISTICAL  ANALYZER  - SUB  SEESUfl 

C 

SEES  10 

C 

bUB  TO  COMMUIE  STP  ERROR  OF  ESTIMATE  AND  F LEVEL. 

SEEB  20 

C 

SEER  30 

DIMENSION  N(l’ , R(l) 

SEER  40 

SEE  = 0,0 

SEEB  50 

F = 0,0 

SEEB  60 

FN  s N(K) 

IF  (R(K)  - 1,1*  5*b»20 

SEEB  70 

b 

lEHp  = 1,0  • R(K)«R(K) 

SEEB  90 

IF  ITEMP)  20*21*10 

SEEB  100 

10 

SEE  s STD  • bOhT  (TEMP) 

SEEB  110 

F Z K(K)«R(K)  • IFN-2.U)  / TEMP 

SEEB  120 

20 

RETURN 

SEER  130 

END 

SELB  140 

/• 

REOUIhEu  Pi  ACF  FORTRAN  BCD  SOURCE  BEFORE  TMlb  CARO 

//LKCD.ADULALL  Oo  USN>PC/«L  10 i01SP>SHR , VOL>Sf H>I  1 1 .UNITAOSA 

//LKED.STSIN  ru  0>  TA,SPACE>[  TRA.l  firS  JI 

360  COS 

INCLUDE  AuUCAl  LIC871SJ 

/• 

KLOUIkEU  Pi  ace  LINKEOIT  CONIROLCARDS  IF  ANY  BEFORE  THIS  CARD 

//CHG 

.FTUlEOOl  OU  LlSP>t  >PAbSJ.UNlT>IA*Flt2,0EFEH3.0SN>«A. 9897411. 

CT12/13  I 

//  V0C>S(R>r*FliA<Fl,H»Fl,C*Fl,n»FltE*FI.F«F1.6*Fl.H«Fl>  CT12  2 

//  l*Fli.  ♦HiK»FliL»Fl.M*FJ,N*Fl.O»FJ,P*F1.0«Fl,R»FliS*FlJ  T12  S 
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IluFoni  Cu  tPASS  WUUITM  7#  ItUCf^EH  l»0bN>«i».9A^7«l%  » 


// 

// 


VOL>SL/<>I  ♦>■  /•AfF7iLUF?,C»F7»0^E7*E^f  7»f*F7*l»4F7»M*Fy, 
!♦»■/..  »F  7,  •(♦F  7*L*F7*M4F  7#N4F  ?#04F  7»F>^F7*O^F7»K^F7,s^F  7 ] 


//LHO.F  TllFOOl  CU  riSP>C  • PA  SS  J>  U^t  I T >(  T^Fd*  1 «UCFEH  3»  nSN>4H . 9A9792b  * 


// 

// 

/• 


VOL>S7  »«>l  ♦Fo,A«f  A»b«FH»C^Fe*0«Fatt.«FA*F«F6»6«F6»H«F6» 

I I3>.  »Ff)*K«Fa»L«Fa»M«F0»N4Fa»O4FA*F»4F6»O«Fe,H«F6»S«Fa) 


//L9e97U  Lxtc 

//CM6,  rui<: 

// 

// 

//CHO.  lU^** 

// 

// 

//CHG,  lU4ib 
// 

// 

//CHG. TPRIN 
T/P  TU2b 
T/P  TU2‘* 

T/P  TU12 


C9uu3N>1IML>02*Arci>U3b323007  STOALONC  JOHf4  UlNK 
Du  MbPX  iPAbSl*ur4lT>l  A«r  1*2*UCFCH  I*r>:>N>«A  .969791 1 » 
VOL>S(  9>(  ♦Fl,A«Fl,b^Fl.C«Fl»0>Fl>C4Fl»F4Fl>G^FI»H«Fi. 
l*f  li.‘*F  1.l*F1»M4f  I.N^F  1«0^F|*P4F1#0«Fi»R^F1»S«P1  3 

PU  hIbP>C  tPASS  I»U^4!TH  T4F7*  1*01FCH  3*ObN>«G»9697(ii9» 
VJL>bL^>l  *f  /tA^F  7iU«F7*C«F7*04F7*C4F7*F4F7»G«F7»HfF7» 
I»F/*^  ♦F7i»(»F  7»L*F7»H4F7*N4F7*04F7*P^F7*04F7»«fF7,s^F7J 
ru  nibP>C  tPAbS  ItUNITX  UFU*  1*D£FEH  3*ObN>«H.9697ii2S» 
V0l>SL  oc ♦Fa^A^F A*b*Fa,C4Fa»0^Fa*C^Fa»F4F8»6FFa»H4Fa» 
l4Fo*v  »F  eiK4Fa»L4F6>M4Fa*N4F6*04Fb*P4F6»04Fa.R4F6»S^F6 J 
OU  ♦.SPACL>CTH*(U1*I33 
199U130Hl}un 
1U02U30^.I3U 
10020M0/ )90 

/•  PLACE  T/P  CONTROL  CAROS  HCFORE  THIS  CARO 

//C989TU  txEC  C9bu3M*TIMe>o2*ACCT>035323007  STOAtOHf  JOHN  LINK 

//CHG.T(il2  00  L.bP>l  *KeeP3*UNlT>C  A4Fl*2*UeFER3«OSN>«A.96979il» 

//  VOL>St  f>l  ♦F|*A4F|«a4Fi*C4Fl*04Fl*e4Fl*F4Fi»64Fl»H4ri» 

//  I4F l*J4Fl.K4Fl#L4Fl#M4Fi»N4Fl»04Fl#P4Fl#04^l»H4ri»S4Fl 3 

//LHG.TU29  OU  UiSPX •KetP3*UNtT>CT4F7*l*O£F£R3»0SN>«6.96979i9» 

//  VOL>S6  7>t  4F /*A4F7*b4F7*C4F7*04F7*£4F7*F4F7»64F7»H4F7» 

//  I4F  /•/♦F7*K4F7*L4F7«M4F7»N4F7#04F7*P^F7»04F7»ft4F7»S^^73 

//CHG, lU2b  OU  UlbP>l •K££P3*UN1T>C  T4F6» 1 *0£r£ft 3*0SN>^H.969792S » 

//  VOL>SL  i>C 4Fd*A4Fa#a4Fa»C4Fa*0AFa*£4F6*F4Fa»G4F6»H4F6» 

//  i4Fa*  j.Fa*K4Fa«L4re«M4Fa*N4F6»o^r6*P4r6f«^f6tii4F6»s4fa} 

//CHG.IPRIN  OU  4 bPACL>lTRK#C 1*1 33 

T/P  TU25  199ai30H''0C 

1/P  TU29  1U020302o30 

T/P  TU12  10020902  40 


/• 


PLACF  T/P  cc  JTHOL  CAROS  BEFORE  THIS  CARO 


CT24  1 

CT24  2 

T24  3 

CT25  1 

CT2b  f 

T25  3 


CT12/13  1 
CT12  9 

T12  3 

CT2II  1 

CT24  9 

ran  3 

CT25  1 

CT25  2 

T2S  3 


CT12/13  I 
CT12  2 

T12  3 

CT24  I 

CT2A  2 

T2A  3 

cr25  1 

CT2&  2 

T2S  3 


G.IO.S  Tin: XI)  ANALYSIS 


//C«B9/C  jNJb  01.;  W.  ■4At*c  :#VHTt>U2*TtPWUN»lOLT>  TASK  4 TREND  ANAL 
//C0b9/f  txLC  PNi.jSL*’  I’^L>10#ACCT>U3b3/30(lT 

//CPO.ru!/  ru  l)IbP>J  »PASSnUNIT>CT4Fl.l*UCrCH3*t>bN>7A,9R974|4* 

//  VOLxStR.I  l»A4Fl.H4Fl.C4Fl»04ri*£4ri#r4Fl*G4Fl»H4F|» 

//  !♦»  I .J*  I .K*Fl#L4Fl»M4Fi,N^Fl,04ri#P4ri#G4FlrH4Fl*S^fl3 

//L»‘0,  ruiM  ru  UISP>L  .PASSl.UNITX  AfF3*2*OEF£R3*OSN>7C,9e974il* 

//  VUl/S(.R-*C  ♦F3»A4F3.H4F5*C4r3.04F3*£4F3*r4F3*O4F3*M4F3* 

//  !♦»  3.J*  3.k*F3*L4F3»M4F3,N4F3*04F3*P7F3*G4F3,R4F5*S7F33 

//cH&,fL‘2/  nj  .n  p>t  .PASSJ#UNIT>CA^FS*2*0EF£K3.0SN>^£, 9697415* 

//  VUL->bt«'»r  4Fb.A4F5*B4F5*C4F5*04F5*£4F5*F4F5*G4F5*M4F5» 

//  T*F J*rb.K4Fb.L4Fb*M4F5*N4F5*04F5*P^F5*04F5*R7FS*5^FS3 

//CMG, INPUT  nu  4.  PACOtCYL.C  1*13) 

UnuOO  CUK  jlfTF  compile  6.  KANG, 

UlUOO  IUlNT  ir  K AT  ION  (UViblON. 

UIOIO  FHOuRA‘/-li).  CN8.7 
01U20  auimom,  a.  J.  P «*KEK 

UIU30  P^bTALLATlCH,  GENERAL  OYNAMICS/CONvAiR* 

UlUUO  DAIl-kRITTLi..  j may  72. 

UlObO  RtMAHKS, 

U2000  environkent  niV'SION. 

U?Ol0  CONFIGUKATUN  section, 

0.:O20  SOVJRCt-cOMPviTtP.  IBH-360. 

02030  OHJCCT-cOmPoTeM  IHM-3bO, 

02100  INPUT-OuTP«  I sF  TION. 

02110  PlLL-COf.lHCL. 

02120  srLtC  r uns-  ile 

U^13J  RESlRvF  1 alternate  AREA, 

02140  select  FReQ-FILL 

021b0  RlS»MvE  1 alternate  AREA* 

02ib0  select  «.EP0  t-file 

02170  RcbJ.Evf  1 alternate  AREA* 

UVOO  SfLtC.r  ^tP-AYIS-EILL 

03/10  RLbtRvC  1 Alternate  area* 

inoPO  DATA  QIV IbluN. 

;0olO  FILE  SFlTIOT.. 
lllOU  fu  TMFg-FILE 
lll/x)  MEfuPUl'-C,  ^ jT^e  IS  F 

11130  BLOt^  contains  'iO  RECORDS 

11140  RECORD  cOrjTAlfTb  30 

11  ISO  LAPlI  RUtORJS  AhE  OMITTED 

lllhO  data  PLcCwC  1 ARE  FRLO-REC, 

llITO  01  FRF,^-Hf  L SYNC. 


ASSIGN  TO  UT-S-TU14 
ASSIGN  TO  UT-S-TU12 
assign  to  UT-S-TD22 
ASSIGN  TO  UT-S-TU13 


characters 


CTI2  1 
CT12  2 
T|2  3 

CTt4/15  1 
CTl4  2 
Tl4  3 
CT22/23  1 
CT22  2 
T22  3 

1440  CDS 
€90970 
CReRTO 
CRSRTO 
CReRTO 
CReRTO 
CRORTO 
CR8970 
CReRTO 
CReRTO 
€96970 
£96970 
€90970 
C9e97D 
098970 
€96970 
C98970 
€98970 
C98970 
€96970 
C96970 
€96970 
€96970 
€96970 
€98970 
C96970 
€98970 
C9e970 
C9897ft 
€96970 
C98970 


1118U 

02 

fjllEh 

picture 

xx« 

11190 

02 

TR^ 

v*-in,NT. 

11200 

OJ 

AIR'.RAFT-LEVCL 

PICTURE 

Xt83 

11210 

OJ 

FILLER  HEOEFINES 

AIRCRAFT-LEVEL* 

1122U 

04  GROUP- ID 

PICTURE 

xtsi 

112J0 

04  VUC-StT 

PICTURE 

xtsi 

11240 

OJ 

FRrn-CUK-lNSP 

PICTURE 

X. 

112S0 

OJ 

FREw-ISO 

PICTURE 

X. 

11260 

OJ 

frf  j-oata-typc 

PICTURE 

XX. 

11270 

OJ 

FRE 1-ORlOlN 

PICTURE 

X. 

11280 

OJ 

FREU-INU-VAR 

PICTURE 

X. 

11290 

02 

FRLu-OBS 

PICTURE 

9t6  3. 

IIJOU 

02 

filler 

PICTURE 

X. 

11  JIO 

02 

FREw-TOTAL-OeS 

PICTURE 

xt*J. 

11  J2U 

02 

filler 

PICTURE 

X. 

12100  FO 

OBS< 

-file 

12120 
121  JO 
12140 
121b0 
12160 
12170 


01 


HECOPUir;G  4 IS  T 
BLOCK  CONTAINS  fO  RLCONOS 
PCCOPO  COr^AlNS  40 
LAPlL  MoCOnOS  AhE  OMITTLO 
data  HLcOHLi  AKt  OBS-HEC* 
OBS-fitC  SY»t. 


CHARACTERS 


12160 

U2 

filler 

PICTURE 

xx« 

1219U 

U2 

CdS-lDF  ^T 

PICTURE 

Xtl4  J« 

1220U 

02 

filler 

PICTURE 

X* 

12210 

02 

Ob'j-NuM 

PICTURE 

99999V9 

12^20 

02 

filler 

PICTURE 

X* 

1223U 

02 

CMS-DLN JM 

PlCTirpt 

99999V9, 

12240 

U2 

filler 

PICTURE 

X* 

122SU 

02 

OijL-i/in 

PICTURE 

99999V9 

12260 

02 

filler 

PICTURE 

XXX* 

22100 

22120 

221J0 

22140 

221S0 

221h0 

22170 
221RU 
2J10U 
2J120 
2J1  JO 
23140 
231b0 
2J160 
2J17a 
JOUOO 
JOUIO 
Joa20 
J0U40 
JOUbO 
JOUOO 
J0070 
JOU^O 
J0U90 
JOlOO 
J0120 
JOl  JU 
J0140 
JUlbO 
JOlOO 
J0170 

joieo 

J019U 

J0240 

J0250 

jn26U 

J0270 

J02eu 

J029U 

JOJUO 

JOJIO 

J0J20 

JOJJO 

JOJ40 

JOJbO 

JOJOO 

J0J70 

jojeo 

JIUOO 
Jiuio 
J1U20 
JIUJO 
JllOO 
JllIO 
J1120 
Jll  JU 


FO  HEPoWI-^lLF 

RECoR01‘vG  V ^OE  IS  F 

HLOc>^  Contains  i*>  records 

RECgPU  oONT^lNS  1 JO 
LAPlC  RLCOA >S  are  OHlTTtU 
data  Rt cores  ARt  PLOT-HEC. 

01  RLCI-RLc  sync, 

02  filler 

Fu  Vi  P-AaI  j-FT-.E 

recordi  ng  MOf>E  IS  f 
RLocA  Contains  20  records 
RECORD  CONTAINS  «0 
CAncl  HtCOPDS  are  omitted 
DATA  HECOrOS  awe  OFP*A*IS-RtC* 

01  utr-Axib-RFc  Sync  picture  meo) 

W0R4ING-ST0hAgE  sect  ton 
77  LINl-CNT 

TOTaL-LINE-CNT 


characters 


PICTURF  XC1J0J« 


Characters 


01 


SYNC  PICTURE  9t4J  value  2ER0* 
SYNC  picture  9C7J  VALUE  2ER0, 


TAPct-PwS  computational  PICTURE  S999  VALUE  ZERO  SYNC* 

NO-clNE  computational  PICTURE  S999  VALUE  <79  SYNC* 

TEMp-LOc  Computational  picture  S99999V9C43  sync* 
LINL-POs  computational  picture  S999  VALUE  2ER0  SYNC* 

TEMp-vAcUt  computational  PICTURE  S99909V9C43  SYNC* 
DFP-INTlRVAL  computational  picture  599V9t43  STNC. 
MlN-CtP-VALOE  computational  PICTURE  S99999V9C4)  SYNC* 

MONL  computational  PICT(WE  S99  VALUE  -1  SYNC, 

CNT  computational  PICTURE  S999  VALUE  ZERO  SYNC* 

PAGt-NO  COMPUTATIONAL  PICTURE  ' #9  VALUE  ZERO  SYNC* 

MAX-rtP-VALoE  computational  PICTWE  S9tSJV9t4J  SYNC* 

DEP-1  computational  PICTURE  S9lSJV9t4J  SYNC* 

OEP-2  computational  PICTURE  S9tb3V9t4J  SYNC* 

OtP-J  computational  picture  S9tSJV9l4J  SYNC* 

UEP-4  computational  PICTURE  S9tb3V9C4J  SYNC* 

TEMP  CC ^puTATIONAl  SYNC  PICTURE  S9CbJ« 

INO-KNT  computational  SYNC  PICTURE  S999  VALUE  ZERO* 


IND-INI  computational  SYNC 
SOM  COMPUT*  'lONAL 

no-of-o»js  computational 
ous-CNT  Computational 
INO-CNT  co>  .’utational 
ons-FAcroR  computational 

STAhT-FLAG 
NO-PLOTS  SYNC 
NINE  SYNC 

S9<*9999999999991. 

MAx-AlLOV-IND  computational  picture  59t7j, 


picture  S999. 

PICTURE  S99999V9C43, 
PICTURE  59999V9t4J* 
PICTURE  S999* 

PICTURE  5999  VALUE  ZERO* 
PICTURE  S99V  VALUE  ZERO* 
PICTURE  )C  VALUE  SPAcC* 
PICTURE  9t6)  value  ZERO* 
PICTURE  H |4  3 value 


numerator  computational 
denominator  computational 

DEP-TITlE  f tnc* 

02  filler 
02  OEPLNOtNT-TlTLE 
02  filler 

iNOtPEf U-TITLE  SYNC* 

I NO-BLOCK 


picture  S9C5JV9C4J, 

PICTURE  S9tb]V9t4J. 

PICTURE  *1403  value  SPACE. 
PICTURE  xceoj, 

PICTURE  XtlOJ  value  I 


02 

02 


PICTURE  XtflOl. 

FILLER  REDEFINES  INO-OlOCK, 

GJ  IN(  PICTURE  * OCCURS  BO  TIMES* 


C9fl970 
C98970 
C9fl970 
C9e970 
C98970 
C9fl970 
C98970 
C98970 
C9e970 
C9697C 
C9e970 
C96970 
C9e970 
C9e970 
C9e970 
C98970 
C98970 
C98970 
098970 
C98970 
C96970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C9fl970 
C98970 
CP8970 
C98970 
C98970 
C98970 
C9A970 
C98970 
C9fl970 
C98970 
C9ft970 
096970 
C98970 
C98970 
C9ft970 
C98970 
C9ft970 
C98970 
C989T0 
C98970 
C98970 
C98970 
C98970 
C98970 
C9B970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C96970 
096970 
C96970 
C98970 
098970 
C98970 
C98970 
C98970 
098970 
C98970 
C98970 
C98970 
098970 
C96970 
C98970 
C96970 
C98970 
C98970 
C96970 
C98970 
C96970 
C98970 
098970 
* C96970 

C98970 
C96970 
098970 
098970 


G-21(i 


JIJOU 

01 

FILLER  bYNf, 

€98970 

JUIO 

02 

filler  occurs  200  TIMES. 

C9R970 

31320 

OJ  IN(--VALUE 

PICTURE  S9C6I. 

€96970 

31330 

03  OEF -VALUE 

PICTURE  S9Cb]V9C«l. 

096970 

31H0U 

01 

PLOT-IIILE  ^YNC. 

C98970 

31<«i0 

02 

filler 

PICTURE  XC221  V*LUE 

C96970 

31H20 

:i  Current  iocnt 

C96970 

Jl'tJO 

02 

CUR-IO 

PICTURE  XC16I  value  space. 

€98970 

3IHM0 

02 

filler 

PICIURE  XC051  value  space. 

C98970 

31**b0 

U2 

filler 

PICTURE  XC«J  VALUE  IPAGEI. 

098970 

3l‘*<)0 

02 

P»(.L-U1  -RPT 

PICTURE  29. 

C909T0 

3147U 

02 

FILLER 

PICTURE  X VALUE  Itl. 

C989T0 

3lb0U 

01 

OEP 

-axIj  sync. 

CO8970 

31bl0 

02 

filler 

PICTURE  xct*]  value  space. 

C909T0 

31f>20 

02 

OEM-Mir-HPT 

picture  22229*999. 

€98970 

31b30 

02 

FILLER 

PICTURE  xciii  value  space. 

C96970 

31640 

02 

CLP-l-RPT 

picture  22Z29.999. 

C98970 

31650 

02 

FILLER 

PICTURE  xcii)  value  space. 

C98970 

31O60 

02 

rLP-2-rRT 

PICTURE  22229.999. 

C96970 

31670 

02 

FILLER 

PICTURE  XCllI  value  space. 

C9R970 

310HU 

02 

nEM-3-KPT 

PICTURE  22229.999. 

C96970 

31600 

02 

FILlEr 

picture  XCllI  value  space. 

C96970 

31  /OO 

02 

CEP-4-roT 

PICTURE  2ZZ29.999. 

C96970 

31710 

02 

filler 

PICTURE  XCllI  value  space. 

C96970 

31720 

02 

DEP-MAI -ppt 

PICTURE  22229.999. 

C96970 

31730 

02 

filler 

PICTURE  XITJ  VALUE 

C98970 

31  740 

: 

C96970 

31000 

01 

OEP 

-LINl  bxNC. 

C98970 

31610 

02 

filler 

PICTURE  XISOl  value 

C96970 

31620 

1 1 

— II. 

C98970 

31630 

02 

filler 

PICTURE  XC501  value 

C98970 

31650 

02 

FILi-ER 

PICTURE  XISOl  value 

C9B970 

31660 

—I — 

••«I  tl. 

C9897D 

31000 

01 

PLOT-LII<t  iTNC. 

C98970 

JIVIO 

02 

filler 

PICTURE  XI 8 I value  space. 

C909T0 

31020 

02 

INL-Ou' 

picture  X. 

C9e9T0 

JISJO 

02 

filler 

PICTURE  XI2l  VALUE  SPACE. 

C9B9T0 

31040 

02 

WEEK-HFT 

PICTURE  ZZZ2Z9. 

€98970 

Jisbo 

02 

filler 

PICTURE  XX  value  SPACE. 

C989T0 

Jiysb 

02 

INU-AX’S-STMfl 

PICTURE  X value  us. 

C98970 

31060 

02 

0UTPUT«LINE  OCCURS  lOO  TIMES 

C9B970 

J1S7U 

PICTURE  X. 

C9e9T0 

31060 

02 

fillfr 

PICTURE  XCIOI  value 

C9B970 

31000 

: «:• 

C9B970 

33000 

01 

Rf.roPI-lO  -iTNC. 

C9B970 

33010 

02 

filler 

PICTURE  XISOl  value 

C98970 

33020 

:»^697C60  TF7919 

-01  192-8  1 1/8 

C9B970 

33030 

U2 

FlLi.fR 

PICTURE  XISOI-VALuE  space. 

€98970 

33040 

02 

filler 

PICIURE  XISOl  value 

C98970 

33050 

: 

«:• 

€90970 

3530U 

01 

F ILLJ  N 5tN(  , 

C98970 

35310 

02 

TEP-Ax’S-LIST  occurs 

15  TIMtS 

CO8970 

3 020 

PICIURE  XCOOl, 

C98970 

3'»Uf'0 

01 

CUT 

-OFF-PE-  STNC, 

C98970 

3 >070 

05 

Cur  I OK"* 

PICTURE  9151. 

C96970 

37UQU 

05 

filler 

PICTURE  XC751. 

C98970 

50000 

PROCLDUhC  i)iVI  .ION, 

C98970 

50010 

OPFN  input  Of>S-FILE» 

C96970 

50020 

FME(J-FILE» 

C98970 

50025 

UEP-Axlj-FiLf. . 

C98970 

50030 

OUW’U 

report-file. 

C98970 

bOOUO 

POOL  290  nm-cNT. 

C96970 

50050 

PEPFOHm  RlAO-OLP-AXIS  thru  ENO-ROA. 

€98970 

50070 

PlOt-REC  from  REPORT-IO* 

C98970 

50100 

REaU-FPLO-F ILt 

C96970 

50110 

REAti  PML0-^ILE»  at  ENQ  00 

TO  FR1.0-ERR0R* 

C9B970 

50115 

IF 

FREU-lUEf<T  15  equal  TO 

NINE  00  TO  FREO-ERROR. 

C9097O 

50120 

COMPUTE  OM, -FACTOR  > IFKEO-OPS  < 49993  / 5000* 

C98970 

50130 

!■= 

pRLo-Itr  -VAR  IS  equal 

TO  ;l;  PERFORM  SET-WEEKS. 

C98970 

50140 

IF 

FPLU-INH-vAR  is  equal 

TO  12:  PERFORM  S£T«FLT*HRS. 

098970 

50150 

IF 

PPEO-lNi>-VAH  IS  EQUAL 

TO  SSI  PERFORM  SET-SORTIES. 

C98970 

aUlbO 

IF 

fPLO-IN'-VAR  IS  equal 

TO  :4:  PERFORM  SETM.ANDIN6. 

098970 

50170 

COPPUTL  MA'^-AlLOW-INO  > 200  • INO-INT* 

€98970 

50190 

MOVE  INu-INT  TO  TEMP. 

€98970 

50200 

MOVE  2ER0  ,0  SOM. 

C9B970 

50^10 

MOVE  ^6R0  0 NO-OF-ORS* 

C98970 

50220 

f'EBFOH''  SE’-riEP-TlTLE  THBU  ENO-SOT. 

C98970 

1,0230 

PLRFOH'^  HE5ET-TARI.E  THRU 

EnOoR^T. 

C98970 

50240 

MOVE  1 .0  INU-CNT. 

C98970 

50250 

move  iNu-r  t to  ind-value 

( INO-CNT 3. 

C98970 

50300 

RfcA0-0P5-F ILE, 

C98970 

5030b 

IF 

stari-flag  is  equal  to 

tit  MOVE  SPACE  TO  START-PLAO, 

C98970 

50306 

GO  ro  I OFA. 

C98970 

50310 

MOVE  MO  •'O  OHS-CNT. 

C96970 

50320 

POP  , 

C98970 

bOJ30  HEAD  UB:>*F.LE#  At  END  60  TO 

bU33b  IF  OBb-lOe  'T  IS  EOuAL  TO  NINE  60  TO  Cr*a* 

S0340  ADO  1 TU  O^S*CNT, 

S03b0  IF  0HS*CNT  is  LESS  THAN  06S*FACT0ll  60  TO  60F. 

S0360  NOfA, 

S0400  IF  06b*lOENT  IS  E<iUAL  TO  FREO-fOCNT# 

b04l0  60  TO  CURRENT^OATA* 

S041S  IF  N0*0F>*0*iS  is  EOUAL  TO  ZERO  60  TO  F1LL«IN0-V*LUC« 

5041b  COMHUTt  nef •VALUE  C1N0*CNTJ  > SOM  / N0-0f«0«S« 

50H20  FILL-INU-VAlUE 

50430  IF  INU-CNt  IS  6HEATE6  THAN  66  #0  TO  SCT-PLOT* 

50440  ADO  1 TO  lr.O*CNT»  AOO  |NO*tNT  TO  TCMM. 

50450  HOVL  TEMP  0 1NU«VALUE  CINO«CNTJ  60  TO  f ILL^INO^VALUC* 

50460  SET^PLOT.  PLPFrRM  PLOT^OATA  THRU  ENO^RO* 

50470  60  TO  PEAO-FREO*FILE. 

51U00  plot-oata, 

51004  IF  fPEO«OH'  IS  LESS  THAN  CUTTOff  60  TO  ENCM^. 

51U10  HOVL  ZERO  tq  PA6E*N0« 

51U20  MOVL  ^i9900  TO  MlN*OEP«VALUe  • 

51O30  MOVL  zero  *0  CNT. 

51U40  MOVL  zero  *0  MAX*0£P«VALUe • 

51050  MOVL  :it  TO  START«FLA6. 

51100  PlNO*MlN*MAx, 

51110  AOO  1 TO  C IT. 

51120  MOVL  UEP-VALUE  CCNTJ  TO  TEHP^LOC. 

51125  IF  TEMP-LOr  IS  LOUAL  TO  MONE » 60  TO  NExT^VALUE* 

51130  IF  TEHP-LOC  is  6REATER  THAN  MAx*OEP«VALUE# 

51140  MOVE  TEMP*L0C  to  MAX«0EP«VALU£ . 

51150  IF  fEMP-LO'  IS  LEbS  THAN  min«OEP« VALUE. 

51160  MOVL  TLMP-LOC  to  MIN-UEP-VALUE • 

51210  NLXT«VAlUL. 

51270  IF  CNf  IS  LSS  THAN  1NU*CNT  60  TO  FlND«MlN^MAx» 

51280  IF  MAx*uEP^VALUL  IS  EQUAL  TO  2ERO  00  TO  ENO^PD. 

51262  IF  MAX«uEP«VALUL  IS  !Xi1  LESS  THAN  10*  60  TO  HuNQ^SCALE . 

51284  MOVL  ZLkO  ;0  M1N>U£P«VALUE . 

51286  IF  MAX*UEP  vALUE  IS  NOT  LESS  THAN  1* 

51288  MOVE  10  TO  MAx-OEP*VALUE • 60  TO  C0MPUTE*|NTERVAL • 

51290  IF  MAx-uEP«VALUt  IS  NOT  LESS  THAN  0.1* 

51292  move  1 TO  MAx*OEP.VALUE*  60  TO  C0MPUTE*|NTEMVAL* 

51294  IF  MAx*jEP  value  IS  NOT  LESS  THAN  0.01* 

51296  MuVE  O.i  TO  MAX-OEP-VALUt*  00  TO  €OMPUT€*tNTEMVAL* 

51296  MOVE  0.01  TO  MAX«UEP*VALUE. 

51291  COMPuTE-INTlRV'L. 

51300  .COMPUTE  Olo-INTLRVAL  > C MAx-OEP-VALUE  • M|Ni-0€^*VAtUE ) / 100* 
51310  COMPUTE  0EP*1  > MIN-OEP-VAlUE  < COEP^lNTEAVAt  • fO)* 

51320  COMPUTE  OE > MIN-OEP-VALUE  < IDEP^InTERVAL  • 40  3* 

51330  COMPUTE  0e'»*3  > MlN-OEP-VALUE  < COCP«InTERVAL  • 60  3* 

51340  COMPUTE  OtP-4  > MlN-OtP-VALUE  < COCP*lNTCRVAt  • 003* 

51350  MOVL  MlN-OuP-VALUE  TO  OEP*M|N*RPT. 

51360  MOVL  UEP-l  TO  OEP-l-RPT* 

51370  MOVE  UEP-2  TO  OEP-2-RPT* 

51360  MOVL  ULP-3  TO  UEP-3-PPT* 

51390  MOVL  UEP-4  TO  UEP-4-RPT* 

51400  MOVL  MAx-Ofo-vALUE  TO  OEP-MAX-RPT. 

51410  MOVL  FRLO«TOEN1  TO  CUR-10. 

51420  AOO  1 TU  NO-PLOTS. 

51500  VRITE-PLOT-UTLE. 

51510  AOO  1 TO  P/GE-NO, 

51520  MOVL  PAoE-NO  TO  PA6E-N0-RPT, 

51530  VRlrE  PLOT-REC  FROM  PLOT-TITLE. 

51540  WHITE  PlOT'HEC  FRQM  DEP-TITLE. 

51550  WRITE  PlOT'-HEC  FROM  DEP-AXIS. 

51560  WRITE  PlOT-REC  FROM  OEP-LlNE. 

51570  MOVL  4 lO  clNE-CNT. 

51580  ADD  4 TO  T^TAL-L INE-CNT . 

51590  MOVL  2ErO  TO  INU-KNT. 

bltoOO  ENO-WPT. 

51610  MOVL  XLRO  '0  TAULt-POS. 

51700  CLLAR-OuTPUf-b'.OCK. 

51710  MOVL  ZERO  TO  CNT. 

51T20  COO. 

51T30  AOO  1 TO  C’‘T. 

51740  MOVL  SPACE  TO  OUTPUT-LlNE  CCNT)* 

51750  IF  CNT  IS  LESS  THAN  100  60  TO  COB. 

51760  ADD  1 To  T BLE-POS. 

51770  MOVL  INU-V*LUE  CTABLE-POS3  TO  MLEK-MPT. 

51T60  ADO  1 TU  IND-KNT*  MOVE  INO  IINO'KNTJ  TO  INO-OUT. 

51/90  IF  INU-RNt  is  6HEATER  THAN  79*  MOVE  ZERO  TO  |ND-KNT. 

51900  HOVE  :il  TT  IND-AxIS-SYMB. 

51920  MOVE  UEP-vAluC  tTAPLE-POS3  TO  TEMp-LOC. 

51930  IF  TEMP-LOC  IS  NOT  EQUAL  TO  MONi*  OO  TO  FILL-LM. 

51940  60  TO  Wk1T>LINL. 

52000  FIlL-LN. 

52001  If  TEMP-LOC  IS  EQUAL  TO  ZERO  MOVE  I4t  TO  1N0-AX|S«SYMB* 

52002  00  TO  HRITC-LINE. 


C96970 

C9A970 

C90970 

C96970 

C98970 

C96970 

C96970 

C96970 

C98970 

C98970 

C98970 

C98970 

C96970 

C96970 

C96970 

C98970 

C98970 

C9A970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C98970 

C98970 

C98970 

C98970 

CO8970 

C98970 

C96970 

C98970 

C96970 

C96970 

C98970 

C98970 

C98970 

C96970 

C9B970 

C98970 

C96970 

C9B970 

C98970 

C989T0 

€98970 

C9B970 

C98970 

C9B970 

C98970 

C98970 

C98970 

C98970 

C98970 

C96970 

C98970 

C98970 

C98970 

C96970 

C98970 

C98970 

C98970 

C98970 

C9B970 

C98970 

C98970 

C9B970 

C96970 

C98970 

C98970 

C98970 

C98970 

C98970 

C96970 

C96970 

C98970 

C9B970 

€96970 

C96970 

C98970 

€98970 

C9B970 

€96970 

€98970 

C98970 


(5-218 


&2U10  Move.  ^£KO  ,0  tlNE*POS« 

•>2020  MOVL  MIN-D.  P-VALUE  TO  TEMp.VALUE. 

&2100  P1ND*L1UE-P0S« 

&2110  ADD  1 TO  L1NE*P0S« 

t)2120  AOr  DtP-lNTERVAL  fO  TEMP-VALUE. 

&2130  IF  TEMP-LC:  IS  NOT  OKEATER  THAN  TEMP-VALUE  60  TO  FlU-SPACC* 

&2140  LINE-POS  IS  LESS  THAN  loO  60  TO  FtNO-tlNE-POS« 

t>2150  NOTE  THKU  HERE  IS  AN  ERROR. 

&2160  DISPLAY  : :hror  FIND-LINE-POS  t temp-loc  upon  console. 

b2170  GO  TO  LF-E7H0R. 

•>2^00  FILL-SFACE. 

b2210  MOVu  TJ  OUTPUT-LINE  CLINE-POS). 

•>2300  WKITE-LIN^. 

b23ia  IF  lIN^-CNT  is  GREATER  THAN  NO-LlNE#  WRITE  PLOT-REC  FROM 

&2320  DEP-LInE.  ado  1 TO  TOTAL-LINE -CNT#  PERFORM  WRXTE-PlOT-TITLE. 

&2330  mRITE  Plot  KEC  from  plot-line. 

S2340  ADD  1 TO  L'NE-CNT*  AOU  1 TO  TOtAL-LINE-CNT. 

t>23*)0  IF  TAULE-POb  IS  LESS  THAN  INO-CNT*  60  TO 

b2360  CuEAn-OUTPuT-bLOCK. 

&2370  VRITE  PLOT  KEC  FROM  OEP-LlNE. 

&:390  END-pn,  EXIT. 

&2400  hund-s:ale« 

•>2410  MOVE  2EhC  fO  TEMP-^OC. 

■>2h2C  HUNU-MAi(, 

b2430  ADD  100  TO  TEMP-LOC. 

&2440  IF  temp-loc  IS  LESS  THAN  MAX-OEP- VALUE#  60  TO  HUNO-MAX. 

b24bO  MOVE  TEMP. _0C  TO  MAX-DEP-VALUE. 

b2470  HUNU-MIN. 

b24A0  SUPTRACT  100  FROM  TEMp«LOC. 

b24O0  IF  TEMP-LOC  IS  GREATER  THAN  MlN-DEP-VALUC#  60  TO  HUNO-MlN. 

b2b00  MOvt  TEMP-.OC  TO  MIN-OEP-VALUE. 

b2bl0  60  TO  COMP  ITE-INTERVAL# 

b3U00  CURHENT-OATA4 

b3u0b  IF  OBb-lNO  IS  CHEATER  THAN  MAx-ALLOW-InO  60  TO  READ-OSs*^XLE. 

b3Ul0  IF  OBS-INO  IS  not  GREATER  THAN  TEMP  60  TO  PrES-INQ# 

b3U?0  IF  NO-Oe-OMS  IS  FOUAL  TO  2ER0  QO  TO  ZERO-OdS. 

b3U30  COMPUTE  OE.'-VALUE  C IND-CNT  J > SOM  / nO-OF-OSS. 

b3U40  00  TO  INC. TNO* 

b3100  ZERO-OOb. 

bSllO  MOVE  MOt.E  fO  DEP-VALUE  CIND-CNTJ. 

b3l30  INC-IND4 
b3lb0  MOVE  ZEkO  to  SOM, 

b3160  MOVfc.  ZERO  TO  NO-OF-OBS. 

53170  ADD  IND-In;  TO  TEMP, 

53175  AOP  1 TO  iTD-CNf, 

53160  MOVE  TEfP  to  INO-vALUE  ClNO-CNTi. 

b31R0  GO  TO  CURRENT-OAtA, 

53200  PRES-INO. 

53210  IF  oes-uENiM  IS  EQUAL  TO  ZERO  OO  TO  REAO-ORS-FILE. 

53221  MOVE  OMb-NI|M  TO  NUMERATOR. 

53222  WOVE  OHb-D*.NOM  TO  DENOMINATOR, 

53224  COMPUTE  SOI  > SOM  < ENUMERATOR  t DENOMINATOR 3. 

53230  ADO  1 TO  NO-OF-ODS. 

53240  GO  TO  RtAO-OBS-FILE. 

53300  CF-2, 

53302  IF  NO-OF-CBS  IS  EQUAL  TO  ZERO  60  TO  FILL-INO-vAlUE-ENO. 

53 '03  compute  DEP-VALUE  C INQ-CNt 1 > SOM  / NO-OF-OBS. 

53304  FILL-INU-VALUE-END. 

53305  IF  INU-CNT  IS  GREATER  THAN  49  60  TO  SCT^PLOT-ENO. 

53306  AOn  1 TO  IND-CNT#  ADD  IMQ-INT  tO  TEMP. 

53307  MOVL  TEMP  *0  IND-VALUE  C INQ-CNT 3 60  TO  FlLL-INO-VALUE-END. 


5330B 

SET -PLOT -end. 

53310 

perform  Plot-data 

thru  eno-po. 

53320 

DISPLAY  ; ’OTAL  LINE 

COUNT  1 

TOTAL-LINE-CNT  UPON  CONSOLE 

63330 

DISPLAY  : NUMOER  OF  1 

PLOTS  1 

NO-PLOTS  UPON  console. 

53340 

Ce-LHROR. 

53350 

CLObE  OoS.rlLE# 

53360 

FREO-FlLEr 

53365 

dep-axis-file. 

5^370 

REPORT-FILE. 

533A0 

UlSPLAY  : lOJ  9697  1 

UPON  CONSOLE. 

53390 

GOBACK. 

54U10 

fkeq-erkor. 

54U20 

DISPLAY  : cRROR  READ 

END  OF 

freo  file  : UPON  console. 

54U30 

GO  TO  CF-ETROR. 

62U00 

SET-mEFkS. 

62310 

MOVE  1 TO  IND-INT. 

62U20 

MOVL  J 

REEKS 

62U30 

- : 

I to  iNO-etocK. 

62100 

set-flt-hrs. 

62110 

MOVE  5 TO  INO-INT. 

62120 

MOVE  1 

fli.ht  houps 

62130 

• 

I TO  ino-slock. 

62200 

SET-SORTItS. 

62210 

MOVE  3 fO  INO-INT, 

62220 

MOVL 

SORTIES 

62230 

- 

: TO  iNO-ntocK. 

096970 

096970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C90970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C9A970 

098970 

C96970 

C96970 

C96970 

096970 

C96970 

C98970 

C96970 

C96970 

C96970 

C96970 

C96970 

096970 

C96970 

C96970 

C96970 

C98970 

C98970 

C96970 

C96970 

C96970 

C98970 

C98970 

C96970 

C96970 

C98970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C98970 

C96970 

C98970 

C96970 

C96970 

C9R970 

C98970 

C98970 

C96970 

C98970 

C98970 

C98970 

C96970 

C98970 

C98970 
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62400  SCT-LANOINO. 

62310  Movt  3 10  ;nd-int. 

62320  MOVL  : LANOtNGS 

62330  - ; : TO  INO-BLOCK, 

64000  SET-DEP-TITLC. 

6401-0  IF  FRtO-OA 'A-TTPE  IS  EQUAL  TO  1011  NOVE  OEP-AXlS-LIST  [11 

64020  TO  UEPEUDENT-TITLfc*  60  TO  EMO-SOT. 

64030  IF  FRfcO-OAfA-TYPE  IS  EOUAL  TO  :02t  MOVE  DEP-AXIS-LIST  [21 

64040  TO  UEPC.I40E  IT-TIFLEa  60  TO  ENO-SOT. 

64050  IF  FRtO-DA’A-TYPE  IS  EOUAL  TO  :03l  MOVE  OEP-AXlS-LIST  [3l 

64060  TO  UEP£ND[NT-TITLE>  00  TO  ENO-SOT. 

64070  IF  FRlO-OATA-TYPE  IS  EOUAL  TO  1041  MOVE  OEP-AXIS-LIST  [4] 

64080  TO  uEPLIiOl'IT-TlTLE.  GO  TO  END-SUT. 

64040  IF  FRLQ-OATA-TYPE  IS  EQUAL  TO  tOSI  MOVE  OEP-AXIS-LIST  [51 

64100  TO  UEPEUOENT-TITLEt  60  TO  ENO-SOT. 

64110  IF  fREO-OATA-TYPE  IS  EOUAL  TO  1061  MOVE  OEP-AXlS-LlST  [61 

64120  TO  uEPENOfNT-TITLE*  00  TO  ENO-SOT. 

64130  IF  FREO-OATA-TYPE  IS  EOUAL  TO  tOTI  MOVE  OEP-AXlS-LIST  [73 

64140  TO  UEPEIjOE.TT-TlTLEt  60  TO  ENO-SOT. 

64150  IF  FReO-OA TA-TYPE  IS  EQUAL  TO  TORI  MOVE  DEP-AXlS-LIST  [81 

64160  TO  0EP£n0ENT-T1TLE«  00  TO  ENO-SOT. 

64IT0  IF  FREQ-OATA-TYPE  IS  EQUAL  TO  1091  MOVE  OEP-AXlS-LlST  [91 

64180  TO  UEPENOE.n-TlTLEt  00  TO  ENO-SOT. 

64190  IF  FREO-OAta-tyPE  IS  EOUAL  TO  1101  MOVE  OEP-AXIS-LIST  [10] 

64200  TO  UEPEI<0ENT-T1TLE<  60  TO  ENO-SOT. 

64210  IF  FReO-OATA-TYPE  IS  EOUAL  TO  1181  MOVE  OEP-AXlS-LIST  [111 

64220  TO  0EPEH0E4T-T1TLE#  00  TO  ENO-SOT. 

64230  IF  FREO-OATA-TYPE  IS  EQUAL  TO  1201  MOVE  OEP-AxlS-LlST  [Itl 

64240  TO  UEPEIIUENT-TITLEi  00  TO  ENO-SOT. 

64290  ENO-SOT.  EXIT. 

64300  RESET-TABLE. 

64310  MOVE  2£kO  to  CNT. 

64320  RTA. 

64330  AOO  1 TU  CnT. 

64340  HOVE  2En0  '0  INU-VALUE  [CNT I. 

64350  HOVE  HONE  -rO  OEP-VALUE  CCNTl. 

643T0  IF  CNT  IS  LESS  THAN  INO-CNT  60  TO  RTA. 

64380  ENO-R-T.  EXIT. 

65000  REAU-OEP-AXIS. 

65005  read  UEP-AXIS-FILE  INTO  CUT-OFF-REC  AT  END  QO  TO  ENO-ROA, 

65010  MOVE  2ER0  (0  CNT. 

65020  ROA. 

65030  ADO  1 TO  CNT. 

65040  read  OEP-AXIS-FILE  INTO  OEP-AXIS-LIST  [CNTl#  AT  END  60  TO 

65050  ENO-ROA. 

65060  60  TO  ROA. 

650T0  enu-hoa.  exit. 

/•  PLACE  COBOL  SOURCE  BEFORE  THIS  CARO 

//CHG.TF6IN  OU  ». SPACEHCTL.Cl.il] 

TFG  TU13  11  0202 T80 

5 

norm  hours  / PERIODIC 
norm  hours  2 HOuRlY  P0STFL18MT 
AIE  / SORTIE 
FH  / meek 

sortie  / REEX 
landing  / week 

UNSCHEDULED  MA  / WEEK 
unscheduled  MA  / flibmt  hour 

UNSCHEOULED  MA  / SORTIE 

unscheduled  ma  / landing 
REPAIR  ACTION  / Inspection 

ABORT  MA  / SORTIE 

•END 

/•  PLACE  TFG  DATA  BEFORE  THIS  CARO 

//TPR.TU12  DO  0ISP>C0l0.KEEP1.V0L>SER>4F1.UN1T>T»F1 

//TPR.TUI4  DO  CISP>COLO.KEEP1.VOL>SER>*F3.0N|T>T*F3 

//TPR.TU22  DO  0 (SPHOLO.KEEP  1.VOL>SER>»F5.0N1T>T*F5 

//TPR.TPRIN  DO  *.SPACE>[TRK.CI.I}I 

T/P  TU12  10100302030 

T/P  TU14  10100402140 

T/P  TU22  1998I30P000 

/•  PLACE  T/P  CONTROL  CAROS  BEFORE  THIS  CARO 

/•  place  margen  control  cards  before  this  card 


098970 

C98970 

C98970 

C98970 

C909TO 

C909TO 

C909TO 

C90970 

C98970 

C909TO 

C909TO 

C90970 

C909TO 

C98970 

C909TO 

C90970 

C90970 

C98970 

C98970 

C909TO 

C909TO 

C909T0 

C98970 

C909T0 

C909T0 

C909T0 

C98970 

C909TO 

C909T0 

C909TO 

C98970 

C98970 

C98970 

C909TO 

C98970 

C909TO 

C909TO 

C909TO 

C98970 

C90970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C989T0 

1««0  CDS 


T12 

Tl* 

Tt2 


J 


3 


3 


I 
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6.  11  PROGRAMS  FOR  WUC  REMOVAL  ANALYSES 


6. 11. 1 Preprocessor  - Task  V 


//1<)897E  jue  01>:  G.  WANG,  I «f>«TT>02>TTPRUN>HOt.D 

//CGGGTA  EAEC  f>Gb3SC>TlME>0«>ACCT>05SS2300T 

//CHC.TUIh  DU  DtSPH  iPASSltUNITHA^FS.ZtUEFEMI.DGMAAC.VSGTGlGt 

//  VOLASERACAFAiAtPStUAPGtC^FStCAFStEtPStPAFS'GAFStH^FSt 

//  I4F.SI  J'»FSiK*F1>LAFS>m«F3>N«F3>0*FS<P*FS<0*F3,R»fS>SaF3J 

//CHG.TU22  OU  OlliPH  iPASSlfUNlTHT^FbiliUEFEHltDbNAAE.GGGTGSlt 

//  VOL>SeR>C4FaiA^F5*B«F5«C«F5«04F&«£4F5*f4Fb*G^F5*H4Fi>« 

//  l4F3»j4FS«K4Fr>*L4FbtM4Fb«N4FS#04F5*P4F5*04Fb*H4F5«S4Fb3 

//CHGgTU24  OU  U1SP>C »PASS1iUN1T>CT4F7*|*U£F£HJ#DSN>4Cg969743&« 

//  VUL>Strt>C4F7#A4F7ib4F7>C4F7#04F7#£4F7#F4F?»64F7»M4F7» 

//  1>F7»J4F7iK*F7»L4F7*M4F7#N4F7#O4F7#P4F7#04F?,H4F7»S4F71 

//CHG.IUPUT  OU  ••SPAClXCYLiC  ItlJJ 

UOUOO  COMolNE  COHPlLL  G*  vANG* 

U1U<«0  OATb-URlTTtN*  2U  MAh  72  g 
uluso  RtMARKS. 

U1U6U  HAliaENANC£  STOUT  PKOGKAH  5A« 

U1U70  REMOVAL  ACTION  ANALYSIS# 

UlUbU  TOTAL  TASK  COMPRISES  OF  NINE  PARIS. 

U1U90  1.  calculation  of  removal  ACTION  FREOUENCT  AND 

UllOU  REMOVAL  INTERVAL  FOR  €ACH  wuC  CPROGRAM  bA3* 

UlllU  2.  SORTING  OF  MUC  TO  GROUP  AIRCRAT  SUB-SETS  AND 

U112U  «UC« 

Uino  3.  SORTING  OF  FREQUENCY  FOR  FIRST  A|RCRaFT 


SA 

CT14  1 

C71R  2 

714  3 

CT22  1 

CT22  2 

722  3 

CT24  1 

CT24  2 

T24  3 

1440  CDS 

C4a970 
C96970 
C96970 
C96970 
C96970 
C96970 
C9a970 
C96970 
C96970 
C96970 
C96970 


U114U 

unsu 

UllbU 
U117U 
UlltiU 
01190 
01200 
01210 
0U20 
U1230 
01240 
012S0 
U126U 
02000 
U2O10 
02O20 
02U30 
021U0 
021 10 
02120 
2130 
02140 
U21S0 
021t0 
02170 
02100 
0219U 
02200 
u2g;1U 

lOoOO 
IQulU 
10100 
10120 
101  30 
10140 
10150 
lUlbU 
10200 
10210 
10220 
11300 
11320 
11330 
11340 
11350 
11300 
11400 
11410 
12100 


SUB-SET. 

4.  sorting  of  frequency  for  Second  aircraft 

SUB-SET. 

5.  HRLPARaTIUN  of  BUC  LlSTlNO  FOR  EACH  AIRCRAFT 

SUB- SET  I program  5B). 

6.  preparation  of  frequency  of  removal  for  F1RS7 

aircraft  Sue-SET  CPROGRAM  5£3. 

7.  preparation  of  frequency  of  removal  for 

SECOND  AIRCRAFT  SUO^SET  IPROGRAM  5C3. 

6.  SORTING  OF  REMOVAL  INTERVALS  70  GROUP  A1HCHAF7 
SU8-SCTS#  OATA-TTPCS  AND  VUC. 

9.  PREPARATION  OF  DISTRIBUTIONS  FOR  REMOVAL 
intervals  CPROGRAM  5ol. 

Environment  division* 
configuration  section, 
source-computer.  lBM-3bU. 

ObUc.CT-COMPuT£R.  IBM-jbO. 

INpUT-OuTPUf  section, 

FILL-CCnThOl. 

SELLCI  IN.FILE-u-U  assign  to  UT-S*TU14 

RLScRvE  1 alternate  area, 

SELLCr  IN-FILE-ISC  ASSIGN  TO  DA-S*OTui 

RtScRvE  1 Alternate  area, 

SELLCi  xSG-KlLL  ASSIGN  TO  DA-S*DTo2 

plslhve  1 Alternate  area, 

SELlCI  uUl-FlLt-l  ASSIGN  TO  U7-S*TU22 

HcSlHVE  1 alternate  area, 

SELtCf  uUr-FlLE-2  ASSIGN  70  UT*S-TU24 

RlSlRVE  1 alternate  area, 

OA|A  OlVlSlvN, 

FILE  SClT  10... 

FU  IN-FlLE-0-B 

HEruHuIrGG  MOPE  *S  F 

bLOCK  CONTAINS  «*0  RECOMOS 

PECvRu  lONTAINS  7U  CHARACTERS 

LAHlL  KlCORuS  AhE  omitted 

DATA  nllOhOS  AHL  lN-REC«D-e. 

01  in-RFC- j-d  sync. 

02  FlLLt<  PICTURE  J(C703. 

FD  IN-FlLE-lSC 

RFCORUUA  MOPE  IS  F 

RLOCK  contains  20  RECORDS 

RLCORU  CONTAINS  RO  CHARACTERS 

label  RLCORUS  Are  standard 

DATA  MECC^OS  ARE  IN-REC-ISC* 

01  IN-hFc-i^':  SYNC. 

02  fillfm  picture  neoj. 

FO  OUT-FlLt-l 


C 96970 
C 96970 
C96970 
C969T0 
C96970 
C96970 
096970 
C96970 
C96970 
C 96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
€96970 
C96970 
C96970 
C96970 
C96970 
€96970 
€96970 
€96970 
C 96970 
C96970 
C96970 
C96970 
€96970 
€96970 
C96970 
C96970 
€96970 
€96970 
C98970 
€96970 
€96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 


12120 

HECOBUINC  mode  is  f 

€96970 

12130 

BLOCK  contains  90  RECODOS 

€96970 

121»0 

RECORU  contains  20 

CHARACTERS 

€96970 

121S0 

larll  klcjrds  are  omitted 

€96970 

12160 

DATA  HECCyDS  ARE  OUT-REC-1, 

€96970 

12200 

01 

OUT-REC-1  SYNCt 

€96970 

12210 

02  Filler 

PICTURE 

XC201. 

€96970 

13300 

FO 

msg-fill 

€96970 

13320 

hecoRoinc  mode  is  f 

€96970 

13330 

BLOCK  CONTAINS  20  RECORDS 

€96970 

133»0 

record  contains  80 

CHARACTERS 

€96970 

133S0 

labll  records  arc  standard 

€96970 

13360 

DATA  RECORDS  ARE  MSG-REC. 

€96970 

13400 

01 

MSC-REC  SYNC. 

€96970 

13410 

02  filler 

PICTURE 

KCSOl. 

€96970 

14100 

FO 

OOT-FlLt-2 

€96970 

14120 

recording  mode  is  f 

€96970 

14130 

8L0CK  Contains  9o  records 

€96970 

14140 

RECORD  LC4TA1NS  20 

CHARACTERS 

€96970 

14150 

labll  REC-mos  are  omitted 

€90970 

14160 

data  records  are  OUT-REC-2. 

€96970 

14200 

01 

OUT-REC-2  sync. 

€96970 

14210 

02  filler 

PlClURE 

Xt20}. 

€96970 

30UOO 

morking-stomfoc  secTioN. 

€96970 

30U10 

77 

■EEK-IEMR 

PICTURE 

S999. 

€96970 

30U20 

77 

CUR>15C  ; YNC 

PICTURE 

X. 

€96970 

30U30 

77 

cur-ser-no  sync 

PICTURE 

XCO  J. 

€96970 

30050 

77 

KNT  Sync  computational 

PICTURE 

S999. 

€96970 

30100 

77 

FLAG  SYNC  COMPUTATIONAL 

PICTURE 

S999  VALUE  2ERO. 

€96970 

30120 

77 

NO-gUL  5'NC  COMPUTATIONAL 

PICTURE 

S9999  VALUE  ZERO. 

€96970 

30130 

T7 

NO-rEC-1  sync 

PICTURE 

S9C61  value  zero. 

€96970 

30140 

77 

NO-REC-2  sync 

PICTURE 

S9C6}  value  zero. 

€96970 

30170 

77 

CNT  Sync  computational 

PICTURE 

S999. 

€96970 

30300 

7T 

ONE  5YNC 

PlCtUHE 

X value  III. 

€96970 

30300 

T7 

TGO  5Y(iC 

PICTURE 

X VALUE  121. 

€96970 

304  00 

77 

ISC-TeMP  sync 

PICTURE 

XtSl  VALUE  SPACE. 

€96970 

30410 

77 

PREV-TE57iD-SN  SYNC 

PICTURE 

xcsi  value  space. 

€96970 

30420 

77 

ISC-FlAG  sync 

PICTURE 

X VALUE  SPACE. 

€96070 

30430 

77 

M1N>15C>WECK  SYNC  COMPUTATIONAL  PICTURE  S999  VALUE  <999. 

€96970 

30440 

77 

start-geEk  computational 

PICTURE 

S999  VALUE  109  SYNC. 

C96O70 

31U10 

01 

NO- ISC  S'NC. 

€96970 

31020 

02  filler 

PICTURE 

XX. 

€96970 

31030 

02  NO-lbC-AC  computational 

PICTURE 

S999. 

€96970 

31040 

02  FILLER 

PICTURE 

XtT5J. 

€96970 

31050 

01 

ISC-A-C  SYNC. 

€96970 

31060 

02  filler 

PICTURE 

XX. 

€96970 

31070 

02  15C-.N 

PICTURE 

XCSI. 

€96970 

31080 

02  filler 

picture 

XX. 

C96970 

31090 

02  15C-G,X 

PICTURE 

999. 

€98970 

31100 

02  fillFr 

PICTURE 

XC65}. 

€96970 

31200 

01 

FILLER  sync. 

€96970 

31205 

02  FILlLR-OCCURS  9*  times. 

€98970 

31210 

03  ‘SC-AC-TN 

picture 

XCSJ. 

€96970 

31220 

03  ISC-AC-VK  computational  picture  S999, 

C96970 

31300 

OX 

DATA-BANK- INPUT  sync. 

€96970 

31310 

02  FlLLCr 

PICTURE 

XC5J. 

€96970 

31320 

02  SERIAL-NO 

picture 

XCSI. 

€08970 

31330 

02  week 

pic  ruRE 

999. 

€96970 

31340 

02  WUC 

PICTURE 

xr.53. 

€96970 

31380 

02  FlLctR 

picture 

X1221. 

€96970 

31400 

02  UNKS 

PICTURE 

5999. 

€96970 

31410 

02  filler 

PICTURE 

XX. 

€98970 

31420 

02  lUENT 

PICTURE 

9. 

€96970 

31430 

02  filler 

PICTURE 

XC4l. 

€96970 

31440 

02  FLT-HRS 

PICTURE 

S9I6J. 

€96970 

31450 

02  filler 

PICTURE 

XCllI. 

€96970 

31500 

01 

OUT-DATA  SYNC. 

€96970 

31510 

02  CUR-WUC 

PICTURE 

XC51. 

€96970 

31530 

02  filler 

PICTURE 

xc4i  value  space. 

€96970 

31540 

02  OBS 

picture 

S9C61. 

€96970 

31550 

02  filler' 

PICTURE 

X VALUE  SPACE. 

€96970 

31560 

02  ischronal 

PICTURE 

X. 

€96970 

31570 

02  filler 

PICTURE 

X VALUE  SPACE. 

€96970 

31500 

02  DATA-TYPE 

PICTURE 

X. 

€96970 

31590 

02  filler 

PICTURE 

X VALUE  1*1. 

€96970 

31690 

01 

filler  sync. 

€96970 

31705 

03  wuC-DATA. 

€98970 

31710 

04  curgdc 

PICTURE 

XXXXX. 

€96970 

31720 

04  FrEo-ISC 

PICTURE 

S9t5>  value  zero. 

€96970 

31730 

04  FREO-NI 

PICTURE 

S9t51  VALUE  ZERO. 

€96970 

31735 

04  FILLER 

PICTURE 

Xl9l  value  I *1. 

€96970 

31740 

01 

LAST-gEEK  sync 

PICTURE 

S999  COMPUTATIONAL. 

€96970 

3I?50 

01 

last-fli-hrs  sync 

PICTURE 

59t9J  computational. 

€96970 

51800 

01 

NINE  SYNC. 

€96970 

31810 

02  filler 

PICTURE 

Xtzei  VALUE 

€96970 

31820 

1 9999999999999999999* I • 

€96970 

(>-222 


bouao 

souio 

bOOZO 
bOUSO 
bo  040 
bOUbO 
bOObO 
bOUTO 

boueo 

bOIOO 

baia4 

bOlOb 

bOlOb 

bOlOT 

bOlOB 

borio 

boizo 

bOIbO 

boi4a 

b0l60 

bOlTO 

bOlSO 

bOlOO 

bozoo 

bOZlO 

bOZZO 

b0Z30 

b0Z3b 

b0z3& 

bOZ3T 

b0Z40 

SOZbO 

bOZbO 

bOZTO 

bOZ7b 

bozao 

bOZOO 

b0300 

b0310 

boeio 

boezo 

b0630 

b0a40 

bOVlO 

b09Z0 

b0930 

blaoo 

blao4 

bl«0b 

biaob 

blaiu 

blozo 

blB30 

biauo 

blubO 

brabo 

bl870 

bl900 

broio 

bI9Z0 

bI930 

31940 

bI9b0 

bI960 

bl990 

bzoao 

bzu4a 

bZUbO 

bZUbO 

bZOTO 

bZUBO 

bzo9a 

bZU9b 

TOUOO 

TOUIO 

TOUZO 

70030 

70040 

70050 

70060 

70070 

7007S 


PROCEOUKE  OIVISION. 

OPCN-FILEb. 

OPEN  INPUT  IN-FILE-O-a.  lN-FlLE*tSC« 

OPEN  OUTPUT  MSO-FILE. 

OPEN  OUTPUT  OUT-FILE-li  OUT-FILE-Z, 

PERFOHM  FEAU>1SC.A-C  THRU  ENCPHIIAG. 

read-initial. 

REAU  1N-F1lE-0>U  into  OATA.BANK-INPUTt 

AT  end  go  TO  CLOSE-TILES. 

IF  lOLNT  IS  NOT  EOUAL  TO  3 GO  TO  REAO-lNITIAL. 

IF  kEEK  TS  LESS  THAN  START-MEEF  00  TO  RCAQ-INlTlAL. 

IF  UNITS  IS  LESS  THAN  1 GO  TO  RCAO-INITl*L. 

NEh-MUC. 

MOVE  HUC  TO  CUR-HUC. 

ADO  1 TO  NO-HUC. 

NCk-BLOCK. 

PERfOkM  CHECK-ISCHRONAL  THRU  ENO-CI. 

HOVL  ISCHRONAL  TO  CUR-ISC. 

MOVE  SEKIAL-NO  TO  CUR-SLR-NO, 

MOVL  «Eb>(  TO  LAbT-MLEF. 

MOVE  FLT-HRS  TO  LAST-fLT-HRS. 

IF  ISCHhONAL  is  equal  to  ONE  AOU  UNITS  TO  FHEO*ISC> 

Else  add  units  to  freo-ni. 

reao-oata. 

read  in.> ile-o-u  tnto  oata.banf-input. 

AT  END  GO  TO  CLOSE-FILES. 

IF  ICLNT  IS  NOT  EOUAL  TO  3 GO  TO  REAO-OATA. 

IF  UNITS  TS  LESS  THAN  1 GO  TO  REAO-OATA. 

IF  hELK  Is  less  THAN  START-WEEF  go  to  reao-oata. 

IF  kUC  IS  NOT  equal  to  CUR-kUC  GO  TO  MUC-INFO. 

IF  bEKlAL-NO  IS  NOT  EOUAL  TO  CUR-SER-NO  GO  TO  NCW-BLOCR. 
perform  CHECF-TbCHRONAL  THRU  ENO-CI. 

IF  ISCHHONAL  IS  NOT  EOUAL  TO  CUR-1SC>  GO  TO  NE<*-aLOCF. 

IF  ISCHHONAL  IS  EOUAL  TO  ONE  AOO  UNITS  TO  FRCG*1SC> 
else  AOO  UNITS  TO  FREO-NI. 

PERFORM  kHlTE-OATA. 

MOVE  »EEF  TO  LAbT-vEEF. 

MOVE  FLT-hRS  TO  LAST-FLT-HRS. 

GO  TO  HEAO-OATA. 
kUC-INFO. 

MOvt  CUH-WUC  TO  CURVUC. 

FRITE  OUl-REC-T  FROM  WUC-OATA. 

AOO  T TO  NO-REC-I. 

MOVE  ZEHO  to  FHEO-ISC. 
movl  zero  to  fheo-nt. 

GO  TO  NEF-FUC. 

CLObE-FILEb. 

MOVL  CUH-FUC  TO  CURFUC. 

FRITE  OuT-REC-1  FROM  FUC-OATA. 

AUO  1 TO  NO-REC-1. 

COMPUTE  FNT  > NO-HEC-I  - NO-REC-1  / 90  • 90. 

TF  RNT  TS  ZERO  GO  TO  CF-Z. 

perform  nine-fill-t  thru  n-f-i. 

CF-Z. 

COMPUTE  fnt  > NO-REC-Z  - NO-REC-Z  / 90  • 90. 

IF  RNT  IS  ZERO  GO  TO  CF-3. 

perform  ninl-ftll-z  thru  n-f-z. 

CF-3. 

OTSPLAY  : number  RECOROS-I  I No-REC-I  UPON  CONSOLE. 
OTSPLAT  i NUMBER  RECOROS-Z  I NO-REC-Z  UPON  CONSOLE. 
DISPLAY  ! NUMBER  FUC  >I  NO-FUC  UPON  CONSOLE. 

DISPLAY  : ENO  OF  JOB  C9S97AI  UPON  CONSOLE. 

CLOSE  IN-FTLE-O-B.  MSG-FILE.  OUT-FILE-1. 

OUT-FIlE-Z  FITH  LOCF. 

GOBACK. 

FRITE-OATA. 

COMPUTE  OUS  > FEEK  - LAST-FEEF. 

MOVE  ONt  TO  OATA-TYPE. 

FRITE  Ou''-REC-Z  FROM  OUT-OATA. 

COMPUTE  ORS  > FLT-MRS  - LAST-FLT-HRS. 

MOVE  TFO  TO  OATA-TYPE. 

FRITE  OU’-REC-Z  FROM  OUT-OATA. 

ADD  Z TO  NO-REC-Z. 

REAO-ISC-A-C. 

read  IN-FILE-ISC  into  NO-IsC  at  eno  go  to  cno-Riac. 

MOVE  ZERO  TO  FNT. 

RIAC. 

ADD  I TO  FNT. 

REAU  IN-^ILE-ISC  INTO  ISC-A-C  AT  ENO  GO  TO  END-RIAC. 

MOVL  TSC-TN  TO  ISC-AC-TN  IFNTl. 

MOVE  TSC-FF  TO  TSC-AC-FF  IFNTJ. 

IF  ISC-»z  IS  LESS  than  MIN-ISC-FECF  MOVE  ISC-FF 


C9B9Ta 
C9B970 
090970 
090970 
C9B970 
C 90970 
C 90970 
C90970 
C90970 
090970 
C9B970 
C9S970 
090970 
C90970 
C9B9T0 
090970 
090970 
C90970 
C90970 
C9S970 
090970 
C90970 
C9B970 
090970 
C9B970 
C 90970 
C9B970 
C9B970 
C9B970 
C9B970 
C9B970 
C 90970 
C90970 
C9B970 
C9B970 
C9B970 
090970 
C9B970 
090970 
090970 
C9S970 
C9B970 
090970 
C90970 
C 90970 
C90970 
C9B970 
090970 
C90970 
C90970 
C90970 
C90970 
C90970 
C90970 
C90970 
C90970 
C90970 
C90970 
C90970 
C9B970 
C90970 
C9B970 
C90970 
C90970 
C90970 
C90970 
C90970 
C9B970 
090970 
090970 
090970 
090970 
090970 
090970 
090970 
090970 
090970 
090970 
C 90970 
090970 
090970 
090970 


70076  TO  MIN-ISC-WCEK. 

Touao  IF  knt  i'<  less  Than  no-isc-ac  go  to  riac. 

70UBS  CLO&E  IN-FILE-ISC  WITH  LOCK. 

70090  ENO-RIAC.  txIT. 

70200  CHtCK-ISCMRCJAL. 

70210  IF  SEHIAL-NO  IS  NOT  EQUAL  TO  PREV-TESTCD-SN  GO  TO  CHCCK-l-t. 

70220  IF  ISC -FLAG  IS  LOUAL  TO  TWO  GO  TO  ENO-CI. 

70230  IF  ISCHHOnAL  IS  EOUAL  TO  ONE  AnO  WEEK  IS  NOT  LESS  THAN 

70232  NIN-ISC-WEEKi  THEN  GO  TO  ENO-Cl. 

702A0  CHECK-I-2. 

T02b0  MOVL  TWO  TO  ISCHRONAL. 

70260  IF  WELK  IS  LESS  THAN  MIN-IsC-WEEK  GO  TO  ENO-CI. 

70270  MOVE  2EhO  TO  CNI. 

70200  CHECK-I-I. 

70290  ado' I TO  CNT. 

70300  MOVE  ISC-AC-TN  CCNTl  TO  ISC-TEMP. 

70310  IF  SEHIA.-NO  is  LESS  THAN  ISC-TEMP  GO  TO  CHECK-1-9. 

70320  IF  SERIAL-NO  IS  EQUAL  TO  ISC-TEMP  GO  TO  CHECK-l-lA. 

70330  IF  CNT  IS  LESS  THAN  NO-ISC-AC  GO  TO  CHECK-I-1. 

70340  CHtCK-I-4. 

70360  MOVE  TWO  TO  ISC-FLAG. 

70360  GO  TO  CHECK-I-3. 

70370  CHCCK-I-IA. 

70300  MOVE  ISC-AC-WK  CCNTl  TO  WEEK-TEMP. 

70390  IF  wEEK-TEMP  IS  EQUAL  TO  WEEK  OR  WEEK  tS  GREAtCR  THAN 

70400  week-temp  move  one  to  ISCHRONAL. 

70410  MOVE  ONE  TO  ISC-FLAG. 

70430  CHECK-I-3. 

70440  MOVE  SEHIAL-NO  TO  PREV-TESTED-SN. 

704b0  ENO-CI.  EXII. 

TOblO  NInE-FIlL-2. 

70b20  WRITE  OUT-REC-2  FROM  NINE. 

T0b30  AOO  I TO  KNT. 

70b40  IF  kNT  is  less  THAN  90  60  TO  NINE-FlLL-2. 

70b50  N-F-2.  EXIT. 

70600  NINE-FIlL-I. 

70610  WRITE  Our-REC-I  FROM  NINE. 

70620  AOO  I TC  KNT. 

70630  IF  knt  is  less  than  90  GO  TO  NlNE-PtLL-1. 

70640  N-F-I.  EXIT. 

/•  PLACE  cobel  source  before 

//CHG.TFGIN  OU  •>bPACE>CCTL>C 1. 1 1 1 

TFG  OlOl  II  0202000 
34 

57000236  331 

67000237  331 

57000243  324 

67000244  331 

57002546  331 

50000776  324 

50000901  331 

59000002  331 

59000003  331 

59000006  331 

59000006  331 

5900O0I0  331 

59000012  331 

59000015  331 

69000016  331 

69000019  331 

69000026  331 

69000030  331 

69000054  324 

69000067  324 

59000066  324 

59000069  324 

59000104  331 

69000105  331 

69000108  324 

69000110  324 

59000119  324 

59000I4I  324 

69000143  324 

69000144  324 

59000145  324 
59000147  324 

59000151  324 

59000152  324 

•ENO 


//TPR.TU14 
//TPR.TU22 
//TPR.T024 
//TPR.TPRIN 
T/P  OTOl 
T/P  TUI  4 
T/P  T022 
T/P  T024 


PLACE  TFG  data  BEFORE  THIS  CARO 


00  OISPH  OLD.  KEEP  J.V0L>SEN>*F3.UNIT>T«FS 
00  D1SP>COLO>KEEP1>VOL>SCR>«FB.UNIT>T9FB 
00  01SP>C0L0.KEEP].V0L>SER>*F7»UNIT>T«FT 
00  •.SPACEXTRK.Cltlll 
lOlOObOZOGO 
lOlOO'OZOTO 
10100202020 
10100202020 


PLACE  T/P  control  CAROS  BEFORE  THIS  CARO 


C 90970 
C90970 
C90970 
C90970 
C90970 
C90970 
096970 
C 96970 
090970 
C 96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
090970 
C96970 
C96970 
C96970 
C96970 
C90970 
C96970 
C96970 
C96970 
C96970 
C90970 
C96970 
C96970 
C96970 
C96970 
C96970 
090970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 

1440  CDS 


T14 

Ttt 

Tt4 


i 

I 

i 

\ 


I 

I 
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6.11.2  SORT  WUC  FREQUENCY 


//C9a97S  tXEC  P9b^2N>k>199>TlHe>02>ACCT>01912100T  SSS 

//CHG.SOHTIN  OD  01SP>C>KeeP]>UNlT>CT«F5>l>0CFCRl>  CTM 

H CSN.'*E.9A97*J1.  CTtt 

n VOL>SEP>C*Ftt>A*F9tH«FB>e«Fll»0«PB»C«PS«P4PS<«PPt<H«r|r  CTtB 

//  l«^b>J«FB>K*F8>L4FS>M»FBiN«FB>e4F8>P4FB»B4Fg,N»FB«B«FB)*eTtt 

n OCb.tLPECL>0020>nLKS12e>1800  JtLABCOt  •NSL»BCTP(»0«93 

//CH6.S0RT0UT  Ou  OISPX •KEeP]>UNlT>CT«Fl»l»DCFeA3,DSN>«A.tB97*sa»  CTlt 

//  V0L>SCP>[4Fl>A*Fl.B*Fl.C«Fl«0*Pl>C«Fl»F*Fl>B«Fl>H4Flr  CTIC 

n 1*F.»J4F1.A4F1.L*FI.P4F1.N*F1»0*F1*P4F1»B4Fi,8*F1»S*F1 JrCTl* 

//  DCB'[LPecL>0020>BLKSlZC>18001 

//CH6.STS1N  00  ••OCB>BLKSlZe>0080>SPACCKTRK.tl»133 

SORT  FleLOS>[001i00S>CH>A]tS12C>C00080OO 
MOOS  C15>Cei5i00b>S0RTLlB»N]>E18>tCl8>02«4S0RTLie>N3 
/• 


6.11.3  WRITE  WUC  FREQUENCY 


//C9897P  EXtC  P9<ij5L.tlME>02iACCT>OJ512100T  5B 

//CH6.TU12  OU  01SP>C •PASS]iUN1T>CT4F1>1>OEFEB3>OSN>4A.989T«32>  CT12  1 

//  V0L>SER>t4Fl.A4FliB4Fl»e4Fl*04Fl*E4Fl,F4Fl»B4Fl»H4Fl»  CT12  2 

//  14Fl.J4Fl.K4FliL4Fl.M4Fl.N4Fl»04Fl,P4Fl»a4Fl,R4Fl»S4Fl J T12  i 

//CHG,IU24  Ou  OSN>4p.9a97«33iSPACe>CCTL>ta09>001 JJ  02«-0uT 

//CHG,TU2b  OU  OSN>4P.989T4J5»SPACE>tCTL*t009*001JJ  02i-OOT 

//CMG. INPUT  OU  4,SPACE>lCTL.tl»l IJ  1**0  COS 

00000  COMulNE  COMPltE 


00000  covuiNE  compile  0.  «AM0, 

01040  0ATE>HR1TTE'<.  I APH  72. 

01050  REMARKS. 

01U60  haIkTENANCE  STUOT  PROBRAM  5B. 

01070  prepares  listing  of  XOC  -V-  REMOVAt  AcTlOM  FRCMIENCT. 

OlOPO  INPUT  SORT  SEOUENCE 

01090  WUC. 

02000  ENvlHONMENr  DIVISION. 

02010  configuhaiion  section. 

02020  source-computer.  18M-J60. 

02030  OBjECT-COMPtTER.  IBM-360. 

02100  INPUT-OuTPU’  section. 

02110  file-conthol. 

02120  SELECT  IN.FILE  ASSIGN  TO  UT-S-TOlf 

U21S0  RESERVE  1 ALTERNATE  AREA. 

02140  select  U'T-FILE-IS  ASSIGN  TO  UT-S-T02S 

02150  reserve  1 alternate  area. 

02160  SELlCT  eUT-FILE-NI  assign  to  OT-S-T02* 

02170  RESc "VC  1 alternate  AREA. 

10000  DATA  OIVlSl IN, 

10010  file  section. 

10100  FU  in-ftle 


HECORUl  'G  MODE  IS  F 
BLOCK  CONTAINS  90  RECORDS 
RECOPU  contains  20 

larll  records  ahe  omitted 
DATA  HT conns  ARE  IN-REC. 
in-hec  sync. 

02  WUC 
02  FkLi.-ISC 
02  FHEU-NI 

02  filler 


CHARACTERS 


PICTURE  XESJ. 
PICTURE  S9tB]. 
PICTURE  S9tS]. 
PICTURE  Xt9J. 


11300  FU  OUT-FILL-IS 
11320  HECORUI'-O  mode  IS  F 

11330  BLOCK  contains  40  RECORDS 

11340  HECORU  bONTAINS  70 

11350  lapll  h. cords  ahe  omitted 

11360  DATA  HL'-OmDS  ARE  OUT-REC-IS. 

11400  01  out-eata-is  sync. 

11410  02  F1L..EM  I 

13300  FU  OOT-FIL.-NI 
13320  HECORUInG  mode  IS  F 

13330  BLOCK  CONTAINS  40  RECORDS 

13340  RECORD  .ONTAINS  70 

13350  LAPEL  RlCORUS  AHE  OMITTED 

13360  DATA  HlCORDS  ARE  OUT-REC-NI . 

13400  01  out-rec-ni  sync. 


Characters 


picture  XtTOJ. 


characters 


02  F1L..ER  PICTURE  XtTOJ. 

WORKING-STOmAoE  SECTION. 

77  PAGE-NI  SYNC  COMPUTATIONAL  PICTURE  S999  VALl^  ZERO. 

77  PA6L-1S  SYNC  COMPUTATIONAL  PICTURE  S999  VALUE  ZERO. 

77  LlNt-Nl  StNC  COMPUTATIONAL  PICTURE  S999  VALUE  ZERO. 

77  line- IS  STNC  computational  RICTURE  S999  VALUE  ZERO. 


C98970 
C98970 
C98970 
C9A970 
C989T0 
C98970 
C9B970 
C989T0 
C989T0 
C9B970 
C98970 
C9B970 
C9B9T0 
C98970 
C9B970 
C98970 
C989T0 
C9B970 
C9B970 
C9B9T0 
C9B970 
C989T0 
C989T0 
C9B9T0 
C989T0 
C9B970 
C9B9T0 
C989T0 
C989T0 
C9B970 
C9B970 
C 98970 
C90970 
C90970 
C90970 
C90970 
C90970 
C90970 
C9S970 
C90970 
C989T0 
C90970 
C989T0 
C989T0 
C989T0 
C90970 
C90970 
C98970 
C90970 
C98970 
C9B970 
C90970 
C989T0 


6-225 


30150  77  NO-lINE-PAGE  SYNC  COMPUTATIONAL  PICTURE  SOOi#  VALUE  <76, 


31500 

01 

OUT-OAT A SYNC« 

31SI0 

02 

filler 

PICTURE 

X VALUE  l/l. 

31515 

02 

FILI  EH 

picture 

XEOT]  value  space. 

31520 

02 

WUC-OUT 

PICTURE 

xxxxx. 

31530 

02 

filler 

picture 

X VALUE  SPACE. 

31540 

02 

OBS 

picture 

Z22Z9. 

31550 

02 

filler 

PICTURE 

XE50]  value  space. 

31590 

02 

F ILlER 

PICTURE 

X VALUE  Ui. 

32U00 

01 

COM-TlIi.E-1  SYNC. 

32010 

02 

filler 

picture 

XCS2]  value 

32U20 

il  listing  of 

VUC  - FREO 

PAGE!. 

32030 

02 

PAGt-RPT 

PICTURE 

229. 

32U40 

02 

fil.eh 

PICTURE 

XE341  VALUE  SPACE. 

32050 

02 

filler 

picture 

X VALUE  t*>. 

32100 

01 

COM-TITlE-2  sync. 

32110 

02 

FlLiwER 

picture 

XEI9J  value 

32120 

:s 

VUC 

FREOi. 

32130 

02 

FILLER 

PICTURE 

XtSOl  VALUC  SPACE. 

32140 

02 

FILlEM 

PICTURE 

X VALUE  1*1. 

3220U 

01 

title-IjC  sync. 

32210 

02 

FILLER 

PICTURE 

XE24]  value 

32220 

IS  fur 

ISOCHRONAL  A/C  I. 

32230 

02 

filler 

PICTURE 

XE45]  value  '•  CE. 

32240 

02 

filler 

PICTURE 

X VALUE  1*1. 

32300 

01 

TlTLe-NOt4-lSC  SYNC* 

32310 

02 

FILlER 

PICTURE 

XE26]  VALUE 

32320 

IS  FOR 

NON-ISOCHRONAL  A/C  I. 

32330 

02 

FILLER 

picture 

XC41]  value  space. 

32340 

02 

filler 

PICTURE 

X VALUE  t*l. 

SOUOO  PROLEOUHE  UIVISION. 

souio  open-files. 

50020  OPEN  INPUT  IN-FILE. 

50040  OPEN  OU.PUT  OUT-FILE-IS»  OUT-FILE -N|, 

50050  PERFORM  TITLE-IS, 

50U60  PERFORM  TITLE-NI, 

50100  REAU-INPUT. 

50110  REAU  IN-FlLE.  AT  END  00  TO  CLOSE-FILES. 

50120  IF  VUC  !S  EOUAL  TO  IRORROS  60  TO  CLOSE-FiLES, 

50130  MOVE  VUC  TO  HUC-OUT. 

50140  IF  FRtO-ISC  IS  EOUAL  TO  2ER0  60  TO  PROC-Nl, 

50150  MOVE  FRl  O-lSC  TO  OBS. 

50160  vRire  out-oata-is  from  out-oata. 

50170  ADO  1 TO  LlNE-15. 

50180  IF  line -IS  IS  GREATER  THAN  N0-LINE-PA6C  PERFORM  TITLE-IS. 

50300  PROC-Nl . 

50310  IF  FREQ-NI  IS  EOUAL  TO  EERO  60  TO  READ-INPUT* 

50320  MOVE  FRuO-Nl  TO  OBS. 

50330  VRITE.O'JT-REC-NI  FROM  OUT-OATA, 

50340  AOO  I TO  LINE-NI. 

50350  IF  LINE-NI  IS  GREATER  THAN  NO-LINE-PAGC  PERFORM  TITLE-NI. 

50360  GO  TO  R. AO-INPUT. 

50400  TITLE-IS. 

50410  AOO  1 TO  PAGE-IS. 

50420  HOVE  PAwE-IS  TO  PA6E-RPT. 

50430  VRITE  OJT-OATA-IS  FROM  COM-TITLE-I, 

50440  VRITE  OUT-OATA-IS  FROM  TITLE-ISC. 

50450  VRITE  OUT-OATA-IS  from  COM-TITLE-2, 

50460  MOVE  EErO  to  LINE-IS. 

50500  TITLE-Nl. 

50510  AOO  1 TO  PAGE-NI. 

50520  MOVE  HAGE-NI  TO  PAGE-RPT. 

50530  vrite  out-pec-ni  from  com-title-i. 

50540  write  OJT-REC-Nl  FROM  TITLE-NON-ISC. 

50550  write  OJT-RLC-Nl  FROM  COM-TlTLE-2. 

50560  MOVE  EF.hO  TO  LINE-NI. 

50600  CLOSE-FILES. 

OOblO  CLOSE  14-FILE.  OuT-F1LE-1S>  OUT-FILE-NI  with  lock. 

50620  OISPLAY  I EOJ  CVeVTP  1 UPON  console. 

50630  GOBACE. 

/*  PLACE  COFOL  SOURCE  BEFORE 

//CH6,TF61N  OU  (.SPACEKCYL.C  1*1  JJ 

/•  PLACE  TFO  DATA  BEFORE  THIS  CARO 

//TPR,TUI2  DU  DISP>C0L0iKEEP]>V0L>SER>FFI,UNIT>T4FI 

//TPR.TU24  DU  DISP>COLO«PASS] 

//TPR.TU25  DO  OISPH  OLD. PASS! 

//TPR.TPRIN  DU  «>SPACE>CTRK,CI>IJ1 

T/P  TU25  19980 lOROOO 

T/P  TU24  1998070R000 

T/P  TUI2  I0IU020Z020 

/•  PLACE  T/P  CONTROL  CARDS  BEFORE  THIS  CARO 

//C969TR  EXEC  C96>)3N>TIHC>0I>ACCT>O3532300T 
//CHe.TU24  00  DSN>«P.969T«33>OISP>fOLO*OCLeTE) 

//CH*,TU25  . 00  .DSN>FP.«t9T»35»OISP>fOLO*OCLeTE] 

C/CHO.TRRIN  00  ••SPACEUTRKfCliin 

T/P  TU2R-  199807OR000 

T/P  TUfS  I99807OR000 

/•  PLACE  T/P  CONTROL  CAROS  aERORE  THIS  CARO 


C 98970 
C98970 
C98970 
C98970 
C98970 
C 98  970 
C98970 
C98970 
C98970 
C90970 
C909T0 
C98970 
C 98970 
C98970 
C98970 
C90970 
C98970 
C98970 
Ca89T0 
C989T0 
C9R970 
C 98970 
C989T0 
C98970 
C989T0 
C 98970 
C98970 
C 98970 
C 98970 
C989T0 
C909T0 
C 98970 
C909T0 
C989T0 
C989T0 
C989T0 
C989T0 
C989T0 
C989T0 
C 98970 
C989T0 
C98970 
C98970 
C90970 
C98970 
C 98970 
C989T0 
C989T0 
C98970 
C98970 
C 98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C 98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 

1440  COS 
TU 

024-PASS 

023-PASS 


024- IN 

025- IN 


6-226 


L. 


I 


6.11.4  SORT  NON-ISOCHRONAL  FREQUENCY 


//T9897J  JOB  01(1  G WANG  S >PHTY>02>TYPRUN>HOLO 

//C9e97T  EXEC  P9622NfW>I99f  TTME>ai>ACCT>0»823007  5CS 

//CHG.SOflTIN  no  0ISP>C  •KEEP]fUNlT>CT4FS>I>OEPER]>  CT22 

//  0SN>+E. 9897431,  et22 

//  V0LxSER>C*F5,A+F5,B*F5,C«F5,07F5,e*F5,F»F5,«+FB,H*F5,  0722 

**F j«J7F5,K*F5>L7F5«M*F5,N*F5»07F5,P»F5,0»F5,R+FB,S7F8J,eT22 
//  DCBYCLRECL>U020,eLKSIZE>I800),LABeL>C  ,NSl.#RCTPD>0«9l 

//CH6.S0RT0UT  00  OISP>C ,KEEP],UNIT>C T7F1, ItOEFER 1,0SN>7A.9897933,  0712 

//  V0L.»SCR>t+Fl,A7Fl,B7Fl,C7Fl,0*Fl#e7Fl,F7Fl»#7Fl,H7Fl»  0712 

//  I«F1.J+F1,K4F1,L*F1,M7F1,N7F1.0*F1,P7F1,07Fi,R7F1,S7F1J,0712 

It  OCB>CLRECL>0a20,BLKSIZe>I80Ol 

//CH8.SYSIN  00  *,OCB>BLKSIZE>0080,SPACE>t7RK,tl>l)) 

SORT  FlELOS>C011,00S,CN,O,001,005,CH,A],SlZE>E000S000 
MOOS  E15>CE15>aC8>S0R7LIU>N],E18>CEl8,024,S0R7t.IB,N] 

/* 


1 

2 

3 

« 

1 

2 

3 


6.11.5  WRITE  NON-ISOCHRONAL  FREQUENCY 


//C9897K  EXEC  P9bj5L<TIME>(II,ACC7>035323007 

SC 

//CHG. 

TU12 

OU  OISPXC  >PASS1,UNIT>CT.FI,1, DEFER], DSN>4A.9A9743S, 

CT12  1 

// 

VUL>SeR>C ♦FI , A4FI ,B4FI , 

C4Fl,D4Fl,e4Fl,F4Fl,94Fl,M4Fl, 

CT12  2 

// 

I+FI«j+FI,K+F1,L+FI,M+F1,N4F1,04FI,P+F1,0+Fi,R+F1,S4F1) 

T12  3 

//CHG« 

TU25 

OU  OSN>4P.  9897431  • SPACEK  CYL  ,C  009,001]  ] 

D2S-OUT 

//CHG, 

INPU7  OU  *>SPACb>CCYL>CI >I 11 

1440  COS 

UOOOO 

COMllNE  ■ COMPILE 

0.  NAN*. 

C98970 

01U4U 

OATt-WPlTftn.  1 APR  72. 

C98970 

otuso 

REMARKS. 

C98970 

0IU60 

maintenance  study  PROGRAM  SC. 

C98970 

01U70 

prepares  listing  OF 

FREOUENCY  of  removal  [AIRCRAFT 

C98970 

otoao 

SUB-SET  11  -V“  WUC, 

C98970 

otu^o 

INPUT  SORT  SEOUENCE 

C989T0 

ouoo 

FHEOUENCr. 

C98970 

02U00 

environment  division. 

C989T0 

02U10 

CONFIGUHAKQN  section. 

C98970 

U2U20 

source-computer.  ieM-j60, 

C98970 

02U3U 

OBJECT-COMPUTER.  IBM-J60, 

C98970 

02100 

INPut-OuTPUI  section. 

C9B970 

02110 

file-contrc.. 

C9B970 

0212U 

sellct  in-file 

ASSIGN  TO  UT-S-TU12 

C98970 

U21  !U 

RESERVE  1 alternate  AREA. 

C9B9T0 

02160 

SELECT  JUT-FILE-NI 

ASSTON  TO  UT-S-TU25 

C9B970 

02170 

Res.hve  1 alternate  area. 

C9B9T0 

louoo 

data  OlVlbilN, 

C9B9T0 

lOUlO 

FILE  SECTION, 

C9B970 

10100 

FO 

in-hle 

C9B9T0 

10120 

HECoRUING  mode  is  f 

C98970 

10130 

BLOCK  contains  90  RECORDS 

C98970 

10140 

RECORD  CONTAINS  20 

characters 

C98970 

10150 

LABEL  I.ECDROS  ARE  OMITTED 

C98970 

10160 

DATA  HI  COHOS  ARE  IN-REC. 

C9B970 

10200 

01 

IN-kec  sync. 

C9B970 

10210 

02  WUc 

PICTURE  XC51. 

C9B9T0 

10220 

02  FII.LEr 

PTCTURE  XE51. 

C98970 

1023U 

02  FhIu-NT 

PICTURE  S9C5]. 

C9B9T0 

10240 

02  filler 

PICTURE  XC5J. 

C9B970 

13300 

FU 

OUT-FILE-NI 

C9B9T0 

13320 

RECORUING  MODE  IS  F 

C9B970 

13330 

BLOCK  CuNtAINS  40  RECORDS 

C9B970 

13340 

record  contains  70 

CHARACTERS 

C9B970 

13350 

LAStL  RECORDS  ARE  OMITTED 

C9B9T0 

13360 

DATA  RECORDS  ARE  OUT-REC-NI 

• 

C9B9T0 

' 3400 

01 

out-rec-ni  sync. 

C9B9T0 

13410 

02  filler 

PICTURE  XC701. 

C989T0 

30000 

workino-stphage  section. 

C98970 

30050 

77 

PAGE-NI  SYNC  COMPUTATIONAL 

PICTURE  S999  VALUE  ZERO. 

C9B970 

30130 

77 

LINl-NI  sync  COMPUTATIONAL 

PTCTURE  S999  VALUE  ZERO. 

C98970 

30150 

77 

NO-LINL-PAGE  SYNC  COMPUTATIONAL  PICTURE  S999  VALUE  <75. 

C989T0 

31500 

01 

OUT-DA-A  SYNC. 

C98970 

31510 

02  filler 

PICTURE  X VALUE  </■. 

C9B970 

31515 

02  filler 

PICTURE  XC06]  value  SPACE. 

C9B970 

31520 

02  OuS 

PICTURE  ZZZZ9. 

C9B970 

31530 

02  filler 

PICTURE  XXX  VALUE  SPACE. 

C98970 

31540 

02  WUC-OUT 

picture  XXXXX. 

C98970 

^1550 

02  FILLER 

PICTURE  X(49]  value  SPACE. 

C9B970 

31590 

02  filler 

PICTURE  X VALUE  I»I. 

C98970 

32U00 

01 

COM-TITlE-1  SYNC. 

C98970 

32U10 

02  filler 

ri^TURE  XI  321  value 

C98970 

32U20 

:i  LISTING  OF  FRI  0 - WUC  PAGEl. 

C9B970 

6-227 


liiTR  lirffttfiwryitw 


32030 

32U40 

32050 

32100 

32110 

32120 

32130 

32140 

32300 

32310 

32320 

32330 

32340 

SOUOO 

50010 

50020 

50040 

50060 

50100 

50110 

50120 

50130 

50310 

50320 

50330 

50340 

50350 

50360 

50500 

50510 

50520 

50530 

50540 

50550 

50560 

50600 

50610 

50620 

50630 

/• 


02  PAOL*RPT 

02  filler 

U2  FILLER 

01  C0M*Tl1kE-2  SYNC, 

02  FIL.ER 

:S  FREQ 

02  filler 
02  FIL.ER 

01  TITlE-N)N-ISC  sync, 

02  filler 
:s 

02  filler 

02  FILLER 


picture 

PICTURE  XC3«)  value  SPACE, 
PICTURE  X VALUE  Ul, 

PICTURE  XC19]  value 

vuct, 

picture  xcso)  value  space, 

PICTURE  X VALUE  tFt, 


PICTURE  XC26)  VALUE 
FOR  NON- ISOCHRONAL  A/C  t, 

PICTURE  XC41)  value  SPACE, 
PICTURE  X VALUE 


procedure  division, 

0PfcN-FlLC5. 

OPEN  INPUT  iN-FlLE, 

OPEN  OUTPUT  OU1-F1LE-NI, 

PERhORM  TITLE-Nl, 

REAU-INPUT 

REAU  IN-FlLE,  at  ENO  00  TO  CLOSE-FILES, 

IF  wUC  IS  EQUAL  TO  GO  TO  RCAO*INPUT, 

HOVE  MLC  TO  WUC-OUT, 

IF  FPLC-Nt  IS  EQUAL  TO  ZERO  CO  TO  READ-INPUT, 

MOVE  FReO-N1  to  oes« 
write  cut-rec-ni  from  out-oata, 

AOD  I 0 LINE-Nl, 

IF  LlN^-Nl  IS  GREATER  THAN  NO-LINE-PAOE  PERFORM  TITlE-nI, 
GO  TO  RLAO-lNPUr, 

TITLE-Nl, 

AOD  1 0 PAGE-Nl, 

HOVE  PAGE-Nl  TO  PACE-RPT, 

WRITE  OUT-PEC-Nl  FROM  COM-TITLE-1, 

WRITE  UT-FEC-Nl  FROM  TlTLE-NON-lSC. 
write  ^UT-REC-Nl  FROM  COM-TlTLE-2. 

MOVE  Z^hO  to  LINE-NI, 

CLOSE-FlLt5, 

CLOSE  ;n-file»  out-file-ni  WITH  lOcx, 

OISPLA''  : EOJ  C9G97  : UPON  CONSOLE, 

OOBACK. 

PLACE  cot  GL  SOURCE  BEFORE 
//CHG,TF01N  OU  w^SPACOCC  YL,C  1«  1 )) 

/•  PLACE  TFO  DATA  BEFORE  THIS  CARD 

//TPR,TU12  OU  01SP>COLD«KEEPJ«VOL>SEP>^Pi»UNtTmri 

//TPR,rU25  OU  OtSP>COLD»PASSJ 

//TPR.TPRIN  OU  4#SPACtHTRK«Cl*l)J 

T/P  TU12  1010020Z020 

T/P  TU25  I9^6v70R000 

/A  PLACE  T/‘*  CONTROL  CARDS  BEFORE  THIS  CARO 

//C9697R  EXEC  C96U3N»TtME>0I « ACCT>D35323007 
//CH0,TU25  DO  OSN>fP, 9097431 »OISP>COLO»DELCTE} 

//CH0,TPRIN  OU  •»SPACE>CTRK»Cla]] 

T/P  TU25  199O070R000 

/«  PLACE  T/P  CONTROL  CAROS  BEFORE  THIS  CARO 


C96970 

C96970 

C98970 

C98970 

096970 

096970 

C9B970 

C98970 

C98970 

C9A970 

C98970 

C98970 

C98970 

C98970 

C98970 

098470 

C98970 

C98970 

C98470 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C96970 

C98970 

C98970 

C98970 

C98970 

1440  CDS 

Tit 

OtB*PASS 


0t5-lN 


6.11.G  SORT  ISOCHRONAL  FREQUENCY 


//19897L  JOB 
//C98970  EXEC 
//CHO.SORTIN 
// 

// 

// 

// 

//CHO.SORTOUT 

// 

// 

// 

//CHe.STSIN 
SORT 
RODS 

/• 


01 >;  0 wXNO  : •prty>02>ttprun>hold 

P9622N>W>199.TIRE>01«*CCT>DjS823007  5ES 

Do  OISPvC  •KEEP1>UNIT>CT*FS>1>DEFEH]>  CT22 

DbN>*E.98T7mi>  CT2* 

V0L>SER>C*FS«**FS>8«FS>C7FS'D«F5>C*F5>F»F5'e«FS>H«F5>  CT*2 

I*F5»J*F5.K«F5.L*F5.R*F9.N»F5.0»F5.P»F5f0*F5»R*F5»s*FBl»CT«2 
DCO>CLREC_>0020>BLKSI2E>ie00]>LA8EL>t  >NSI.fRETPD>099) 

DO  OISPH  »KEEPJ,UNIT>:t*F1»1.0EFERJ,DSN>**,9897*3*»  CT12 

V0L>SCR>C*Flt**Fl.H7FI.C7Fl>D«Fl'E«FI>F»Fl>,fFl>H«Fl>  CTl* 

t*Fl>J*FltK*FItL«FIfM7Fl.NfFl,0*Pl>P*Flie»Fl(R«FI>S*Pll>CTIt 
DCB>CLRECL>U020>BLKSI2E>1800] 

DU  •tDCB>BLKSIZE>OOaO>SPACE>[TRK>CI>l]) 
FlELDS>C006>OoStCH>Ot001>OOS«CH>A],StZC>£0003000 
ElS>CE15>008>SORTLIB,N]>El«XEl«>029>SORTLIBfN} 


1 

2 

3 

9 

I 

t 

3 


6.11.7  WRITE  ISOCHRONAL  FREQUENCY 


//C9B97L  EXEC  P966SL>TlHE>ai>*CCT>03S323007 

SC 

//CHG, 

TUJ2 

DO  D 1 SM >t  • PASS  1 > UNI  T X T*F1  • 1 •DEFER  It D5N>« A.  M97,3«  • 

CTlt  1 

// 

VOL>SER>C •Fl.A4Fl.BAFI.C*FltOAFl>e«Fl«FAFl>,AFl>HFFl» 

CT12  2 

// 

lTFi.J*F:>K4Fl.L«Fl>M*FliNAFl>07F^«P«Fl>a«Fl>R4FI»SAFl J 

T12  3 

//CHG, 

TU2S 

DO  OSNSAP.SBSTASltSPACEXCVLXOOOtOOll} 

02S-OUT 

//CHG, 

INPUT  DO  •.SI*CE>tCrL>tl>lJl 

1»»0  COS 

OOUOO 

COMBINE  COMPILE 

0.  WANO, 

C98970 

01U40 

date-written.  1 APR  72. 

C98970 

oiuso 

REMARKS. 

C98970 

01060 

MAlNTENAJCe  STOOY  PROGRAM  SC, 

C98970 

01U70 

prepares  LISTINO  OF 

FREOUENCY  OF  REMOVAL  t AIRCRAFT 

C98970 

oiueo 

SUB-SET  21  -V-  WUC. 

C98970 

01090 

INPUT  SORT  SEOuENce 

C989T0 

01100 

FRCOUCMCT, 

C98970 

02U00 

environment  division. 

C98970 

02010 

configuration  section. 

C98970 

02020 

SOURCE-COMPUTER.  lBM-j60. 

C98970 

020JO 

object-computer.  IBM-360. 

C98970 

02100 

INPUT-OUTPUI  SECTION. 

C98970 

O2110 

file-control. 

C 98970 

02120 

SELECT  1N-F1_E 

ASSIGN  TO  UT-S-TOlt 

C98970 

021J0 

RESERVE  1 alternate  AREA. 

C98970 

02140 

SELECT  OUT-FILE-IS 

ASSIGN  TO  UT-S-TU29 

C98970 

021S0 

NLSlRVC  , ALTCRNATC  area. 

C98970 

loooo 

OAtA  OIVUluN, 

C9B970 

lOOlO 

fill  section. 

C9B970 

10100 

FO 

in-file 

C 98970 

10120 

RECORUInG  moe  is  f 

C98970 

lOlJO 

BLOCK  Contains  9o  records 

C98970 

10140 

RECUPO  CONTAINS  20 

CHARACTERS 

C98970 

10150 

CAPtC  RtCOROi  are  omitted 

C 98970 

10160 

OATA  RECORDS  ARE  IN-REC. 

C98970 

10200 

01 

IN-RFC  SYNC. 

C98970 

10210 

02  KUC 

picture  xtsi. 

C98970 

10220 

02  FnEl-ISC 

PICTURE  S9t5l. 

C98970 

10230 

02  filler 

PICTURE  XtlOl. 

C98970 

11300 

FD 

OUT-FRL-IS 

C 98970 

11320 

RECORUInG  MODE  IS  F 

C98970 

11330 

BLOCK  contains  KO  RECORDS 

C98970 

11340 

RECORD  contains  70 

CHARACTERS 

C98970 

11350 

LABEL  RECORDS  ARE  OMITTED 

C98970 

11360 

DATA  RElOrDS  are  OUT-REC-ISi 

C98970 

11400 

01 

OUT-CATA-IS  SYNC, 

C9B970 

1141U 

02  filler 

picture  XITOJ. 

C98970 

30000 

WORKING-STORAGE  SECTION. 

C9B970 

30O&0 

77 

PAGt-lS  SYNC  computational 

PICTURE  S999  value  ZERO. 

C9B970 

301U0 

77 

LiNt-is  Sync  computational 

picture  S999  value  ZERO. 

C98970 

30150 

77 

no-line-paoe  sync  computational  picture  S999  V»LUE  <7B, 

C98970 

31500 

01 

out-data  sync. 

C96970 

31510 

02  filler 

PICTURE  X VALUE  I/l# 

C98970 

3lJl5 

02  filler 

PICTURE  Xt07]  value  SPACE. 

C96970 

3152U 

02  ObS 

PICTURE  ZZZZ9. 

C96970 

31S30 

02  filler 

PICTURE  XX  value  SPACE. 

C9B970 

31540 

02  WUC-OUT 

picture  XXXXX. 

C98970 

315S0 

02  filler 

picture  XtR9J  value  SPACE. 

C98970 

31590 

02  FILLER 

PICTURE  * VALUE  »»I. 

C96970 

32U00 

01 

COM-TITLE-X  sync. 

C9B970 

32010 

02  filler 

PICTURE  Xt321  value 

C9B970 

32020 

:i  LISTING  OF  FREO  - WUC  PAGEl. 

C98970 

32030 

02  PAGc-HPi 

PICTURE  ZZ9. 

C9B970 

32040 

02  FILlFR 

PICTURE  Xcatl  value  SPACE. 

C98970 

32OS0 

u2  filler 

PICTURE  X VALUE  I»I. 

C 98970 

32100 

01 

com-title-2  sync. 

C9B970 

32110 

02  filler 

PICTURE  Xtl91  VALUE 

C98970 

32120 

:s  FREO  WUC I. 

C98970 

32130 

02  fillCr 

PICTURE  XC901  value  SPACE. 

C98970 

32140 

02  filler 

PICTURE  X VALUE  l#I. 

C98970 

32200 

01 

TITLE-ISC  SINC. 

C98970 

32210 

02  filler 

PICTURE  Xt2*l  value 

C98970 

32220 

:s  eor  isochronal  a/c  t. 

C98970 

32230 

02  filler 

PICTURE  XtRSl  VALUE  SPACE. 

C98970 

32240 

02  filler 

PICTURE  X VALUE  IFI. 

C 98970 

soooo 

PROCEnUKE  U1VIS:0N, 

C98970 

50010 

OPEN-FIlFSp 

C98970 

S0020 

OPEN  INPUT  IN-FlLE, 

C98970 

50040 

0Prf4  OUTPiiT  OUT-FlLE-lS. 

C 98970 

sooso 

PERf  OKP  TIT.  E-15, 

C98970 

j 

A 


6-229 


SOlOO  RCAO-lNI^UT. 

sol  10  RCAU  IN-FlLSt  AT  END  60  TO  CLOSE-FILES. 

50120  IF  tiUC  IS  El  UAL  TO  :9<)<»99t  GO  TO  REAO-INPOT. 

50130  MOVE  MUC  TO  WUC-OUT. 

50190  IF  FREO-ISC  IS  EQUAL  TO  ZERO  00  TO  REAO-tNFUT. 

50150  MOVL  FRtO-lSC  TO  08S. 

50160  WRITE  OUT-O'TA-IS  FROM  OUT-OATA. 

50170  AOO  1 TO  LINE-IS. 

50180  IF  LINE-lS  »S  GREATER  THAN  NO-L I NE-PAOE  PCRFORH  TITLE-iS. 

50360  GO  TO  rlao-:nput. 

50900  TlTLE-lS. 

50910  AOO  1 TO  PAGE-IS. 

50920  MOVE  PAGE-lj  TO  PAGL-RPT. 

50930  WRITE  OuT-n\TA-lS  FROM  COM-TITLC-l. 

50990  WRITE  OUT-OATA-IS  FROM  TITLE-ISC, 

50950  WRITE  OUT-OATA-IS  FROM  COM-TlTLE-2, 

50960  MOVL  ZLMO  TwI  LINE-IS. 

50600  CLOSE-FILLS. 

50610  CLOSE  Iw-FILE.  OUT-FILE-IS  WITH  LOCK. 

50620  OISPLAY  1 EjJ  09897  1 UPON  CONSOLE. 

50630  GOPACK. 

/*  PLACE  COUOL  SOURCE  BEFORE 

//CHG.TFblN  OU  •.SPACL>CCTL.C1.11] 

/*  PLACE  TFG  0AT.4  BEFORE  THIS  CARO 

//TPR.TU12  00  01SP>COLO.KEEP1.VOL>SER>9F1.0NIT>T*F1 

//TPR.TU25  00  OTSPMOLO.PASSl 

//TPR.TPRIN  00  •.aPACEMTRK.tl.lll 

T/P  TU12  1010020ZC20 

T/P  TU25  19980701(000 

/•  PLACE  T/P  CONTROL  CAROS  8EF0RE  THIS  CARO 

//C9897R  EXEC  C9603N.  nME>01.ACCT>03S32300T 
//CH0.TU25  OO  0S9>»P.909T931>0ISP>C0L0.0CLCTE) 

//CHO.TPRIN  00  9.SPACOCTRK.C1.1}] 

T/P  TU25  19980 70R030 

/*  place  T/P  CON'ROL  CAROS  BEFORE  THIS  CARO 


C98970 
C98970 
C98970 
C98970 
C98970 
. 098970 
C9B970 
C98970 
C98970 
C98970 
C98970 
C98970 
098970 
098970 
C98970 
C98970 
C989T0 
C98970 
C98970 
C989T0 
C98970 

1990  COS 

Til 

025-PASS 


OtS-IN 


6. 11.  8 SORT  REMOVAL  INTERVALS 


//T989TH  JOB  01.!  0.  WANG  : .PRTT>02.TYPRUN>H0L0 

//C9897G  EXEC  P96Z2N.*>199.TIME>05.ACCT>035323007  SOS 

//CHG.SOHTIN  00  UltP>t  .KEEPJ.UNIT>tA*F5.2.0EFER  J.  CT22/23  1 

//  0SN/9E. 9897935.  CT22  2 

//  VOL>S£R>C*F5.A«F5.B*F5.C*F5.0*F5.E9F5.F9F5»69FB.H9F5.  CT22  3 

//  1*F5.j*(  S.K^FS.L^FS.MAFS.N^FS.OYFS.P^FS.OtFs.RAFS.SYFSl.CTZl  9 

//  OCB>CLRrCL>0020.eLKSIZE>1800].LABEL>t.NSL.BETPO>099] 

//CHO.SORTOuT  00  01SP>C .KEEP]. UNIT>tA9Fl. 2. DEFER]. 0SN>9A, 9897936.  CT12/13  1 
//  V0L>SER/t*Fl.A9Fl.B9Fl.C9Fl.09Fl.E9Fl.F9Fl»89FI.HtFl.  CT12  2 

//  I9FI.J*,-  l.K9Fl.L9Fl.M9Ft.N9Ft.09Fl.P9FI.0*Fl.R9Fl.S9Fl].CTlt  3 

//  OCU>CL9TCL>0020.RLKSIZE>I800] 

//CHO.STSIN  OU  *.OCB>aLKSIZC>0080.SPACe>tTRK.tl.l]} 

SORT  FltLOSnOlT.OOl.CH.A.OlS.OOl.eH.R.OOl.OOS.CHrAMUOCOIOOOeO 
MOOS  ClB>CEI5>008.SOf.TLIU.N}.E18>Cei6.0(9.SORTLlB.N} 

/* 


6.11.9  CUMULATIVE  DISTRIBUTION  OF  REMOVAL  INTERVALS 


//C9897H  EaEC  P9655l.  .■lME>07.ACCT>035S45ir!rr 

//CHG.TU12  CO  Ul.PXC. PASS]. UNiTXTAFl.l. DEFER]. 05N>9A.9B9T936. 

//  V0LXSEP7C7Fl.A9Fl.B9Fl.C9FI.09Fl.E9Fl.F9Fl.G9Fl.HtFl* 

//  i*fi.j9fi.K9fi.L9fi.M9fi.N9Fi.09fi.P9fi.09Fi.r9fi.s9F1] 

//CH6.TU29  OU  OliPXC  .PASS]. UN1T'CT9F7.1.0EFER].0SN>9G. 9897937. 

//  V0L>SEP>C9F7.A9F7.B9F7.C9F7.09FT.E9F7.F9FT*69F7.H9F7. 

//  Itf  T.J9F7.K9F7.L9F7.M9F7.N9FT.09FT.P9FT.09Ft.r9FT.S9F7J 

//CH6. INPUT  00  9.SPACLXCTL.C  1.1  ]] 

OOUOO  COMfJIrjL  compile  6,  WANO. 

01090  OATE-WRlTTtlJ.  7 APR  72. 

01050  REMARKS. 

01U60  task  50  MIST  OF  WUC. 

02000  environment  division. 

02010  configuration  section. 

02020  source-computer.  IBM.360. 

02030  OBUECT-LOMPuTER.  IBH-360. 

02100  input-output  section. 

02110  fill-control. 

02120  SELECT  IN-FlLE  ASSIBH  TO  U7-S-TUU 

02130  rlslrve  1 alternate  area. 

\)2190  SELECT  MiST-FILE  ASSIGN  TO  UT-S-TUI9 

02150  plslRve  1 alternate  area. 

09000  SELLCI  cUT-OFF-FILE  ASSIGN  TO  OA-S-OTOS 

09010  PESLPVE  1 alternate  AREA. 


SO 

CT12  1 

CT12  2 

T12  3 

CT29  1 

CT29  2 

T29  3 

1990  CDS 

C98970 
098970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
098970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 


6-2  .'10 


louou 

DAT*  DIViblON, 

C98970 

10010 

FiLt  SECTlO.i. 

C98970 

11100 

FO 

IN-ULt 

C98970 

1112U 

recohuing  rode  Is  f 

C98970 

11130 

BLOCK  contains  90  RECORDS 

C98970 

iimo 

RECORD  CONTAINS  20 

CHARACTERS 

C96970 

11150 

LABtL  HLCOROS  ARE  OMITTED 

C98970 

11160 

OAT*  RECOKCS  ARE  IN-RECi 

C96970 

11170 

01 

in-rec  sync. 

C98970 

11180 

02  hue 

PICTURE 

xtsi. 

C96970 

11182 

02  FILLER 

PICTURE 

XC91. 

C98970 

11183 

02  OBS 

PICTURE  S9C61. 

C98970 

11184 

02  OBS-1  redefines  OBS 

PICTURE 

S99999V9. 

C96970 

11185 

02  filler 

PICTURE 

X. 

C98970 

11186 

02  ISCmRONAL-NEW 

PICTURE 

X. 

C9a970 

11187 

02  filler 

PICTURE 

X. 

C98970 

11188 

02  OATk-TYPE-NEW 

PICTURE 

X. 

C96970 

11189 

02  filler 

PICTURE 

X. 

C98970 

12100 

FO 

HIST-FILE 

C96970 

12120 

RECORDING  mode  is  F 

C98970 

1213U 

BLOCK  contains  15  RECORDS 

C98970 

12140 

RECORD  CONTAINS  130 

CHARACTERS 

C98970 

12150 

LAPLL  RECORDS  ARE  OMITTED 

C98970 

12160 

OAT*  RECORDS  ARE  HIST-REC. 

C98970 

12170 

01 

HiSf-RLC  S->NC. 

C98970 

12180 

02  filler 

PICTURE 

XtlSOT. 

C96970 

29000 

FO 

CUT-OFF-FIIE 

C98970 

29010 

RECORDING  NODE  IS  F 

C98970 

29U20 

BLOCK  C0NT> ins  20  RECORDS 

C96970 

29030 

RECORD  CON-'AINS  80 

CHARACTERS 

C98970 

29040 

LABLL  RECORDS  ARE  STANDARD 

C96970 

29050 

DATA  HECORCS  are  CUT-OFF-REC. 

C98970 

29060 

01 

CUT-OFF-RE-.  STNC. 

C98970 

29070 

05  Nl-CUT-OFF 

PICTURE 

9C53. 

C98970 

29080 

05  ISO-CUf-OFF 

PICTURE 

9153. 

C98970 

29090 

05  filler 

PICTURE 

XtTOS. 

C98970 

30000 

W0HKING-5T0U*G.  SECIION. 

C98970 

30010 

77 

KNT  SYNC  P’CTURt  S9t5J. 

C9a970 

30020 

01 

filler  Sync. 

C9e970 

30030 

02  FrLu-Hi ST- value  occurs 

1000  times  picture  59tS] 

C98970 

30040 

COMPUT  tional. 

C98970 

30050 

01 

A PICfUHE  5915  3 COMPUTATIONAL. 

C9e970 

30U60 

01 

NO-(jF-HISTS  sync 

PICTURE 

9999  VALUE  ZERO. 

C9e970 

30070 

01 

TWO  sme 

PICTURE 

X VALUE  121. 

C98970 

30080 

01 

ONE  SYNC 

PICTURE 

X VALUE  III. 

C9e970 

30090 

01 

CNT  sync 

PICTURE 

S9t51  computational. 

C98970 

30100 

01 

CUR-W,UC-T  SYNC* 

C98970 

30110 

02  FILLEk 

PICTURE 

XtSl  VALUE  1 WUC>t. 

C9e970 

30120 

02  CUK-WlC 

PICTURE 

XCS3. 

C98970 

30170 

01 

ischRonal  sync 

PICTURE 

X. 

C90970 

30160 

01 

oata-type  sync 

PICTURE 

X. 

C9e970 

30190 

01 

MINUS-ONE  :OMPUTATlONAL 

PICTURE 

S999  VALUE  -I  sync. 

C98970 

32000 

01 

REPORT-IO  SYNC* 

C9e970 

32010 

02  FILLEm 

PICTURE 

XT  50  3 VALUE 

C9e970 

32020 

SAI89TC60  TF7919-02  l<t2-8  1 

1 1/2 

C®e970 

32030 

02  FILlFi? 

PICTURE 

XT 50 3 value  space. 

C98970 

32U40 

02  FiLLEN 

PICTURE 

XT  30 3 value 

C9e970 

32050 

: 

FI. 

C98970 

46000 

01 

mean  computational  sync 

PICTURE 

S9tT3V99. 

C9e970 

46010 

01 

variance  computational  sync 

PICTURE 

S9C7  3V9V. 

C9e970 

46U20 

01 

TEMH-COMP 

PICTURE 

S9t7  3V99, 

C9e970 

46100 

01 

mean-vahUnce-line  sync* 

C9e970 

46110 

02  filler 

PICTURE 

Xt50  3 value 

C9e970 

46120 

:s 

C98970 

46130 

02  filler 

PICTURE 

Xtl93  value 

C98970 

46140 

mean 

>:* 

C9e970 

46150 

02  MtAn-ROT 

PICTURE 

ZZZ9.9. 

C9e970 

46160 

0?  filler 

PICTURE 

Xt30  3 value 

C9e970 

46170 

s 

VARIANCE  >1. 

C9e970 

46180 

02  VARiAN:E-RPT 

PICTURE 

ZZZZZZ9.9. 

C98970 

46190 

02  filler 

PICTURt 

XT  103  VALut 

C98970 

46200 

tl. 

C98970 

47000 

01 

HIST-VALUL -MAX  SYNC 

PICTURE 

S9999V99  V*LUE  -9999.9, 

C9e97ft 

47010 

01 

HIS1-VALI>E-MIN  SYNC 

PICTURE 

S9999V99  V*LUE  <9999.9. 

C98970 

47020 

01 

HiST-NO-OF-oeS  SYNC 

PICTURE 

S9t5  3 VALUE  zero. 

C98970 

47U30 

01 

HIS l-NO-OF -intervals  SYNC 

PICTURE 

999V99  value  50, 

C9e970 

47040 

01 

H!S?-INPU‘'.VMAX-VMIN  SYNC 

PICTURE 

9 VALUE  zero. 

C98970 

47050 

01 

HiSI-UlbT  SYNC 

PICTURE 

X VALUE  111. 

C98970 

47060 

G1 

hist-inue*  sync  computational 

C98970 

47070 

PICTURE 

S999  VALUE  ZERO. 

C98970 

47080 

01 

HIS1-IN0E>-2  STNC  computational 

C98970 

47090 

picture 

S999  VALUE  ZERO. 

C98970 

47100 

01 

mist-temp  sync 

PICTURE 

S99V99V99  V»LUE  ZERO. 

C98970 

47110 

01 

HIST-INIEFVAL-SI2E  SYNC 

PICTURE 

S999V99  VALOC  ZERO 

C98970 

(5-231 


<*7120 

COMPUTATIONAL! 

C96970 

<*7150 

01 

HIST-FLAG  SYNC 

PICTURE 

X value  lOi, 

€96970 

47160 

01 

HIST-SCALt -VALUE  SYNC  COMPUTATIONAL 

C96970 

47170 

picture 

S999  value  <1. 

C989T0 

47160 

01 

HIST-PtKCENT  SYNC 

PICTURE 

S999V99  computational. 

C96970 

47190 

01 

HIST-CUM  SYNC 

PICTURE 

S999V99  computational. 

C989T0 

47200 

01 

HIST -LINE  Sync  computational 

C989T0 

47210 

PICTURE 

S999  value  2EMO. 

C989T0 

47220 

01 

hist-paijE-flao  sync 

PICTURE 

S999  VALUE  <T5. 

C96970 

47230 

01 

HIST-LINE-CNT  SYNC 

PICTURE 

S999* 

C989T0 

47300 

01 

HlST-tNH-.  SYNC 

PICTURE 

XClOl  value 

C989T0 

47JI0 

ICflflOA  NO  Ot. 

C96970 

47320 

01 

HlST-tRH-3  SYNC. 

C989T0 

47330 

02  FILLER 

PICTURE 

XCSJ  value  IBS  > 1. 

C909T0 

47340 

02  HlST-e.RK-2 

PICTURE 

S9C5}  value  zero. 

C96970 

47350 

01 

HlST-tHK-k  SYNC 

PICTURE 

xcioi  value 

C98970 

47360 

: ERROR 

PAXI  • 

C989T0 

47370 

01 

HlST-tRK-S  SYNC 

PICTURE 

XCIOl  VALUE 

€96970 

47360 

1-MIN  BAD. 

C90970 

47390 

01 

HIST-OUI-'^ANOE-VALUC  SYNC 

PICTURE  S999  computational. 

C96970 

47500 

01 

filleh  sync. 

C96970 

47510 

02  filler  occurs  200  TIMES. 

C96970 

47530 

03  H.ST-TAHLE 

PICTURE 

S9I51  COMPUTATIONAL. 

C96970 

47540 

03  H'ST-UPPER-LIMIT 

picture 

S9999V9V  computational. 

€96970 

47550 

03  HISr-TAUtE-SCALEO 

PICTURE 

S999  computational. 

C96970 

47560 

01 

HIST-NEm-HAGE  sync* 

C96970 

47570 

02  FILLEP 

picture 

X VALUE  111. 

C96970 

47580 

02  fillep 

PICTURE 

XC122]  value  space. 

€96970 

47562 

02  FILlEk 

PICTURE 

XCSl  VALUE  IPA6E  I. 

C96970 

47564 

02  HlSI-fAGE-NO 

PICTURE 

9# 

C96970 

47590 

02  FILLEP 

PICTURE 

X VALUE  1*1. 

C96970 

47600 

01 

HIST-TIILE  SYNC. 

C96970 

47610 

02  FILLER 

PICTURE 

XCSl  VALUE  IS  1. 

C96970 

4 7620 

02  HlST-'^ITLE-l. 

C96970 

47621 

03  FfttER 

PICTURE 

XCIOl  value  space. 

C96970 

47630 

02  HlST-TITlE-2. 

C96970 

47631 

03  f.ller 

PICTURE 

xcioi  value  space. 

C96970 

47640 

02  HIST-'IYLE-3 

PICTURE 

XCIOl  value  space. 

C90970 

47650 

02  HISI-TITLE-4 

picture 

XCIOl  value  space. 

C989T0 

47660 

02  filler 

PTC  rwc 

XC241  value 

C96970 

47670 

1 NO  OF  observations  >1. 

C96970 

47680 

02  HIST-'IO-OF-ORS-RPT 

PICTURE 

22229. 

€98970 

47690 

02  filler 

PICTURE 

XCI31  value 

098910 

47700 

. value  max  > 1. 

C96970 

47710 

02  HIST- 'ALUE-MAX-RPT 

PICTURE 

——.9, 

C96970 

47720 

02  filler 

PICTURE 

XCI31  value 

098910 

47730 

) value  min  > 1. 

098910 

47740 

02  hisi-.alue-min-hpt 

PICTURE 

C989T0 

47T50 

02  filler 

PICTURE 

XCI8]  value 

C96970 

47760 

C989T0 

47900 

01 

HIST-UOr-LlNE  STNC. 

C96970 

47910 

02  FILLE' 

PICTURE 

XC501  VALUE 

C98970 

47922 

02  filler 

PICTURE 

XC  80 1 value 

€96970 

47940 

C96970 

47950 

01 

HIST-L*llEL  SYNC. 

C96970 

47V60 

02  FILLER 

PICTURE 

xrsoi  VALUE 

C96970 

47970 

J/  MIOPNT  PCNt 

CUM  FREO  1 • • tS* • • lO • * • 10 t • • SO • 1 t 

C96970 

47974 

02  filler 

PICTURE 

xceoi  value  I,, 

€98970 

4796U 

• 

|26«««3u««*35««*40«««40««« 

00 • • *56 • 9 *60 • • tOO* • • To • » *70*  * *60 • • • 

C96970 

47990 

• 

l85...yu...95..100A|. 

C96970 

46U00 

01 

hist-line  OUT  STNC. 

C909T0 

46010 

02  filler 

PICTURE 

X VALUE  I/I. 

C96970 

46020 

02  hist-line-rpt 

PICTURE 

229. 

C96970 

46030 

02  FILLEI. 

PICTURE 

X VALUE  SPACE. 

C96970 

46040 

02  HIST-“IO-POInt-RPT 

PICTURE 

C96970 

46060 

02  HIST-PERCENT-HPT 

PICTURE 

229.9. 

C96970 

46070 

02  filler 

PICTURE 

X VALUE  SPACE. 

C98970 

46060 

02  M1SI-:UM-RPT 

PICTURE 

229.9. 

C96970 

46100 

02  HI5r-«RtO-«PT 

PICTURE 

22229, 

€96970 

49110 

02  filler 

PICTURE 

X VALUE  SPACE. 

C96970 

46120 

02  HIST-POINT  OCCURS  100 

TIMES 

C98970 

46130 

PICTURE 

X. 

C96970 

46140 

02  FILLER 

PICTURE 

X VALUE  Ul. 

C96970 

48150 

01 

HIST-OUT-RANGE-HEC  SYNC. 

C989T0 

46160 

02  filler 

picture 

XC3S1  value 

C96970 

46170 

NUMBER  OF  OUT 

OF  RANGE 

VALUES  >1. 

C989T0 

48180 

02  HIST-OUT-RANOE-RPT 

picture 

229. 

C989T0 

48190 

02  filler 

PICTURE 

XC911  value  space. 

C96970 

48191 

02  filler 

PICTURE 

K value  1*1. 

C989T0 

48200 

01 

HlST-SCALE-LINE  StNC. 

C989T0 

48210 

02  filler 

PICTURE 

KC271  VALUE 

€96970 

M8220 

:/  SCALING 

factor  > 

1. 

C96970 

48230 

02  HIST-3CALE-RPT 

PICTURE 

229. 

C98970 

48240 

02  filler 

PICTURE 

XC0991  value  space. 

C 989 TO 

48250 

02  filler 

PICTURE 

X VALUE  1*1. 

C989T0 

G-232 


%8300 

H63I0 

H8320 

»0U00 

bOUOl 

*>0U02 

50O0A 
80U10 
80U20 
*>0U30 
dOUdO 
b0U50 
80U60 
bOlOO 
bOllO 
*>0120 
bOldO 
bOlbO 
bOlbO 
b0170 
b020U 
50210 
bU^20 
50230 
50250 
50260 
50270 
50300 
50310 
50320 
50330 
50H00 
50<I10 
50H20 
50430 
50440 
50445 
504S0 
50455 
50460 
50510 
50512 
50514 
50516 
50516 
50520 
50  530 
515M0 
50550 
505r.U 
50S«»0 
50f)00 
5'  410 
50620 
51UO0 
51010 
51020 
51U30 
51040 
51050 
51060 
51070 
511*50 
5iU90 
51100 
51110 
51120 
51130 
51140 
52U0O 
5201U 
52U20 
52030 
52040 
52050 
52O60 
52070 
52060 
52O90 
52100 
52110 
52120 
52130 
52140 
52200 
52205 


01  FlLLtH  5YMC.  C96970 

02  Hl5T*/ALue  OCCURS  lOOO.  TIMCS  CO6970 

RlCTURC  COMPuMTIOMAL*  C96970 

PHOCCOUHt  DIVISION.  C96970 

oRcn  iNHUi  cur«ofr«riLi.«  C9A97o 

HC.au  «.UI*9rF-FlLl  AT  LNU  60  TO  CLOSC*PtLCt*  C96970 

CL05C  CuT*OfF*r  ILI:  91TH  LOCK.  C96970 

OPtN  INHU.  1N*F1LL.  C96970 

QPZH  OUrRjT  HlSr-FlLC.  C96970 

MOVL  lOoO  TO  RNT.  C96970 

PCHFOHM  RtSCT-TASLC  THRU  CNO-RST«rA«M.e«  C96970 

HEAD  IN-FILC.  at  CNO  00  TO  CLOSC^FtLCS.  C96970 

«mrt  Hisr-Hic  from  RtPOHr«to«  C96970 

PARA.U  C96970 

MOVL  1 TO  H1ST«N0*0F-0BS«  C96970 

MOVt  ^0  CUH*«UC.  C96970 

MOVE  UA rA-TrPC-N€9  TO  OATA-TYPE.  C96970 

MOVt  1ScHH0NAL«NE9  to  ISCHRONAL*  C96970 

IF  uATA-TrPt  15  EOUAL  TO  ONE  00  TO  WCCKS-OAfA  CLSC  00  TO  C96970 

FLT-OATA.  C96970 

REAOl.  C96970 

HCAu  lN«F:Lt»  at  CT40  00  TO  CLOSC^RILCS*  C96970 

IF  uATA-TvPE.Ni«  IS  FOUAL  TO  I9l  00  TO  CLOSC^PlLCS*  C96970 

IF  «UC  IS  NOT  EOUAL  TO  CUH-VUC  00  TO  PARA*t.  C96970 

AOO  1 TO  hl5r-N0-0F«0eS.  C96970 

IF  UATA-T''RL  is  equal  to  one  00  TO  VECRS-OATA  ClSE  00  TO  C96970 

FLT-OATA,  C96970 

PARA-2.  C96970 

perform  SCT-HISTOO  thru  encash.  C96970 

PERFORM  R^SET-TAflLF  ThRU  ENO-RST^TAOLC.  C96970 

GO  10  PARA-l,  C96970 

RESET-TABLC.  C96970 

MOVL  2ChO  to  CNT«  C96970 

RST.  C96970 

AOO  1 TO  CNT«  C9a970 

MOVt  minus-one  to  hist-value  tCNT).  C98970 

MOVt  2tKO  TO  FHtO-HlST-VALUE  tCNTJ.  096970 

IF  CNT  IS  LtSS  THAN  KNT  CO  TO  RST*  096970 

MOVE  2FmO  to  KNl.  C96970 

fNO-HST-TA»JLE.  Exit.  C96970 

SET-HlSrOo.  C96970 

IF  ISCHHONAL  IS  equal  to  ONE  ANO  M|ST«NO-OF-OOS  IS  NOT  C96970 

GHEATtR  THAN  1S0«CUT-0FF  60  TO  ENO-SH.  C96970 

IF  iSCHKOi  At  IS  EQUAL  TO  TRO  ANO  HlST«NO-OP-OeS  IS  NOT  C96970 

OHCATtR  THAN  Nl-CUT-OFF  60  TO  €N0*SH.  096970 


IF  islhhonal  is  equal  to  one  move  t ISO  1 TO 

HIST-TITLE-4.  else  move  ? NON-ISO  I TO  M|St-TITL€-9. 

IF  uAiA-T.'Pt  IS  Equal  to  one  move  i ocERS  i to 

H15T--1TLE-3*  LLSt  MOVE  I rLT-MOURSl  TO  MlST-TlTLf*J. 

MOVt  tUR-4(/C-T  TO  HIST-TITLE-I. 

PERFOrw  4Ml TE-HIsTOQRAM  thru  eno-mist. 

IF  MlbT-F^AO  IS  EQUAL  TO  u;  THEN  60  TO  CFl. 

Aor  l TC  ’*0-0r-HlSTS. 

INU-5H.  txlf. 

MttKS-OATA. 

MOVt  2tHC  TO  CNT, 

REtK-A, 

AOO  1 TO  CNT, 

IF  065  IS  equal  to  HlST-VALuE  ( CNT I 00  TO  rCEK-C. 

IF  FPlO-htsT-VALUE  (CNTJ  is  equal  to  EERO  00  TO  RCCR-0. 

IF  CNT  IS  LESS  THAN  1000  00  TO  REER«A. 

UISPLAT  ! MORE  THAN  1000  FREOUCNCY  OCCURENCES  1 UPON  CONSOLE. 
GO  TO  CFl. 

Rttr--i;, 

MOVt  OPS  TO  mist-value  (CNTl. 

ir  cNT  is  OHfATtR  THAN  RNT  TME%  NOVt  CNT  TO  RNT. 

»EtA-C, 

AOO  1 TO  FREO-HIST-VAlUC  (CNT). 

00  TO  RtAUl • 

FLT-OATA. 

MOVt  2tKO  TO  CNT, 
flt-a, 

AOO  1 TO  cNT, 

If  uOs-l  15  equal  to  HIST-VALUE  ICNT3  tO  TO  FET-C* 

IF  rRtQ-N!Sr-VALUC  (CNTJ  Is  EOuAL  TO  EERO  00  tO  FLT-R. 

IF  cNT  is  less  than  1000  60  TO  FLT-A. 

display  : MORE  THAN  1000  FREQUENCY  XCURCNCES  I UPON  CONSOLE. 
GO  TO  Lf  1 
FLT-0. 

MOVt  OP;»-l  TO  hIST-VAluE  ccnti. 

If  CNT  is  CRtATtR  THAN  RNT  THEN  MOVE  CNT  TO  RNT. 

FLT-C. 

ADO  1 TO  FRtO-HlST-VALUE  CCNTI. 

GO  TO  HEAOI, 

CLOSt-FlLtS. 

PtPFORM  S^T-N/SrOO  THRU  fNO-SH. 


C96970 

C9e97e 

C96970 

C9097e 

C969T0 

C96970 

C96970 

C969T0 

C96970 

C9e970 

C96970 

C9e970 

C9e970 

C9e970 

C96970 

C96970 

C9e970 

C969T0 

C96970 

C9e970 

C96970 

C96970 

C96970 

C9e970 

C96970 

C96970 

C96970 

C9697n 

C96970 

C96970 

C96970 

C96970 

C9A970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 

C96970 


52207 

52210 

52211 

52212 
52215 
hZ220 
52230 
95U00 
95U10 
95020 
95U30 
95090 
95050 
95U60 
95U70 
95U80 
95090 
95100 
95105 
95110 
95120 
95130 
95190 
95150 
95160 
95170 
95160 
95190 
95200 
95290 
97U00 
97060 
97U90 
97100 
97190 
97150 
97200 
97210 
97220 
97230 
97290 
97250 
97260 
97270 
97260 
97290 
97292 

97299 
97296 
97296 

97300 

97301 

97302 

97309 
97306 

97310 
97320 
97330 
97390 
97350 
97355 
97360 
97370 
97380 
97390 
97910 
97920 
97930 

97990 

97991 

97992 

97993 
97999 

97995 

97996 
97950 
97960 
97500 
97510 


CFl.  C90970 

CLOSE  1N-»^1LE*  HlST-FlLE.  C96970 

IF  HIST-FLAO  IS  EQUAL  TO  l|t  DISPLAY  t HIST  CPROP  S UPON  C96970 

console.  C9A970 

OISHLAT  X NO  OF  HISTOOPAMS  > t NO.OF^HISTS  UPON  CONSOLE.  C98970 

OISPLAY  : eoj  C9697  I UPON  CONSOLE.  C98970 

GOPACK.  C98970 

COHPuTE«HEAN-VAR1ANCE.  C98970 

MOVL  2EK0  TO  CNT.  C98970 

MOVL  2EKO  TO  MEAN.  C96970 

CMV-1.  C98970 

AOO  1 TO  CNT.  C98970 

COMPUTE  TEMP-COMP  > HIST-VALUC  CCNTJ  • FPEO-MIST-VALUC  ICNTI.  C98970 

AOO  TLMP-COMP  TO  MEAN.  C98970 

IF  CNT  IS  LESS  THAN  KNT  60  TO  CMV-1*  C90970 

OIVIOE  HlST-NO-OF-OeS  INTO  MEAN.  C98970 

MOVE  2EKO  TO  CNT.  C98970 

MOVL  2EkO  to  VARIANCE.  C98970 

IF  HlST-NO-OF-OttS  IS  LESS  THAN  2 60  TO  END-CMv*  C98970 


CMV-2. 

AOn  1 TO  CNT. 

COMPUTE  TE9P.COMP  > CCHlST-VALuE  CCNTJ  « MEAN)  #9  f)  9 

FREQ-HIST-VAlUE  cCntj* 

AOO  TLMP-COMP  TO  VARIANCE. 

IF  CNT  IS  LESS  THAN  KNT  GO  TO  CMV-2* 

COMPUTE  VARIANCE  > VARIANCE  / C HlST-NO-OP-OBS  • 1 )• 

MOVL  MEAN  TO  MEAN-RPT. 

MOVL  variance  to  VARIANCE-RPT. 

VRITE  HlSt-REC  FROM  MEAN-VARlANCE-LlNE. 

ENo-cMv.  Exit. 

WRtTE-HlSTOoRAM« 

MOVL  :o:  ',0  hist-flao. 

MOVL  ZEkO  TO  HIST-OUT-RANGE-VALUE. 

MOVE  2LkO  to  HIST-PAGE-NO. 

MOVE  -9999.9  TO  HIST-VALUE-MAX. 

MOVE  <999^,  .9  TO  HIST-VALUE-MIN. 

MOVL  2EkO  to  HlST-lNOEX* 

HIST-FInO-VMAx-VMIN. 

AOO  1 To  HIST-INOEX. 

MOVL  HiST-VALUE  CHIST-INOEXJ  TO  HIST^TCMP. 

IF  HIST-TLMP  is  greater  than  HlST-VALUt-MAX  THEM  MOvt 
HIST-TEMP  TO  HlsT-VALUC-HAX. 

IF  HlST-TE'fP  IS  LESS  THAN  HtST-VALUe*MlN  ThEN  MOyE 
HTST-TEMP  to  HIST-VALUE-MIN. 

IF  MlST-lNOEX  IS  LESS  THAN  KNT  THEN  60  TO 

HIST-FINO-VMAX-VMIN. 

IF  uata-ttpe  is  equal  to  one  compute  hist-no-op-intervals  > 

HIST-VALUE-MAX  < 9. 

IF  UATA-TTPE  IS  EQUAL  TO  T«0  COMPUTE  H|ST-NO«Of -INTERVALS  > 
H1ST«VALUE-HAX  / 8 < 9, 

HIST-PRINT-TI^'LE. 

IF  HIST-NO-OF-INTERVALS  is  less  than  50  MOVE  60  TO 
MIST-No-OF- intervals. 

AOO  1 TO  »;1ST-PA0E-N0. 

MOVL  5 TO  HlST-LlNE-CNTt 

WRITE  HlST-REC  FROM  HIST-NEW-PAGE . 

MOVL  HlST-NO-OF-OBS  TO  H|ST-NO-OF-OOS-RPT . 

MOVL  HIST- VALUE-MAX  TO  HlST-VALUE-MAX-RPT. 

MOVL  HTST-VALUE-MlN  TO  HlST-VALUE-MlN-RPT. 

WRITE  HIST-REC  FROM  HIST-TITLE. 

PERFORM  CCMPuTE-MEAN-VARIANCE  THRU  EHO-CMv. 

WHITE  HIS'-REC  FROM  HIST-OOT-LlNE. 

WRITE  HIST-KEC  FROM  HlST-LABEL. 

WRITE  HISV-REC  FROM  HlST-OOT-LlNE. 

HlST-OUMMy. 

IF  hist-value-max  is  less  than  hist-valuc-min  Then  to  to 

HIST-ERROR-2. 

IF  HlST-No-OF-lNTERVALS  IS  GREATER  THAN  200  THEN  HOVE  200 
TO  HTST-NO-OF-INTERVALS. 

MOVL  2LkO  ;ro  HIST-INOEX* 

HIST-RST. 

AOO  1 TO  V IST-INOEX. 

MOVL  2ERO  TO  HIST-TARLE  CH|ST-|N0EX J. 

IF  HlST-lNOEX  IS  LESS  THAN  HIST^NO-OF^INTCRVAlS 
THEN  00  TO  HIST*RST. 

IF  UATA-TY»E  is  equal  to  ONE  MOVE  1.0  TO  NIST-INTCRVAL-SIIE* 
ELSE  MOVE  6.0  TO  NIST-InTERVAL-SUE* 
NOTE  COMPUTE  UPPER  LIMIT  FOR  EACH  INTERVAL. 

MOVL  ZLKO  TO  HlST-lNOEX. 


C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98R70 

CR8970 

C98970 

C98970 

C98970 

C98970 

C98970 

C90970 

C98970 

C98970 

C98970 

C90970 

C98970 

C98970 

C90970 

C90970 

C98970 

C98970 

C90970 

C98970 

C98970 

C98970 

C90970 

C98970 

C90970 

C98970 

098970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C96970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 


6-234 


1 


9Tb20  MOVL  ZChO  TO  HIST-TEMP. 

9Tb30  HIST-INC-lNTEpvAL. 

97b(t0  ADD  1 TO  HIST-INDEX. 

97b50  ADD  HISI-I 'JTE«VAL-SIZE  TO  HIST-TEMP. 

97b60  MOVL  HiST-TEMP  TO  HIST-UPPC«-LIHIT  CHlST-lNOCXS. 

97b70  IF  HIST-INDEX  lb  LESS  THAN  HIST-NO^OF-INTCPVALS  THEN 

9TbA0  GO  TO  HIST-INC-INTERVAL. 

97600  MOTE  PLACE  OCCUMANCE  INTO  APPROPRIATE  CHANNEL. 

97610  MOVE  ZLhO  TO  HlbT-lNDEX-2. 

97620  HIST-OCCUMAnCe. 

97630  ADD  I TO  hIST-INDEX-2. 

97640  MOVL  HlbT- value  C HIST- INDEX-2 3 TO  HIST-TEMP. 

976S0  MOVE  ZEkO  TO  HiST-INDEX. 

97660  hist-interval, 

97670  ADD  I Tu  KlST-INDEX. 

97675  MOVE  FRLQ-HIST-VALUE  C HIST- tNDEX-2 3 TO  A. 

97600  IF  HlST-TfMp  IS  NOT  GREATER  THAN  HlST-UPPCR-LlMlT 

97690  ChIST-INDEXI  THEN  GO  TO  HIST-ADD-TA8LE. 

97700  IF  HlbT-lNDEX  IS  LESS  THAN  HIST-NO-OF-INTERvALS  THEN  00  TO 

97710  hist-interval. 

97T20  ADO  A TO  h1ST-OUT-RAN6E-VAlUE. 

97730  GO  TO  HISI-NO-AUD. 

97740  HIST-ADU-TAbLc , 

97750  ADD  A TO  HlST-TARLE  CHIST-INCEX). 

97751  HIST-NO-AUO, 

97760  IF  HTbT-lMLX-2  IS  LESS  KNt  GO  TO  HlST-OCCURANCE. 

97600  NOTl  tO^PiTE  SCALE  VALUE. 

97610  MOVL  HlST-TABLE  C I 3 TO  HiST-TEMP. 

97620  MOVL  1 I0  HIST-INDEX. 

9T830  HIST-SCALl. 

97640  ADD  I TO  HrST-lMOEX, 

97650  IF  hist  TaPLE  IHIST-INDEXJ  IS  GREATER  THAN  HlST-TEMp  ThEN 

9T860  Myvt  r.lST-TARLE  ChIST-INDEX)  TO  HiST-TEMP. 

97670  IF  HiSf-IfOLX  IS  LESS  THAN  HlST-NO-OF-lNTERVALS  THEN  00  TO 

97660  HIST-SCALE. 

97690  compute  HisT-SCAle-VAluE  > CHIST-TEMP  < 993  / lOO. 

9769b  IF  HISI-SCALF-VALUE  IS  LESS  THAN  I MOVE  1 TO 

97696  hIST-S< ALf-VALUE. 

97900  MOVL  ZttiO  TO  MlST-INDEX. 

97910  MIST-SCALLO-VAcUES. 

97920  ADD  I To  UST-INDtX, 

9/930  COMPUTE  HiST-TAbLE-SCALED  CHIST-INOEXJ  > 

97940  HiST-TAbLE  CHIST-INDEX 3 / HIST-SCALE-vAlUE* 

979S0  IF  hIST-1  .nLX  IS  LESS  THAN  HIST-N0-0F*.INTERVALS  THEN  00  TO 

97960  HIST-SCALED-VALUES* 

96000  NOTE  PRlPAPE  OUTPUT  DATA, 

96010  DIVICL  2 4NTO  HIST-INTEHVAL-SIZE. 

96020  MOVL  ZC kO  TO  HiST-CUM, 

96030  MOVL  ZL«0  TO  HlST-LINE, 

96040  HIST-PPlPAWl. 

96050  ADD  I TO  MST-LlNE. 

96060  MOVL  HIST-LINE  10  HIST-LINE-RPT. 

96070  COMPUTE  HJST-TEMP  > HIST-UPPER-LIMIT  CHIST-LINE3 

96060  - HIST-INTERVAL-SIZE. 

96090  MOVL  HibT-TEMP  TO  HIST-MID-POINT-RPT. 

98100  COMPUTE  H;ST-PEHCENT  > HiST-TABLE  CHIST-LINE3  • 100 

96110  / HIST-NO-OF-OBS* 

98120  MOVL  HIST-PE«CENT  TO  HIST-PERCrNT-RPT . 

90130  ADD  HlSf-P*HCF.NT  TO  HIST-CUM, 

96140  MOVE  HibT-fuM  TO  HI ST-CUM-RPT . 

98150  MOVL  HlbT-TAPLE  CtUST-LlNEl  TO  HIST-FREO-RPT. 

98160  MOVL  ZLnO  TO  HlST-INOEX. 

96170  IF  MIST-UI3T  IS  NOT  fOUAL  TO  lol  00  TO  M|ST-CUM-l. 

96160  COMPUTE  HiST-INUEX-2  > HIST-TABLE-SCALEO  CMIST-LINEJ  < 0.5. 

98190  IF  MlST-lNOLX-a  IS  EQUAL  TO  ZERO  60  TO  MIST-PREP-SPACE , 

98200  HIST-FPLP-OIST , 

96210  ADD  I To  »*!ST-IN0EX, 

96220  MOVL  TO  HlST-POINT  C HlST-lNUEX  J, 

98230  IF  hluT-lfJOEX  IS  LT SS  THAN  HIST-lNDtX-2  GO  TO  H15T-PRCP-OIST. 

96240  IF  MiST-lN.’LX  IS  EQUAL  TO  100  THEN  GO  TO  HIST-WRITE. 

962S0  HIST-PPlP-SPACF, 

98260  ADD  I TO  MlST-INpEX, 

96270  MOVE  S^ACL  TO  HlST-POINT  (HlST-INDEX ), 

96260  IF  Mlbt-IfOL*  IS  LESS  THAN  100  THEN  GO  TO  HlST*PReP-SPACEt 

90290  GO  TO  MlS*-i*«lTt, 

96300  MIST-CUM-I. 

96310  ADD  I To  KIST-INOEX, 

98320  «OVL  SPACF  TO  HlST-POINT  C HIST- INDEX  3, 

9B330  IF  hlSt-lMOLx  IS  LESS  THAN  100  THEN  GO  TO  HlST'CUM-l. 

96318  COMPUTE  HIST-INJEX  > HIST-CUM  < 0.5. 

9833*  IF  HIST-Ir  >CX  IS  L0U*L  TO  ZE«0  GO  TO  MIST-WITE. 

98340  MOVL  TO  hist-point  I HlsT-lNUCX  3. 

96400  HIsT-«PITL. 

98410  hRITF  HiST-PfC  FROM  HfST-L INE-OUT . 

96412  ADD  I TO  MIST-L INC-CNT . 

964|4  IF  MIST-PAGL-FLAG  IS  EOUA(.  TC  /LRO  GO  TO  HlST-No-PAflNO. 

98415  IF  HIST-LINE-CNT  IS  EQUAL  TO  HlST-PAOE-FLAO 
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98416  TH€N  PERFORM  HlST-PRINT>TITLE« 

98417  HIST-N0>P*G1NC, 

98420  IF  HIST-LINC  IS  LESS  THAN  HlST-NO^.|NT£RVALS  THEN  80  TO 

98430  HIsT-PREPARE. 

98440  WRITE  HIST'REC  FROM  HIST-OOT-LINC. 

98450  HOVE  HIST-SCALE-VALUE  TO  HIST-SCALE-RPT. 

98460  WRIU  HIST-REC  FROM  HIST-SCALE-LINE> 

98470  IF  HIST-Our-RANGE-VALUE  IS  EQUAL  TO  2ER0  80  TO  HIST-HRITE-B 

98480  MOVE  HIST-OUT-RANGE-VALUE  to  HIST-OUT-RAN8E-RPT, 

98490  WRITE  HIST-REC  FROM  H1ST-0UT-RAN8E-REC. 

98500  HIST-WRITE-U. 

98510  WRITE  HIST'REC  FROM  HlST-OOT-LlNE. 

98520  GO  TO  ENO-HIST. 

99000  HIST-ERHOH-1. 

99U10  WRITE  HIST-HEC  from  HIST-TITLE. 

99U20  MOVE  HlST-EKR-I  TO  HlST-TlTLE-I. 

99030  MOVE  HlsT-NO-OF-OBS  TO  HlST-ERR-2, 

99040  WRITE  HIST-REC  FROM  HIST-TITLE. 

99050  MOVE  :i:  T3  HIST-FLAG. 

99060  GO  TO  EnO-HIST. 

99100  HIST-ERHOH-2. 

99110  MOVE  HlST-eHR-4  TO  HlST-TlTLE-1. 

99120  MOVE  HIST-EHR-S  TO  HIST-TITLE-2. 

99130  WRITE  HIST-HEC  FROM  HlsT-TITLE. 

99140  MOVE  ti:  TO  hist-flag. 

99150  GO  TO  ENO-HIST. 

99200  HIST-ERh-3. 

99210  HOVE  ii:  TO  HIST-FLAG. 

99990  ENO-HIST.  EXIT. 

/•  PLACE  COBOL  SOURCE  BEFORE 

//CHG.TFGIN  00  «rSPACE>CCYLiCIiI ]J 
TFG  OT03  II  0202080 
5 5 


•ENO 

/*  PLACE  TFO  OATA  SEPORE  THIS  CARO 

//IPR.TUI2  00  OISP>tOLO*t(EEP)»VOL>SER>4ri*ONlT>T»Pl 

//IPR.TU24  00  0ISP>C0L0«K£EP)«V0L>SEf|>«P7»UNlT>T7P7 

//TPR.TPHIN  00  **SPACE>tTRt(»CI»ni 

T/P  TU12  10100202020 

T/P  TU24  Il0ot3ORO00 

/«  PLACE  T/P  CONTROL  CAROS  BEFORE  THIS  CARD 


C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
. C98970 

C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C 98970 
C98970 
C98970 
C9S970 

1440  CDS 


Tit 

TI4 


6.12  AIRCRAFT  INSPECTION  HISTORIES 


//CM9TC  .Mb  Oil!  • «AN«  1 •MTr>02>TY^UN>HOLO 

//CbbfTC  tXCC  PybbM.>TIMC>0S>ACCT>O3S32S0ttT 

CTIZ  1 1 

//CHGb 

TU12 

Du  DI&P>(>PASS].UNlTKT«Fi>i.OCFCill<ObN>*A.M«T«lb> 

// 

VOL>SCP>t  TFI lATFl tBTFl 1 

CTFt(0«Fi.E«Fl>FAFl>9TFliHAFlt 

CTIZ  t 1 

// 

lTFi.jTFl.KTFl.LTFl.MTFl.N«F1.0*Fl.P*Fi>0*Fl,RTFltSTPlJ 

712  3 ^ 

//CHGb 

TUbI 

DU  OISPX  iPASSIiUNITM  T«FS«l>0EFCRl>DSN>*C.9by7«««( 

CT22  1 > 

// 

VOL>SeP>( TFSt AtFS.BtFS. 

CtFS.0«FS.E«FS>FAF6*«tFS>HtfS> 

CT22  2 ^ 

// 

lTFb.JTFbtKTFb.LTFS.M«FS.N*FS.0*FS>P*FS»0TP6iRTFS>S*FSJ 

T22  3 

//CHGb 

INPUT  Du  ••SPACt>CCrt.Cl>l]] 

i%80  COS  j 

OOUOO 

CUMolNE  compile 

6*  6AN0* 

C98970  1 

oiuoo 

IUtNTlFICATI0l4  DIVISION. 

C 98970  J 

01010 

PHOUHAM-lU,  CyATT 

C98970  1 

01020 

AUThOP,  a.  j.  SOuKtH 

C98970  j 

01030 

installation.  CeNCNAL  OTNAMlCS/CONVAIf). 

C98970  ’] 

0104«U 

OAIt-yPITTLN.  b mat  72. 

C98970  1 

01050 

RLHARKS. 

C 98970 

01O60 

PLOT  FOR  SU  6gC  V FLT*»4RS* 

C96970  • 

02O00 

CNvIRONMCNT  DIVISION. 

C98970 

02O10 

COI.FIGUHAI  luN  SeCTlUN. 

C98970  f 

02020 

SOUmCC'COHRuTLP.  It)M-360. 

C96970 

02030 

OUjLCT'LOMPuTCP.  IbM.jbO. 

C96970  j 

02100 

INPUT-OoTPUI  section. 

C96970 

02110 

FIlL-COMHUl. 

C9B970  i 

02120 

SELtCI  jAtA'EILl 

ASSI9N  TO  UT-S-TU12 

C96970  \ 

02130 

PlScPVC  1 alternate  area. 

C98970  ! 

02100 

SELtCT  plot-file 

ASSI6N  TO  UT-S-TUi« 

098970 

O21S0 

RLSlRvE  I alternate  area. 

C9B970 

02160 

select  hEpoht-file 

ASS  ION  TO  UT-S-TU22 

C98970 

O2170 

Reserve  i alternate  area. 

C9B970 

lOUOO 

data  OIvIblUN. 

C98970 

louio 

fill  SElTIO... 

C98970 

11100 

FO 

oata-t ile 

098970 

11110 

098970  i 

11120 

RECgRulNC  mode  IS  F 

098970 

11130 

bLOLA  CONTAINS  HO  RECORDS 

098970 

11100 

HECORu  lONTAINS  7u 

CMARACTERb 

098970 

11150 

label  neCorus  Are  omitted 

098970 

llleO 

data  rLlOnOS  are  OATA-REC. 

096970 

12200 

01 

DATM-HtL  STNC. 

098970 

12210 

02  FILeER 

PICTUHE  XtSJ. 

098970 

12220 

02  SeR|Al-NO 

PICTURE  AtOJ. 

096970 

12230 

02  VeIr 

PICTURE  999. 

090970 

12200 

02  VuC 

PICTURE  AISl. 

096970 

12250 

02  filler  KEOEFINES  VUC. 

096970  1 

12260 

03  wuc*l 

PICTUHE  X. 

098970 

12270 

03  FILLCH 

PICTURE  AIR]. 

096970 

12260 

02  FUcCh 

PICTUHE  AC3T]. 

098970 

12200 

02  lur.‘xT 

PICTURE  A. 

098970 

12300 

02  F1UlLf4 

PICTURE  AI«i. 

098970 

12310 

02  FlT-MHS 

PICTURE  S99999V9. 

098970 

12320 

02  FIClCn 

PICTURE  AC  It], 

098970  1 

21100 

FO 

PLOT-Flut 

096970 

21110 

096970 

21120 

NCCoMun.C  ¥QOt  IS  F 

096970 

21130 

eiocK  Contains  20  RCCOROS 

096970  ^ 

21100 

RCCuNu  CONTAINS  80 

characters 

098970 

21150 

LABtt  HlCORUS  AnC  OMITTCO 

096970  J 

21160 

DATA  iieLOROS  are  PLOT-FILE-RCC. 

098970 

21170 

01 

PLOT-FIlE-REC  STNC. 

096970 

21180 

02  FILeEh 

PICTURE  AC  SOI. 

096970 

22100 

FO 

report-file 

C 98970 

22120 

RECORD I NO  MODE  IS  F 

C98970 

22130 

HLOCA  CONTA.NS  IS  RECORDS 

C98970  ' 

22100 

RECoRU  lont.  ins  iso 

characters 

C98970 

22150 

lapel  rlcop''S  are  omitted 

C98970 

22160 

DATA  records  are  RLOT-HEC. 

C98970 

22170 

01 

RLOT-RFL  STNC. 

C98970  i 

22180 

02  filler 

PICTURE  AC  ISO], 

C98970 

30000 

MOMKlNC-SrONAoe  SCCTIOr^b 

C98970 

30010 

77 

LINl-LNI  STNC 

PICTURE  9{*l  value  2ER0. 

098978 

30020 

77 

TOTAL-LINt-.NI  SYNC 

PICTURE  9171  VALUE  ZERO, 

098978 

30030 

77 

NO-oF-WLCkS  CONPUTAT lONAt 

PICTURE  S999  VALUE  ZERO  STMC. 

C98970 

30OO0 

77 

TAMct-roS  CON^n.fTATIONAL 

PICTURE  S99y  VALtit  ZERO  STMC. 

C98970 

30ll^0 

77 

NO-lIN^  VOm'IITAriONAL 

PIC  TURF  styy  value  cto  StmC# 

C98970 

3fl<iii0 

77 

Tl  Mi'-LOw  COMIMIT AT  XONAL 

nifiiAfr  svyyRvvy  sthc. 

098978 

30070 

77 

LINl-MOS  CONHUTAtIONAL 

PICTURE  SNOy  VALUE  ZERO  STNC, 

098970  ) 

30080 

77 

T£MP- value  computational 

RICTURF  S99y99vy  STHC, 

098970  < 

30O80 

77 

DCP-iNTtRVA.  computational 

PICTURE  STHVR  STNC. 

096970 

30100 

77 

MIN-DlP-VAL  i€  computational 

PICTURE  S99999V9  STHC. 

096970 

30110 

77 

PLOT-FLAO 

PTCTUME  A VALUE  SPACE  StNC, 

098970 

6-237 


30120 

77 

MONL  computational 

PICTURE 

S9*  value  -1  sync. 

C46470 

SOISO 

77 

CNT 

computational 

PICTURE 

S999  VALUE  ZERO  SYNC. 

C98970 

30140 

77 

pagl-no  computational 

PICTURE 

S999  VALUE  ZERO  SYNC. 

€46470 

30150 

77 

MAX’ 

-oep-value  computational 

PICTURE 

S*t51V9  SYNC. 

€46470 

30160 

77 

oep< 

-1  computational 

PICTURE 

S9t51V*  SYNC. 

€46470 

30170 

77 

oep< 

•2  computational 

PICTURE 

S9(5]V*  SYNC. 

€46470 

30160 

77 

DEP< 

•3  computational 

PICTURE 

S9I51V9  SYNC. 

C989T0 

30140 

77 

oep*4  computational 

picture 

S*t5]V9  SYNC. 

€46470 

30200 

77 

wuc< 

-NO  computational 

PICTURE 

S999  SYNC. 

€46470 

30210 

77 

CNTA  computational 

PICTURE 

S999  SYNC. 

€46470 

30220 

77 

CU«-»tEK  computational 

PICTURE 

S999  SYNC. 

€46470 

30230. 

77 

no-op-cols  computational 

PICTURE 

S9**  SYNC, 

€46470 

30240 

77 

temp  computational 

SYNC 

PICTURE 

S*t51. 

€48470 

30250 

77 

tN0< 

-CNT  computational  ! 

sync 

PICTURE 

S999  value  zero. 

€46470 

31000 

01 

oep< 

-title  stnc. 

•• 

€46470 

31U10 

02 

filler 

picture 

XC«01  value  space. 

C989T0 

31020 

02 

OtPtNoENT-TITLE 

picture 

XC801. 

C989T0 

31U30 

02 

filler 

PICTURE 

XClOl  value  I 

«!. 

€46470 

31100 

01 

INOLPCNu-TlTLC  SYNC 

• 

€48470 

31110 

02 

1NO-0lO"K 

PICTURE 

XC80]. 

€46470 

31120 

02 

filler  redefines  ino-block. 

€46470 

31130 

03  INO 

PICTURE 

X OCCURS  80  TIMES. 

C98970 

31200 

01 

WUC-LIST  SY.4C* 

€^6470 

31210 

02 

N0-ur*4  jc 

PICTURC 

9. 

€46470 

31220 

02 

filler 

picture 

XCSI. 

€46470 

31230 

02 

MUC-Llsr-l  occurs  6 

TINES. 

€46470 

31240 

03  out -TAB 

PICTURC 

XCSl. 

€46470 

31250 

03  filler 

PICTURE 

XCSI. 

€46470 

31260 

02 

MUC-LIST-2  OCCUBS  8 

Times. 

€46470 

312T0 

03  MUC •SYMBOL 

PICTURE 

Xr 

€48470 

31260 

02 

filler 

PICTURE 

XCSI. 

€46470 

31300 

01 

EILlEH  5YNC. 

€46470 

31310 

02 

filler-1  occurs  200 

times. 

€46470 

31320 

03  tab.  occurs  t 

times  picture  S915IV*  COMPUTATIONAL. 

C98970 

31400 

01 

PLOt-TlILE  SYNC. 

€46470 

31*10 

02 

filler 

PICTURE 

XC22]  value 

€46470 

31*20 

!1  aircraft 

NUMBCR  t* 

€46470 

31*30 

02 

CU««S-N 

PICTURE 

Xt8]  value  space. 

C989T0 

31**0 

02 

filler 

picture 

xt43]  value  space. 

C989T0 

31*50 

02 

filleh 

picture 

xc*}  value  IPA8EI. 

C989T0 

31*60 

02 

PAGl-NO-PPT 

PtCTUNC 

Z9. 

C989T0 

314T0 

02 

filler 

picture 

X VALUE  1*1. 

€46470 

31500 

01 

«uc< 

-DATA  SYNC. 

C989T0 

31510 

02 

filler 

picture 

xcioj  value  space. 

€46470 

31520 

02 

filler 

PICTURE 

Xtll9J  value  space. 

C989T0 

315*0 

02 

filler 

PICTURE 

X VALUE  t»l. 

C989T0 

31600 

01 

0EP-AXI5  SYNC, 

€48470 

31610 

02 

filler 

PICTURE 

XC15J  VALUE  SPACE. 

€46470 

31620 

02 

CLP-MIN  -rpt 

PICTURE 

ZZZZ9. 

C98970 

31630 

02 

filler 

PICTURE 

XC15)  value  space. 

€46470 

316*0 

02 

OLP-l-RPT 

PICTURE 

ZZZZ9. 

€46470 

31650 

02 

filler 

PICTURE 

XtlSJ  value  space. 

€48470 

31660 

02 

OtP-2-KPT 

picture 

ZZZZ9. 

€46470 

31670 

02 

filler 

PICTURE 

Xtl5)  value  space. 

C989T0 

31680 

02 

OtP-3-RPT 

PICTURE 

ZZZZ9. 

€46470 

31640 

02 

filler 

picture 

XC15J  value  space. 

€46470 

31700 

02 

QeP«4.f>OT 

PICTURE 

ZZZZ9. 

€46470 

31710 

02 

filler 

picture 

XI15J  value  space. 

€46470 

31720 

02 

C6P-NAX-RPT 

PICTURE 

ZiZZ*. 

€46470 

31730 

02 

filler 

PICTURE  XI 101  VALUE 

€46470 

317*0 

1 «i. 

C989T0 

31800 

01 

OEP-LINC  SYNC. 

€46470 

31610 

02 

filler 

PICTURE 

XCSO)  value 

€46470 

31620 

1 

— 1 

■II. 

€46470 

31630 

02 

riLLEP 

PICTURE 

XC50J  value 

€46470 

31640 

1 ••••••• >• X 1 ••••••••• 1 

>tl. 

€46470 

31650 

02 

filler 

PICTURE 

XI30J  value 

€46470 

31660 

1....... — 1—— . 

-1 

tt* 

€46470 

31400 

01 

PtOT-LINE  «rNC. 

€46470 

31*10 

02 

filler 

picture 

xcaj  value  space. 

€46470 

31420 

02 

INO-OU/ 

picture 

X* 

€46470 

31*30 

02 

filler 

picture 

XCSI  value  SPACE. 

€46470 

31440 

02 

WtEK-HPT 

picture 

ZZ9. 

€40470 

31*50 

02 

filler 

picture 

XXX  VALUE  1 II. 

€46470 

31*60 

02 

OUTPUT-LINE  OCCURS 

too 

TIMES 

€46470 

31*70 

picture 

X. 

C98970 

31460 

02 

filler 

PICTURE 

XCIOJ  value 

€46470 

31990 

1 «1. 

€46470 

32U00 

01 

MUC' 

-title-line  StNC. 

€48470 

32U10 

02 

filler 

PICTURE 

XCIOJ  value  space. 

C989T0 

32020 

02 

filler  occurs  » times. 

€46470 

32U30 

03  SYMB 

PICTURE 

X. 

C98970 

32040 

03  EOU 

PICTURE 

XXX* 

C989T0 

32050 

03  iruCT 

PICTURE 

XCSJ. 

€46470 

32060 

03  Blank-space 

PICTURE 

X* 

€48470 

32070 

02 

filler 

PICTURE 

XCB9J  value  space. 

€46470 

32080 

02 

filler 

RICTURC 

X value  i«i. 

€46470 
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33000 

33010 

33020 

33030 

330^0 

33030 

30000 

30010 

30020 

300IIO 

30030 

30060 

30070 


01  REPORT-IO  srNC. 

02  filler 

itROOTcao 
02  filler 
02  filler 

I 

PROCEOUKE  DIVISION. 

OPEN  INPUT  OATR'FILEi  PLOT-FILCi 
OUTPUT 

MOVE  200  TO  NO'OF-WEEKS. 

PERFORM  REAO-PLOr-OAT*  THRU  ENO-PR. 
ADO  NO-OF.rjCi  1 GIVINS  NO>OF«COLS. 
WRITE  PLOT-HEC  FROM  REPORT-ID. 


PICTURE  XtSOl  value 
TF7919-01  lAA-S  1 1/2 

PICTURE  XCSOl  value  SPACE. 
PICTURE  X(301  value 
»t. 


PEPORT-fILE, 


C98970 

C98970 

C98970 

C989T0 

C989T0 

C989T0 

C989T0 

C989T0 

C989T0 

C98970 

C989T0 

C989T0 

C989T0 


30100  READ-DATA-FILE. 

30110  READ  OATA-FILE. 

30120  AT  END  00  TO  CLOSE-FILES. 

30130  IF  iDtNT  ic  NOT  eauAL  TO  131  00  70  READ-DATA-FIlE. 

30m0  IF  wUC-1  IS  NOT  equal  to  tot  00  TO  reao-oata-file. 

30200  MOVL  ZERO  TO  WUC-NO . 

30210  validate-wuc. 

30220  ADD  1 TO  WUC-NO 

30230  IF  ifUC  IS  EQUAL  TO  WUC-7AB  CWuC-NOl  00  To  CHECK-S-N. 

30260  IF  wUC-NO  IS  LESS  THAN  NO-OF-VuC.  00  TO  VALIDATE-VUC. 

30230  GO  TO  READ'DATA-fILE. 

30300  CHECK-S-N. 

30310  IF  SERIAL-NO  IS  EQUAL  TO  CUR-S-N  00  TO  ADo-OATA. 

30320  IF  cur-s-n  is  equal  to  space  00  TO  FIRST-S-N. 

30330  PERFORM  Plot-data  thru  eno-po. 

30360  FIRST-S-N, 

30330  MOVE  SERIAl-NO  TO  CUR-S-N, 

30360  MOVE  2ER0  -0  CNT, 

30370  2ER0-TABLE-I. 

30380  ADO  I TO  CNT. 

30390  MOVE  2ErO  -.0  CNTA. 

30600  2ER0-TAtlLE-2. 

30610  ADD  1 TO  CNTA. 

30420  MOVE  MONE  TO  TABL  I CNT.  CNTAl. 

S0630  IF  CNTA  Is  LESS  THAN  7 80  TO  /ERO-TABlE-I. 

30660  IF  CNT  IS  LESS  THAN  NO-OF-VECKS.  00  TO  EERO-TABLE-1 . 

30630  MOVE  WEEK  TO  CUR-WEEK. 

30660  MOVE  I .0  TABlE-POS. 

30663  MOVE  1 "0  NO-OF-WEEKS. 

30670  MOVE  WEEK  tq  TABl  II.  71.  CO  TO  ADO-LINE. 

30300  ADD-DATA. 

30310  IF  WEEK  Is  EQUAL  TO  CUR-WEEK  00  TO  ADO-LlNE. 

30320  AOD-DATA-1. 

30330  ADD  I TO  TABLE-POS. 

30360  ADD  1 TO  CUR-WEEK. 

30343  ADD  I TO  NO-OF-wEEKS. 

30330  MOVE  CUR-WEEK  TO  TABL  (TABLE-POS.  TJ. 

50360  CO  TO  AOD-DATA. 

30700  ADD-LINE. 

30710  MOVE  FLT-HPS  TO  TABL  C TABLE-POS.  WUC-NO J. 

30720  GO  TO  READ-DATA-FILE. 

30800  READ-PLOT-UATA. 

30810  READ  PLOT-FILE  INTO  OCPCNOENT-TITLE.  AT  ENO  «0  T8  ENO-PR, 

30820  READ  PLOT-FILE  INTO  INOEPENO-TITLE.  AT  END  80  TO  ENO-PR. 

30830  READ  PLOT-FILE  INTO  WUC-LIST.  AT  END  BO  TO  ENO-pR. 

30880  perform  prep-titles  thru  EN0-P7. 

30890  END-PR.  EXIT. 

31000  plot-data. 

31010  MOVE  ZERO  ro  PAGC-NO. 

31020  MOVE  <9999  TO  MIN-OEP-VALUE. 

31030  MOVE  ZERO  TO  CNT. 

31060  FINO-MIN. 

31030  ADD  1 TO  CRT. 

51033  IF  TABL  (!•  CNTJ  IS  EQUAL  TO  NONE  80  TO  F-M-A. 

51060  IF  TAbL  tl.  CNTl  IS  LESS  THAN  MlN-OEP-VALUE.  MOVE 

51070  TABL  Cl.  CNTl  TO  MIN-OEP-VALUE. 

51073  F-M-A. 

31 080  IF  CNT  IS  I ESS  THAN  NO-OF-COLS  80  TO  PIND-hIN. 

31100  MOVE  ZERO  TO  MAx-DEP-VALUE. 

51110  MOVE  ZERO  I'O  CNT. 


C98970 
C9B970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C 98970 
C98970 
C96970 
C98970 
C98970 
C96970 
C96970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C 98970 
C98970 
098970 
C98970 
C98970 
C98970 
C98970 
C98970 


I 


3II20  FINO-MAX. 

51130  ADD  1 TO  CNT. 

31 160  IF  TABL  (NO-OF-WEEKS.  CNT]  IS  BREATER  THAN  HAX-DEP-VALUE. 

31130  MOVE  TABL  I NO-OF-WEEKS.  CNT]  TO  HAX-DCP-vAlUE . 

51160  IF  CNT  IS  LESS  THAN  MO-OF-COLS  GO  TO  FINO-MAX. 

31200  MOVE  MIN-DEP-VALUC  TO  TEMP. 

31203  COMPUTE  TtMP  > TEMP  / 100  • 100. 

51206  MOVE  TEMP  TO  MIN-OEP-VALUE. 

51210  MOVE  MAx-OEP-VALUE  TO  TEMP, 

51215  COMPUTE  temp  > (TEMP  < 1001  / 100  • 100. 

51216  MOVE  TEMP  TO  MAx-DEP-VALUE, 

51220  COMPUTE  DeP-INTERVAL  > (MAX-DEP-VALUE  - HIN-DCP-VALUCI 
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C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 


1 


S1230  tOO<  C98970 
51240  COMPUTE  DEP-1  > MIN-DEP-VALUE  < tOCP-lNTERVAL  • 201.  C98970 
51250  COMPUTE  DtP-2  > MIN-DEP-VALUE  < tDEP-INTEPVAL  • 401.  C98970 
51260  COMPUTE  DLP-3  > MIN-OEP-VALUE  < tOEP-INTERVAL  * 601.  C98970 
51270  compute  DrP-4  > MIN-DEP-VALUE  < tDEP-INTERVAL  • 601.  C98970 
51300  MOVE  MIN-DEP-VALUE  TO  DEP-MIN-PPT.  C9S970 
51310  MOVE  DEP-1  TO  DtP-l-RPT.  C9A970 
51320  MOVE  UEP-:-  TO  DEP-2-RPT.  C98970 
51330  MOVE  DEP-3  TO  DEP-3-RPT.  C98970 
51340  MOVE  UEP-4  TO  DEP-4-RPT.  C98970 
51350  MOVE  MAX-CEP-VALUE  TO  OEP-MAX-PPT . C98970 
51400  WRITE-PlOT-TITLE.  C98970 
51410  ADD  1 TO  PAGE-NO,  C98970 
51420  MOVE  page-no  to  PAGE-NO-RPT.  C90970 
51430  WRITE  PLOT-REC  FROM  PLOT-TITLE.  C98970 
51440  WRITE  PLOT-HEC  FROM  WUC-TITLE-LlNE,  C98970 
51450  write  PLOT-REC  FROM  DEP-TtTLE.  C98970 
51460  WRITE  PlOV-REC  FROM  OEP-AXIS.  C98970 
51470  WRITE  PLO'-REC  FROM  DEP-LINE.  C98970 
51472  MOVE  5 TO  LINE-CNT.  C98970 
51474  ADD  5 TO  TOTAL-LINE-CNT.  098970 
51476  MOVE  2EKO  TO  IND-CNT.  C98970 
51480  ENO-WPT.  C98970 
51490  MOVE  2EH0  TO  TABLE-POS.  C98970 
51500  CLEAR-OuTPUT-LLOCK.  C96970 
51510  MOVE  2EHO  TO  CNT.  C98970 
51520  COB.  C98970 
51530  ADD  1 TO  CNT.  C98970 
51540  MOVE  space  TO  OUTPUT-LINE  tCNTl.  C98970 
51550  IF  CNT  IS  LESS  THAN  100  GO  TO  COB.  C98970 
51600  ADD  1 TO  TABLE-POS.  C98970 
51610  MOVE  TAiJL  C TABLE-POS.  7 3 TO  WEEK-RPT.  098970 
51620  ADD  1 TO  .ND-CNT.  MOVE  IND  [ IND-CNT 1 TO  IND-OUT.  C98970 
51622  IF  IND-CN-  IS  GHEATER  THAN  79  MOVE  2ER0  TO  IND-CNT.  C98970 
51630  MOVE  2EN0  TO  CNT.  098970 
51640  PREP-PLOT.  C9B970 
51650  ADD  1 TO  INT.  C98970 
51660  MOVE  TABL  t TABLE-POS.  CNT J TO  TEMP-LOC.  C96970 
51670  IF  TEMP-LOC  is  NOT  EQUAL  TO  NONE  GO  TO  FILL-LN,  C98970 
51680  IF  CNT  IS  LESS  THAN  NO-OF-WUC  GO  TO  PREP-PLOT.  C98970 
51690  GO  TO  WHI''E-LINE,  C98970 
51700  FILL-LN.  C98970 
51740  MOVE  2EH0  TO  LINE-POS,  C98970 
81750  MOVE  MIN-DEP-VALUE  TO  T£MP-VALU£,  098970 
51800  FIND-LINE-POS,  C«8970 
51810  ADO  1 TO  LINE-POS.  C98970 
51820  ADO  DEP-IKTERVAL  TO  TEMP-VALUE,  C98970 
51830  IF  TEMP-LOC  NOT  GREATER  THAN  TEMP-VALUE  GO  TO  Fill -SPACE.  C98970 


51840  IF  LINE-P7S  IS  LESS  THAN  100  GO  TO  FINO-LINE-POs,  C90970 
51850  NOTE  THKU  HERE  IS  AN  ERROR,  C98970 
31860  DISPLAY  i ERROR  FIND-LINE-POS  I TEMP-LOC  UPON  CONSOLE.  C98970 
51870  GO  TO  CFI..ES.  098970 
51900  FILL-SPACE.  C98970 

51904  IF  output-line  ILINE-POSI  is  NOT  EQUAL  TO  SPACE  MOVE  1*1  TO  C98970 

51905  OUTPUT-LluE  ILINE-POSl.  GO  TO  WRITE-LInE.  C98970 
51910  MOVE  WUC-CYM80L  tCNTl  TO  OUTPUT-LINE  tLINE-POS3.  C98970 
51920  GO  TO  PHEP-PLOT.  £98970 
520O0  WRITE-LINL.  C98970 
52010  IF  LINE-C(.T  is  GREATER  THAN  NO-LINE.  WRITE  PLOT-REC  FROM  C98970 
52015  DEP-LINE  ADD  1 TO  TOTAL-LINE-CNT.  PERFORM  WRITE-PLOT-TITLE,  C98970 
52030  WRITE  PLOT-REC  FROM  PLOT-LINE,  098970 
52040  ADD  1 TO  ..INE-CNT.  C9B970 
52050  ADO  1 TO  'OTAL-LINE-CNT.  C9B970 
52060  IF  TABLE-POS  IS  LESS  THAN  NO-OF-WEEKS  GO  TO  C98970 
52070  CLEAR-OUTPUT -BLOCK.  C98970 
52090  ENO-PD,  EXIT.  C98970 
60000  CLOSE-FILES.  C98970 
60010  PERFORM  plot-data  THRU  ENC -DD.  C98970 
60100  CFILES.  C98970 
60110  DISPLAY  : TOTAL  LINE  COUNT  > I TOTAL-LINE-CNT  UPON  CONSOLE.  C98970 
60170  CLOSE  DATA-FILE.  PLOT-FILE.  REpORT-FILE  WITH  LOCK.  C90970 
60180  DISPLAY  I end  of  JOB  9897  I UPON  CONSOLE,  C98970 
60190  GOOACK.  C98970 
61100  PKEP-TITLLS.  C98970 
61110  MOVL  2LI(0  to  CNT.  £98970 
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bllZO  PTA. 

61130  ADO  1 TO  :nt. 

611A0  MOVE  MUC'SYMBOL  CCNT]  TO  SVMB  CCNTl. 

61150  MOVE  irUC-fAB  CCNTl  TO  »UCT  CCNTl. 

61160  MOVE  SPACE  TO  EOU  CCNTl. 

611T0  MOVE  SPACE  TO  BLANK-SPACE  CCNTl. 

61180  IF  CNT  IS  LESS  THAN  6 80  TO  PTA. 

61200  MOVE  ZEHC  TO  CNT. 

61210  PTB. 

61220  AOO  1 TO  CNT. 

61230  MOVE  : > i TO  EOU  CCNTl. 

612H0  IF  CNT  IS  LESS  THAN  NO-OF-WUC  BO  TO  PTB. 

61290  ENO-PT.  EXIT. 

/•  PLACE  COBOL  SOURCE  BEFORE  THIS  CARO 

//CH6.TF61N  00  oSPACEKCTL.Cl.m' 

TF6  TUIH  11  020.’080 

WEEKS. 

5 03300  0J310  03320  03330  03900 

*ENO 

/•  PLACE  TFO  OATA  BEFORE  THIS  CARD 

//TPR.TU12  00  ulSP>COLO.KEEPl.VOL>SCR>«Fl»UNtT>TAFl 

//TPR.TU22  DO  11SP>C0L0.KEEP1.V0L>SER>*F5.UN1T>T*FB 

//TPR.TPRIN  DO  *.SPACE>CTRK.C1.111 

T/P  TU12  10100702070 

T/P  TU19  10100802060 

T/P  TU22  19901309000 

/•  PLACE  T/P  CONTROL  CAROS  BEFORE  THIS  CARO 


C98970 

C989T0 

C989T0 

C989T0 

C989T0 

C989T0 

C989T0 

C989T0 

C989T0 

C989TO 

C98970 

C989T0 

C98970 

1990  CDS 


FL18HT  HOURS. 

ltS9S 


Tit 

T22 


6.13  EFFECTIVENESS  MODEL 


//T9897K  JOu 
//t9e97X  txtc 
// 

//ASSY.SrsiM 


oii:  u,  wANo,  :»PKTv>o2  x340e 

Pyo^hbiPAJ^M,  ASSY  >t  map, Ll^T»llCD)» 

PAWt-,LXLn>:LlST»  XHff  :»T  r'f.>10,  ACCT>U35323007 
PJ  OATA.SPACLX  CYLrt  1, 1 13 


thf  FT  IIVCKF  SS  MOUlL—  370 
CCCCCLCCCtCCCCC 
TC»F  following  VARIAuLEb  AwL  PLOUIwEO  INPUT 


c c 


c c 


MLAii 
otLi  n) 
ni 
Kl 

NSCI 

f^Fonn 


USCmU*  J) 


NSPI 


81J  CHAHACTtK  OESCHIPTOP 

thf  ith  valuf  Of  thl  basic  inspection  Interval  lfnoth 

NijMLitf?  Of  VALUES  OF  PElI 

SKT  FOUAl  to  1«2>3,4  FpH  OFLl  IN  WFtKS»FLlGC<T  hOU«S» 
SiJP)IKS»ANr  lanuings#  rlspeltivlly 
Thf  MUMcjFM  of  PAJOR  SCuLPULtn  inspection  types 
ThF  Nljwjrw  OF  major  SChLOULLP  inspection  typfs  that 
Can  occur  at  thl  end  of  an  irjTfHVAL  ToLlOiYING  an 
MSPFCI  ION  OF  TYPE  1 

THF  NUMuLM  of  intervals  FOR  WHICH  INSPECTION  TyPE  J 
Follows  iNSPrciio;i  type  i 
TtjF  MtjMOFH  OF  SPECIAL  JNSPfCTlON  TYPES 
UISR ( I) iSISPl I)  THE  PLAN  AND  STANUArO  DEVIATION  OF  ThL 

interval  lFNSTH  for  SPtClAL  INSPECTION  lYPF  I 
MSd)  i>LT  T‘3U«L  TO  I uP  2 FOR  niSI»  IN  WEEKS  On  FI  IPHT  HOURS 

«LSPf CT IvELV 

K Ratio  of  numpep  of  preflights  to  nhprlp  of  basic 

PoSIFLIumtS 

LMHI ( I , j) iSMhI n » J)  hEAN  ANO  STAnUARP  deviation  Of  MANHOuHS  FOR 

INSPECT  I0i4  type  J WMFN  IT  FOLLOWS  TYPE  I 
AfTll,J),bN(I,J|  PLAN  riOHM  FOR  ILSPECTIOfl  IYPF  J WHfN  IT  FOL 

TyPL  I EOUALS  AN(I,J|4BNII,j»*DELI 
SNKI.J)  STD,  OLV,  OF  NORM  FOR  INSPECTION  TYPE  J WHFN  IT  FOLLO 

Type  1 

tPHSI 1) .SMhSI n mean  and  STO,  dev,  OF  MANm0u«S  for  special 

InSPFCTION  type  I 

tNSin  •$•<$!  1)  mean  and  STO,  DEV,  OF  NORM  fOR  SPECIAL 

iMSPECflON  TYPE  I 

EMHP,SKHP  “LAN  AtiU  STAtiOARU  OEVIATION  OF  PPEFLIGHI  MANHOu«S 

EMho.SMHo  MtAN  AfJU  sTU,  UtV,  OF  BASIC  POSTFlIoHT  MANH0U«S 

kSEI  NumjFH  of  work  unit  codl  seis 

ANun#K)  ,PNUI  1,K)  NUPbEH  OF  ITNSCMtD,  ACTIONS  PER  UNIT  TIME  ON 

K EOUALS  ANUll»K|fBNUIl»H»A|TIME  AFfEH  INSPECTION 

Type  1) 

set  ENVJAl  to  1,  WHEN  ANU.BNU*  ANAP,HNAB»  REFER  TO 
LATEST  INSPECTION  AH'Y  3.  WHEN  THEY  HEFER  TO  THE 
PREVIOUS  INSPECTION 

STEADY-STATE  UNSCHEO,  ACTJ^'N  RATE  FOR  SET  K 
EMHUIKTiSMHUIK)  mean  ANO  STO,  OEV,  OF  MANHOuRS  PER 

UNSCMEUULLO  ACTION  ON  SET  ¥ 

ENUIKIiSNUIKI  mean  and  STO,  OEV,  OF  NOtY**  PER  UNSCHEDUtEO 

ACTION  ON  SET  K 

ana»(i,k)»bnaO(i,k)  number  of  aboht  maintenance  Actions  on  set 
Per  sortie  EOUALS  ANABINKIyONABIWKIwITIME  after 
INSPECTION  TYPE  U 

Mean  nohs  pep  week  for  set  k 

mean  ANU  STO,  OEV,  OF  FLIGHT  HOURS  PER  WEEK 

Mean  anu  sto,  oev,  of  sorties  per  week 
Mean  anu  sto,  oev,  of  landings  per  week 
NUMBER  OF  ACCIDENTS*  INCIOENTS*  EuMRS  PER  SORTIE 
cccccccccccccccccc 


oik(i,k) 


UMAS< 1,K) 


ENWkjkI 

EFHwiSFHw 

ESOh,SSO« 

ELUm,SLO« 

AILS 

c c c c 


11140  cos 

210 

220 

230 

240 

2S0 

2G0 

270 

2R0 

290 

300 

310 

320 

330 

340 

350 

3G0 

370 

3A0 

390 

400 

410 

420 

430 

440 

450 

4S0 

470 

400 

490 

500 

SIO 

S20 

S30 

S40 

S50 

560 

570 

SdO 

S90 

600 

610 

620 

630 

640 

6S0 

660 

670 

660 

690 

700 

710 

720 

730 


(.OM’AOIi  IINti  20 

C INI'UT  DATA  30 

lDCLlnUliKIiuSCTiNFOL(3l>'(SClil;,i).NSPl.Ul'iPI60»»S|SPI60l>KlSlb0t>  40 

2HiLMHI(3f  31  ibPiimi  3I.ANI3i3l>riNI3>3l>bNII3>3)>EMHSl60l>SMHSI60l>  50 

3LN5lt>0l  f jN5(oOI  *LMMPiSMHPiEMHB.SKHn«Nl.l'5£Tt  ANuntbO)  iBNUIS.bO)  > bO 

4tMMu(b0liSMrlo(bni  iF.NU(t,0l.5:iUtb0l»*NAni5«b0»*ONABl3>b0t.EN,|<lb0t.  70 

5LFM»,  bFH.f  £5JW,s50w>LLJ4>SL0,>  A|ES>17lK|3<bO)  •U*1*5l3’b0)  • (10 

C IihTA  bf^Ll^ArEU  nr  PFPF  40 

b»«l)(l'jU)  iP.AUM'iO)  iL«KO.bwl(0>E«AH,SWKM.EPFH.SPFHfEB"H>SBPH(NlNT>  100 

bXdjll  if  * tbl  I lEI  MUi  VFHO,  110 

C U«IA  bfNLilATFI)  or  SPIS  120 

7LM',ij,i,MSj,trljn,'-,NSDi  130 

C UA(A  bKfl  kATEU  or  INVL  140 

«LMllb(  3.3)  13  hU(  3.3)  iENr)l3i3l  i5r)DI3i3l>EFUl3i3)>5EDlSi3liDDI3li  150 

euVALI 3) ,L»C(( 3) iSACM(3) ,EACNI3I.S*CN(3| iACNSi  IbO 

C OAIA  oFNEhAtFO  Ur  MPO  170 

9t“Hr(  lU)  ,5MH|  ( 10)  lEXHRI  10)  ISNIIRIIOI  .EE)«>1 10 » » 5C»H> I lO ) (0*<PI  10 1 180 

9iEM)lf  1 10)  i5phF(  10)  190 

Ulf^LllblCli  H).A[)l2u)  lAO 

C HEAU  y<lo<y  FOK  FIR5T  AMO  LAST  CARO  EMO  OF  FILE  TE5T  18? 

HEAii  (b.y9)  LOFQ  1R4 
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C «EAU  Il.PUT  UAT*  7*0 

1 HEAulbilUO)  HEAD  750 

If  (HEA0(l)-t0F9l  700 

2 call  EOJMSO  202 

call  exit  705 

3 HEAL.Ib>102l  c.FHW>SFHNiESOWiSSO*>ELOW>StM>AIES  700 

hEAu(b>lu2)  H.EWHPiSMHPiEMHB.SMhB  790 

MC*Ulb>lUl)  hI.KIiNSuT.NSPTiKSET  000 

NEAljlb>lb2)  (OELlin>l  = liNl)  SIO 

HEAOIb.lUl)  (NFOLtllilll.MSCT)  020 

DO  lu  IrltNSi-T  830 

N=N>-CLC1)  0*0 

Ht.*ulb>101)  INSCHIliJliJ=l>NI  050 

HEAulbiU*)  (EMHIIIiJliSMHlll>JliANltiJI>BNll»JI,SNlll.J)>J=l,N)  060 

C read  WUC  bEt  OAlA  DEPENUENT  ON  TIME  870 

HEAulb>lU3l  lAllUd.KI  ,dNU(l>KliANAB(l>KI»BNAB(ltKl,Ks|,K5eT)  000 

HCAuib>lu2)  IOIKIIiK)iK=1>KSCTI  090 

HEAtllbilt2)  (UMAblliK)iK=liKSETI  900 

10  COIJIlKUr  910 

C READ  *l)t  bEt  UMA  INDEPENDENT  OF  TIKE  920 

KrAiilbilU*!  IFMHUIKI>SMHU(KliENU<KdSNU(KltCN«n((KI«KE}(KSETI  950 

C READ  bpLLlAL  ribPLCtlON  DATA  9*0 

HEAuibilub)  (Emhsi1I>SMHS<1I>ENS(1Ii5NS<I>«01SP(1|,SISFII>>KISII)>  950 

lUliltSPTI  960 

kRlIL  IbiSUOl  HFAO  970 

wPlIt.  l6i3Ull  LFHHiSFH*  900 

•PlIL  I6i302I  tSOVibbOM  990 

•RITL  I6>3U3I  ELUHtSLOM  1000 

«R1TL  Ibi3u*l  EMHP.SMHP  1010 

MHITL  l6>3Ubl  EPHR.bHHd  1020 

XRITE  l6>3Ubl  H 1030 

mRIIL  I6i3U7I  AIES  10*0 

kMllLlb.dObl  1050 

DO  lb  I = l.Nb<.T  1060 

NENFOLdl  1070 

vRlft(6>309l  tl>J.  EHHl<l>JI>SMHld,JI,AN*ltJI>BNIl»JltSNll|>J)>  1000 

INSCmI  >•■>1  ..i:i  iNI  1090 

|!i  t">i|  ii.iir  1)00 

an  I (I  II.,  lli.l  Ido 

an  I 1 1 In, Jl 0 I 1120 

al'lll  ().,blll  (d>K  ,AMlldtKI,BNUd,KltDMASd,K|,ANABd,K),  1)30 

ILNAdtl.l'  I ,A=i,K<;ET),l  = l,NSCr)  11*0 

aMITL(6>3I2l  1150 

aHl  ILlb>3l3)  <KtLMHU<K),SMHU<K),CNU(K),SNUO()>ENWIdR),l(Sl,l(SET)  1160 

am  lt(b,3I*l  IITO 

aPIIL<6,3Ibl  (J>EMHS(J)>SMhS<J),ENS(J) ,SNS( J> tDI5P<>»  >SI5FIJ) > 1100 

1 Albt Jl , J=I >NSPTI  1190 

amiL(6<*0ul  1200 

C PtRF0H.(  LALtHLAdyNS  1210 

UO  io  dHTil.l>MI  1220 

CALL  PFPF  1230 

call  bPIb  1200 

call  INVL  1250 

call  H’P  1260 

C PRINT  inTTFivAl  oEblltTS  1270 

aO||Lln,*oll  nilldlNTI  1200 

amiLlbiaOil  1290 

aFll  ItllifMOjI  EaKOiSaKO  1300 

aPl  IE  lf.>*0*l  EPFH.SPFH  1310 

aUllLlfafOOb)  EhPH.SDPH  1320 

aNITLIFiiaObl  EwsUfSPbO  1330 

W«1  IL  (F.,40  71  EllbDiSNbD  13*0 

aMI|L(F.,*)3)  1350 

aHl  iLlIx*)*)  ll,UPACd)>l  = l,NSCT)  1360 

aOI  |L(ti>*lb)  1370 

aPllLlb,4l7)  ll>LACMIl),5ACHIl),lsl,NSCT)  1300 

aPllLl6,4lbI  1390 

aRllLlh,417l  d,LACNdl,SACNd),l:l,NSCT)  1*00 

aHlTL(b,40HI  1*10 

UO  bib  lilf'ibCT  1*20 

Nrllt-OL'I)  1*30 

UO  bib  J=1 >N  1**0 

al<llL(h,40'yl  l,J,EMHUII,J),SHHOd,J)  1*50 

bib  CONI  IIIUF  1*60 

bib  CONdllUt  1*70 

*»llL(b>4lU)  1*00 

UO  bl0  liWFbCr  1*90 

N:  hFOL(I)  1500 

UO  bl7  Jil,H  1510 

aRl|L(b,409l  l,J>ENUIl,J),SNOd,J)  1520 

bl7  COniINUE  1530 

bit)  CONTINUE  15*0 

*HllL(u,4lll  1550 

UO  b20  l=l,NbCr  1560 

NsNFOLd)  1570 

UO  bl9  J=) ,N  1500 

aRl|Ll6,4)2l  l,J,FE0d,J)>5e0d,J)  1590 

519  continue  1600 

520  CONTIFAJE  1610 

aHllLI6>4l0)  1620 

aRlTEI6>*19)  11,00(1), |:l,NSCT)  1630 

16  COildlAJE  16*0 
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c PRINT  MAlNTfclNANCC  PHOCRAH  RESULTS 
•R1 lL<6i^0U) 
kiRlTL<6»20n 
1P<K1-2I  20(JO»4u 
2U  iftRl lt<b«202) 
bO  10  70 
30  HRlTc.<b*<:031 
00  10  70 

40  1F<k1-4I  S0io0i2 
SO  )NRllt(6*«:U41 
00  to  70 
60  »RllL(6i^0b) 

70  »HlTL(6»20b)  (DEL I U ) tEMHY ( 1 ) »SMHY( II ^EMhF ( ll tSPHE ( i ) »ENhR ( 1 ) > 
ISNHkd)  •LFMHd)  iSF^P(  DiOMPd  Wlsl*Nl} 

00  10  1 
9)  F0hMAT(A4) 

100  FCHhAT(20Ah1 

101  format (lolb) 

102  FOKMATint-lO.  j) 

103  F0Hh^Mr(4^  10.  J) 

104  FOHMAT(5»'l0.b) 

105  FORn.aT(6F10.‘ji  110) 

200  FOHMAT(1HOi2/HMA1NTEnANCC  PHOORAH  RESULTS) 

201  FOHMATI loOi 3a«hH1NTEhvAL«7X* 1 3UHANH0URS/YC AR» 4x » 20hPaNH0uRS/FL1OHT 
1 M0UH*4X, 14Hm00  MOUHS/l(OUO#bX» 15HFFFtCTlveNESS»7X» 13hDEPEN0ABIW1TY 
2) 

202  dX«b(<({vrLKS)  f <4  (7Y>  l4H»t£AN  STD  OEV)/) 

203  F0mmaT(1x*14».(H1GMT  MOt»HS)  •kX.m  14HHEAN  ST0  0tV»Tx)/) 

204  hOKMAT(«4A»  OM(S0KTU.'jl  I 3(6X.14HM£AN  STO  DEV)/) 

206  FCHf- AT  (3k*  li'MiuAHOlNuS)  *3(6X*  14MMEAN  STU  DEV)/) 

206  FOHMaTC  eXi)'H.0*OX«)-3.U*4X,Fb.O*7X*FS.O>4X»F6»0»bX»Fb.4»3X» 
l)‘b.<4«6X«F6.4f  3x  (F6.4*  aX«Fb.4) 

300  F0KMAT(lHl»2uA4//22X*4MkLAN#  4X*7HSTU  DEV/) 

301  format  (7x*6HhM/tf«K«  6AiF9.4*2X*F9.4) 

3H2  FOMNAT(7x*b»«60M/«iK*4X»F9,4»2A#F9.4) 

J03  format  (7A*bl<Lno/)4X  «4X«F9.4,2X*F9.4) 

J04  FORNflMT  ( lr40»bX»bHMH/Pf  , 6XiF4.4»2X»FQ,4I 
30b  format  (7A*0M  •iM/nM0»4X*F9.4*2A»F9.4) 

30b  ►0HmaT(7a»  1hk.<jx*F9.4»2X»F9.4) 

307  format (lHO»bX.HMAlES/SOM*2X*F9.4»2X»P9.4) 

308  ^ORMAT(lUO.?bMSCH^^ULeU  INSPECTION  0ATA//24X#8HMANh0uRS»2!X»4HN0RM 
1/10X»1H1,3X»  IHJ,  7X#4hMtAN*4X»7HST0  DLV*  13X*  lHAdUX»  IhR*  AX»7HSTD  OE 
2V»  7X*0H.V0,  iNSP//) 

30 ^ format (9a » 12»2X* 12»2A*F9.4»2X*F9»4»5X»F9.4»2X»F9»4»6x»F9»4»12*» 
113) 

^10  i>ORMAr(lMO«2(iX,3HliHA«32Xi6HAdORTS/lOX*lHl*3X*lHK»lOX>lHAdOXdMe» 

1 9x*2HSS« 1 1A« IHA# lOXi IMR//) 

311  format (9a* 12«2x.l2*Fil.b*Fll.S*Fll.S*Fl4.S*Fll*b) 

312  format ( lM0»24X*6HMH/UMA»19x»eUNOHN/UMA/  14X* IHK » 7X » 4hmlAN»4X * 7HST0 
1 QtV»  10X*4iiytAll,4X.7MSTD  ntV»7X»7MN0HS/WK//) 

013  FORi-JAKlOX*  l2»2X»F9.‘»»2X»F9.4»bX»F9.4»2X»F9.4»SX»F9r4) 

314  FCRMAT(1H0»23MSPLCIAL  INSPECTION  0ATA//?4X» BMMANHOuRSr 19X » 4HN0RM» 
119X.  b»MNTLRVAl/  14X*1MJ*7X»4HMEAN»4X»7HST0  0EV»  1 OX *4Hli*C AN» 4X » 7HST 
2U  ULVf 10A*4hMCANi4Xf /HSTU  DC V* 6X» 3HK 1S//I 

315  F0ra,AT(13X»  l2»2X»P9.4»2A*F9.4»«>X»P9.4»2X»F9*4»bX»F9.4»2X»F9,4» 

IbXf 13) 

316  format ( lnn.23M20RK  UM 1 C^DE  SET  DATA) 

400  FORMATdROf  loHlNKRVAL  RESULTS) 

401  FOHMAT(1uO*1iM1N1LRVAl  = »F4.0) 

402  FOHMAl ( iHOf 41Xf 4MMCANi4X»7USTD  OCV) 

403  FOHMAT(7X*bMwELKS»23X»2F11.2) 

404  FOR  iAl  nnHibi  I iahprLFlIGMT  F‘ANHOURS»10X»2F11.2) 

4Ub  F0HM#«rT7A»2  R»Ras1C  PvSTFLIOM)  MANHOURS*  3X*  2FI 1 » 2 ) 

406  F0HHAT(lnn*f,/»2‘iMSPLL,  INSPECTION  MANHOURS*  3X*2F  1 1 .2  ) 

407  FORr4AT(7A*2lnSPFC.  iNSPfCTlON  NORM*  7X*  2F 1 1 • 2 ) 

408  F0hwaT(1h0*oA*14HT0TAL  MANHOURS/) 

1*07  format  (7a*4h1  z fl4fbXf4Hj  r *14*  7X*2F11.2) 

**10  FORfc  mT  ( )h0.oa*‘4HT0TAL  NOH/) 

•*11  format  ( lH0*hA»  13HEFFLCT1VFNESS/) 

412  F0HMAT(7a*4m1  = fI4fbXf4HJ  z *14*  7X*2F11»5) 

413  rOH  iAT(lMO*r>A*^3HNO,  OF  UNSCHtU.  actions/) 

•*14  format  ( 7a  *4Hl  Z f 1 4*  20X*F  1 1 .2) 

41S  FORMAT)  1mO»»jA»  17HIJNSLHLD.  MANHOURS/) 

41b  FORMAT(1hO»oa*13HUNSCHCO«  NORM/) 

417  FOh:«a)  (7a*4H1  z * 1 4 * 20X  * 2Fi  1 .2  ) 

418  format ( IhOf  * 1 3HnEPtNUAHlLITY/) 

417  F0hmAT(7a*4M1  z * l4*20X*Fll»b) 

CCLtCCtCCCCCCCCCCCCCcCCC 
t OUTPUT  INCLUCLS  ThE  FOLLOkINO  FOR  EACH  INPUT  VALUE  Of  OeLI 
t UFLl  ITSlLF 

C LHHT(l)*bMMYd)  mean  and  STO.  OEV*  Of  MaNM0U*^5  PER  YEAR 

C LNmrU  ) *SNhP  ( 1 ) PLAN  AND  STO,  OEV»  Of  NORM  hOuRS  PER  HOuR 

C tLMM<l),blMP(I)  mean  and  STO,  DEV.  OF  EFFECTIVENESS 

C U'^Pd)  PtPENOABILlTY 

CCCCCCwfCCCCCCCCCCCCcCCC 

tNO 


1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1712 

1720 

1810 

1740 

17S0 

1760 

1770 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1870 

1970 

1980 

lOQO 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420  i 

2430  : 

2440  j 

2450  \ 

2460  > 

2470  3 

2460  .i 

2490  i 
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SUriKOllTll<E  PfPF  2SOO 

C THlb  HOUTUIt.  tALCoLAIES  THE  TOTAL  NUHHeH  OP  PREFLI6MT  *N0  BASIC  2510 

C POSIFLIOMT  f.iNHi/UHS  FOH  OELl.  2520 

C THE  NUI.dLH  of  *LF^S  )N  IHE  MAINTENANCE  PROfiMAM  IS  AcSO  OETEHMlntO  2530 

LOHyuN  llHTi  2500 

C INPUT  CaTa  2550 

lUELK  10)  •Kltii5CTiNFOLl3l  •NSCHI3i3I  •N5PT>015PI60I  >5l5PI6n)  >K  151601  • 2560 

2HiLMHll3f3liyHiiri3f3liANI3i3l>HNI3i3l>SNli3>3l>rMHS<60l>SMHSI6UI*  25T0 

3Ltl5(uU)  iSNbluOl  •LMHP>SMHP.EMHB>SMHIl,Ul>KSET>ANUI3>60|>BNUI3>bOI  • 2500 

AlPHIKoO)  iSMIlulbOl  lENUIbOl  •5NUI60I  •AnAR|3>60I  >BNAm3>bO)  tENMKiSUI  • 2500 

5LFH..;,FH..eSi>»>S50B>LLU«>5LO«>AIE5>01K  13(601  (UMASI3*60I«  2600 

C IIAIA  oENLnATEO  by  PFPF  2610 

6aKUI lUOl •PwKullSUI •E»K0(5MK0(EWKMiSWKM.EPFH(5PFH(EBPH(5RPH(N1NT(  2620 

6X((il  I (FXI61 1 iEFHUi  VFHO(  2630 

C UhTA  bLI'iCoATEU  DT  SPI5  2640 

TLNSUiSMSUiLiI^UiSNSOi  2650 

C UA1A  oENLKATEJ  BT  INVL  2660 

eLPHL(3>3l  •5''H0I3(3I  iLNJl  3i 3)  • 5NOI  3( 3 1 (EEOt  3( 31  (5EOI 3(3)  <001  31  ( 2670 

SuHAkl  31  II.ALNI3I  I5ACMI3I  (bACNI3l  (SACNI3I  (ACN5(  26S0 

C UA[A  otNtHATEU  BY  MPO  2690 

9t.MHri  101  i5MHf  1101  iENHRUOI  (5NHRI10I  (EEMPdOl  (5eMp|  lO  I (QMPI  lO  I 2700 

BiEMiii- ( 101  i5“hF|10l  2710 

01MLN510I.  bUullOOI(P5OOI100l(KFI2)(K5i2l(PPt2(2l  2720 

C 5T0HE  CUHULaTIVl  NORMAL  015TR1BUT10N  2730 

1 Alll=-3.u  2740 

00  lu  1=2*61  2750 

XlI)=Xll-ll«U.l  2760 

10  LONIlt.UE  2770 

FXI31I=0.5  27S0 

FX(32)=0.539u  2790 

FXI33)=0.5793  2000 

FXIJ4)=0.617s  2010 

FXI3bl=0,66b4  2020 

FX(3o1=0. 691:1  2030 

FXt47ll0.7257  2040 

FX( Jbl=0.7bBU  2050 

FX139)s0.7aal  2060 

Fxl4u):n,0lb9  2070 

FX(m|:0,*<41j  2000 

FXI<<c):0.Aa4j  2090 

Fxmaiso.oaAY  2900 

FX(44|=0.pu32  2910 

FX<Hb(=0.oi''t  2620 

FX(4oI=0.933i  2930 

FX(47I=0.°4'j.  2940 

FX(4el:o.«b:'y  2950 

FX(49I:o.'>o41  2960 

FX(bO)=0.P71a  2970 

fx(5i )ro.6/7a  2900 

FX('j2)=0.Pa2l  2990 

FXI'j3)=0.Oabl  3000 

Fxt‘,4)=o.'’ayj  3010 

► X lbb):n.9ylo  3020 

Fxtao)=0. 99311  3030 

FXtbn=0.99‘Ja  3040 

FX(ba):0.99f'j  3050 

FXtb9)=0.997(  3060 

FX(bo):0.09'll  3070 

FX(o1)=0.99«7  3000 

00  fU  1=1(311  3090 

FX(1)i1.u-FX(62-I)  3100 

20  LOHIlllUr  3110 

lFlxl-21  100(200,30  3120 

30  1FIk1-4)  300(400(1000  3130 

C INTLRVAl  IS  )N  (EF.K5  3140 

100  L5OU=tjCLllllNTI«tS0M  31S0 

bSUU=»CL|lllNT)«SSOK  3160 

LMKU=(jEL1I  IINT)  3170 

b»xo=0.0  3150 

UO  llu  1=1*149  3190 

■*KU(1I  = I 3200 

PlvM/(l)=0.0  3210 

11(1  tOmiriUF  3220 

»klI(  IbO)  =r»Ku  3230 

P«Au( 150)=1 *0  3240 

bO  10  60u  3250 

C INTLBVAL  15  IN  FLICHT  HUUN5  3260 

200  IFIsfmw)  220*220*201  3270 

201  BL=LFIiw/(5FHii*bFH*l  3250 

((4ltFli»«KL  3290 

205  KL=6X  3300 

AH=XL*1  3310 

L=l)tLl(IlN|)  3320 

UO  210  I=l*lbO  3330 

«xii||)  = l 3340 

UC=  L/aXuHI  3350 

IFIhK)  2u0*2u5,206  3360 
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^Ob  HP(  1 , 1 1 =NL«til.*LXP(  -RL*UC  1 /rKOI  1 1 

3370 

PL=PP  ( 1 . 1 1 * ( l<L«OCI  **  1 KL- 1 1 

3300 

PH=t>L*nL«CC 

3390 

HENu=KL-i 

3H00 

DO  iu7  J=^t^LNO 

3H10 

PL=HL/J 

34^0 

PHrHM/J 

3430 

a07  CONiiniUE 

3440 

PHIph/KL 

3450 

P»M)  ( i ) rPt  ♦ 1 PH-PL  I * ( HK-KLI 

3460 

00  10  ?iU 

3470 

^ns  PkkuI 1 )=KL«nc*EXP(-PL*OC 1 /MKOI 1 1 

3400 

^lU  CONI  1 HUE 

3490 

GO  10  onu 

3500 

2?U  PWKU(1)=-1U1. 

3510 

Lk.‘KU=DEL  1 1 1 1 riT  1 /bFHH 

3520 

i*IKD=U.O 

3530 

OO  10  47!) 

3540 

iriTtPVAL  IS  IN  bOMTlES 

3550 

iOO  bSOusrjLLKll'iTI 

3560 

OSODaCj.O 

3570 

IFlbbOWI  32U>32ni3al 

3500 

301  HLFLbOW/ (S<>U»*SSUWI 

3590 

MK=tb04»ML 

3600 

OO  10  20b 

3610 

320  LhKubnELKllKTl/tSOM 

3620 

bWK|.i=U.O 

3630 

PbKul 1I=-1U1. 

3640 

OO  TO  bCb 

3650 

INTtPVAL  IS  IN  LANOINGS 

3660 

400  lE(bLLW)  420i420>401 

3670 

401  KL=LLUi>/(SLOaaSLOwI 

3680 

hk=llo»«hl 

3690 

GO  TO  20b 

3700 

420  LwKubOELllllNTl/ELOa 

3710 

bWKO=U,0 

3720 

PkKOI lls-101. 

3730 

47b  IFlbbObl  4OU>4a0<490 

3740 

480  tSOoiLSOaAtKKO 

3750 

bSUO=U.O 

3760 

OO  (0  bOO 

3770 

490  KLitb04/(SbO»«bS0»rl 

3700 

KKStbOWAKt 

3790 

KLFKA 

3000 

KENoiAL-l 

3010 

FAOlIHL/LXAn 

3020 

DO  4011  Isl  • luU 

3030 

boot  1 IS4.* 1 

3040 

pAtshACT»SOU(ll 

3050 

1F(kLI<0I  49b>496<491 

3060 

491  bUMii.O 

3070 

IENPFI.O 

3000 

UO  4V2  J=l»KtNu 

3090 

If  l(l>  r l(  Rm*F  Ao/J 

3900 

bl'M-bUM*  ll  ni  l 

3910 

492  CONIlliUr. 

3920 

PLSbOM 

3930 

PHSS0f'ATLRM*FAC/KL 

3940 

T PFPL 1 ( PH-PI.  1 • ( RK -RL 1 

3950 

PSOom  = l.-LXP(.FACI«TP 

3960 

00  To  40a 

3970 

496  PSOOl 11=1 •-tXPl-FACI 

3900 

498  OOllllNUF 

3990 

oO  10  bS'j 

4000 

bOO  IFlbbOAl  b32>S32>SII 

4010 

bll  KLb4:tS0«/(Sb0w«bS0*il 

4020 

HKb*rf.SO«»KLbW 

4030 

aF( 1 )=HK 

4040 

Rf (21:KF(11*I 

4050 

KS( 1 ):RRbW 

4060 

KSl2l=KSIllfl 

4070 

IFIKFIIII  44Ui440>442 

4000 

440  KFIllrl 

4090 

KK  = 1 . 

4100 

442  iFiKbllll  444i444f44b 

4110 

444  KSI 1 1=1 

4120 

Rl-bw:!. 

4130 

446  00  b3U  1=1 (loo 

4140 

bOU(  1 ) = l»4.l) 

4150 

(OP=(iL‘.W*SOll(  11 

4)60 

OOUKLaPoLK  1 INTI  ATOP 

4170 

UEN=IOP/tlOI 

4100 

UO  >j24  Lb=l>2 

4190 

KrNo=KS(LS|-l 

4200 

00  1,22  Lf=l,2 

4210 

RK=aF (LF I 

4220 

C:luLLll I1NTI*HL/B0TI««KK 

4230 

bUMlo 

4240 

IFlutNOl  520,520,447 

4250 

i 


G-246 


H4T  UO  449  J:1>^LNU  4260 

C=t»ut'l»  IKn«  J“i  )/J  4270 

bUM-iUM»t  42«0 

448  tOdrlNoE  4240 

t.20  f'PILb.LF)  =SOM  4300 

322  COIjiikUF  4310 

324  (.ON(U(UE  4320 

DKFlriK-KKlI  4330 

l'L3Pf>|l,ll*(HPM.2l-t»P(I  ill  l»t)KF  4 340 

PM3PHI2.1t«<PPl2.21-PPI2ill l*OKF  4350 

P 3PL4(HH-PLI*(HK3M-KSI1U  4360 

PSOc.lI)=l,-P  4370 

33U  COtilli'IUE  4380 

40  (u  S5U  4390 

332  UO  34b  l3lilu0  4400 

1P40.U  4410 

lP1|3300( 1 l/LSOM  4420 

00  333  JzlilbO  4430 

IFUkUI  1 l-(.61TI  334>334.538  4440 

334  |P=  (I'tPluKC  ( 1 1 4450 

338  LONiINUF  4460 

P5UU(II=(P  4470 

340  COlUlNUE  4480 

300(11=4, •!  4490 

350  N4=130  4500 

(.all  MJt>u(«AJ,PHK0iN4,EWKn,SHK0l  4510 

355  N3=10U  4520 

call  MNnvl30i,.P500.NS.ES00,SS00l  4530 

60U  tPPu^fSOu  4540 

3«Po3350u  4550 

LPFn=h«FnPU  4560 

3PAu=H«SoP0  4570 

NINuu.O  4580 

uO  ulO  I:1«<>3CT  4590 

H«3nH,L(lt  4600 

tjO  ouy  Jst.N".  4610 

Nll<(=lill.(  •l<S(.H(  I • Jl  4620 

60)  COlM  I'lOr  4630 

olu  CaS|ll,llE  4640 

C CALCULaIL  »lE83  I;<  MAINIfNANCt  PROOBAM  PERIOD  4650 

Li<K..(=OIIIl  •ti>AO  4660 

3>>Ah=3bR  ( (6(l<T«54KO>3HKOt  4670 

C CALCOLAIL  PuffLlGHT  AHU  BASIC  POSTFLlG«f  NANMOURS  IN  INTERVAL  4680 

LPFlUtM(lp«tl’FO  4690 

3PFlli3bnH3M<P«SMHP«tPF0*SPF04SPFn«EMHP«ENHPl  4700 

L''PM-tMHo«LI'pn  , 4710 

3I  P|l.jbP(  (3'’il(l«SMM0«LPP0*SnP0*SBPR*tRMM»EMHft|  4720 

C CALC'iL^lt  FlIOHI  imORS  IN  interval  4730 

tFM|jiLFM.«t»'AO  4740 

VFMU=L«l'u*3FiH<«SFH4*34>(0«S»K0*tFH»«EFHt(  4 750 

HFliiWN  4760 

lcclcccccccccccccccCcccC  4770 

t The  VAi-IAHLlG  to  I'E  dSEU  IN  OTHER  ROVITIHES  ARE  4780 

L •70(11, r.Kuiii  OENsirr  function  for  reefs  pTh  interval  4790 

L twNO.'j.KO  plan  ANU  3T0  OLV  OF  WEEKS  PER  INTERVAL  4800 

C LWKM,3»7«  MF.AN  ANO  STD  DEV  OF  WEEKS  PER  MP  4810 

C tPFu.'.PFi,  MEAN  A((0  Sin  DEV  OF  PREFEIGHT  MANHOURS  IN  INTERVAL  4820 

C LIiPii.SIIFm  ■•fan  and  STn  OEV  OF  BASIC  POSTFLIGHT  MANHOURS  IN  4830 

C INIFHvAL  4840 

C NIN(  OUFUfR  OF  MAJOR  INSPECTION  INTERVALS  4850 

cctccfcr  cccccccccccccccc  4860 

luOO  STOP  4870 

t'K)  4880 

Sl'MhOUTIuf  SfIS  4890 

COM.loij  HOT,  4900 

C IliI'UT  ( Al*  4910 

1U(LI  ( 101  ,7  I ,i.SCT,NFOL(  31  tOSCHI  3,3I,N3PT,OISPI60I,S1SPI60I,K1SI60I,  4920 

2M>LnMl  ( 3,31  > jM|,n3, 31  ,ANI  3,3I,HNI  3,  3 1 «SNl  I 3, 3)  •FMHS<bO  I tSMHS  1 601  , 4930 

3LOS(u''l  ,SNS(„0|  ,lmhp,SMMP,EMhB,SMH8,NI,KSET,ANU<3,60)  ,BNU>3,60I  , 4940 

4L''ou('jOI  •SHI‘Ul(^l  ,LNUI60I  ,SNUI60I  ,ANAR(3,60|,BNABI3'60>  ,ENWKI60I  I 4950 

3LFO.,,SFH>,L',(.w,SS0w,6Lllk,SLUk,AIES,nlK|3,60l,UMAsl3'60l,  4960 

C 1,A(A  oFOElAIEO  ut  PFPF  4970 

6»7U( ISO) ,P»"„< 15Ut ,LkKu,SkKO,EWKM,SWKM,EPEM,SPFM,EHPM,SBPH,NlNT,  4980 

6AI61  I ,F)(  Ibl  ) ,FFHU,VF»(0,  4990 

C UAIA  oFNH'Airo  BY  SHIS  5000 

7LF'SU,',''<SL,,t.o.,r),SNSO,  5010 

C IjaIA  oFNf  mated  by  INVL  5020 

8L  Niu(  3,31  •SNriDI  3,31  >LNUI  3,31  >SNO(  3,3)  «EEO<3, 91, SLDI 3, 31  >00131,  5030 

SUPAi.  ( 3 1 , lALP  ( 3 ) ,SACH  ( 3 ) ,LACNI  3 ) ,S*CNI  3 ) ,ACNS,  5040 

C OAIA  lTnemAieO  by  mho  5050 

9LH,,,(10)  ,SMIIT(I0),ENHRU0),SNHR(I0),EEMPII0),S€MPU8|,DMPI10I  5060 

9,LHHf  ( 10)  ,SHi'FllO)  5070 

UIHtNSlON  UlSW( 150) ,PISWI150I ,PNSPII00),SPMhI20),PSPmi20) , 5080 

ISPNIVU) ,HSPN(20),TMHStl50) ,PMHStl50),TNS(150),PN5<|50l  5090 

2,ksI2),Kf I2),PP(2,2)  5100 
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^>VSU=0.0 

tNSu:0<0 

SNSusQ.O 

U(*  luO 

lnf20flU00 

C ITH  l*irLHVAL  IN  ^I'klKb 

10  n 

i ) 

00  lu  *>o 

c iiH  intci'VAl  in  Flight  houhs 

20  <tOit*4ttnf21 

21  iFisl&PUn  42»42f25 

2b  KLbHsniSHMI/lSIbPI  tl^SISPl!)! 
KKbH^HLSH^UI'jPl  1 1 

rSI  lURKbP 
kS(2)=kS(  lUl 
i^FU>=H4f»( 

KFl2»=AFMMi 
IFUFtin  20«26«27 
2b  KFIlUl 
hk^msI. 

27  IFiKbdII  2n«2Ri2b 

2d  = 1 

KKSH^l. 

-2)  UO  ^u  J=l«lbU 
UlbMt J):j 
UU  JF  = 1«2 

^tHu=Kf (jF|-l 
UO  J$sl*2 

^K^Kb<JS) 

Ul  rui<L^W«l'LSH«J 
CSfKLjP*  ««KK 

urN,KLF»k/rt  < 

b«|Mst 

If  UcIH'l 

30  UO  ^1  JUNKcNo 

c:C*uln«<»>K>jNii/JI 

SbUW*C 

31  COt<i|iNue 

32  HPUl- .JSisbOw 

34  CONIintfC 

35  coin  iNUr 

U"  SSKK^P-KbUI 

HLSPH (I • 1 1 ♦ I HP ( 1 • 2 1 -HP  n 1 1 > I •OKS 
PM7^y  <2#lM(PP(2»2I  -HP  ( 2 • U » •OKS 
H 1^*4  JI  2H1.4  ( HH-pl  ) • i rtKFW-KP  (111 
40  CON) ihur 
00  TO  002 

42  MLFASLFHit/(SfHw«SFHWl 
HKFAiLf H»#KLFd 

KLF  aSHKFm 
KilFr.=KLF«*l 
KLNU=KLFw-1 
UO  MH  J=1 • IbU 
UISnI J)=U 

1F(hKPW-1«)  m5*43«43 

43  FACsKLFd#PlSH(l)/J 
bOMsl ,0 
kkm^i.o 

UO  4H  K = 1*KL><0 
TCHNJTtRM^f*»C/K 
bUMsbUM4Tf  K*' 

44  coniiNur 
HL=LaP(-)-  AC  I •sum 

0IJMibUM4TtK'-»*FAC/KLF» 
HH=LAP(-fACI*SUM 
Hlbi*(U)=HL4(HMTPCId(HKFW-KLFWl 
oO  10  UR 

4b  HIb*( j):lKH(-Rlf«^01SP(JI/UI 
4b  conuuuf 
00  (0  602 

400  IF(SlSP(lll  4l0f410*4I5 
410  bIWKSUISHi 1 )/FFHd 
blNK^UtO 
00  10  bO 

4|b  HLSPSPISKI n/(SlSP( II«S15Pf III 
HKSH=LISH(U*RLSP 
kLS»*si»kSh 
kmshskLSH* 1 
KENuSKLSH-i 
UO  42(1  Jd  f 1 jO 
u)b4(j)rj 

IF(t4KSP-l.)  4m.41b*41b 


5110 

5120 

5130 

5140 

blSO 

5160 

5170 

51R0 

51‘?0 

5200 

5210 

5220 

5230 

5240 

5250 

5260 

5270 

5200 

5290 

5300 

5310 

5320 

5330 

5340 

5350 

5360 

5370 

5300 

5390 

5400 

5410 

5420 

5430 

5440 

5450 

5460 

5470 

5400 

5490 

5500 

5510 

5520 

5550 

5540 

5550 

5560 

5570 

5500 

5590 

5600 

5610 

5620 

5630 

5640 

5650 

5660 

5670 

5600 

5690 

5700 

5710 

5720 

5730 

5740 

5750 

5760 

5770 

5760 

5790 

5600 

5610 

5620 

5650 

5040 

5050 

5060 

5670 

5660 

5690 

5900 

5910 

5920 

5930 

5940 

5950 

5960 


I 
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■tl6  f*tiHLSP»lHli./J  5970 

SljHil.O  5950 

IEHh=1.0  *990 

UO  41ii  K-liKi.NU  6000 

IEHM^TCRM«P*C/K  6010 

bUMibUM+IEHE’  6020 

418  tOUIltiUE  6030 

HL=1.-EXH(-PAC|»SUM  6090 

SUM=bUW* (Em-*FAC/KLSP  6050 

PM=1.-EXH(-EAC|«5UM  6060 

PlS«(JI=HL*«E'H-PLI«<HKSP-KLSPt  6070 

00  rU  42U  6080 

4H  PlO»(JI:l.-t*P«-KLSP»EPH9/JI  6090 

420  CONIlllUE  6100 

002  NA=1J0  6110 

call  MNnylulOVtPlSaliNAtCltrKtSlXK)  6120 

C CALbOLATt  MuWdEH  OF  SPECIAL  INSPECTIONS  PCS  INTERVAL  6150 

C PNSPIKI  IS  IE<b  PROBAUILITY  THAT  THE  NUMBER  OF  INSPECTIONS  IS  6140 

C ,LC.  U-ll  6150 

50  IFISltKI  200>200i55  6160 

55  UlMi,iEUK-3.u»Sl«lK  6170 

lF(uiMN-o.t-M  51)52>52  6180 

51  O|Hij-.U014tl»A  6190 

52  NMx=(EWKu43.«S«KUI/aiMN  6200 

iriuHXI  10U>10U)o01  6210 

eOl  IFII4NX-9VI  54>54>53  6220 

53  NMX=vy  6230 

54  UO  bl  JrltH''X  6240 

PPtlill=U.O  6250 

L=JAL1WK  6260 

List J41I •Flxo  ' 6270 

S=SuhT (FlOATI Jl I ASIVA  6280 

Sl=SuHT(fLOAl(J«ll I«S1«F  6290 

1F(H.)K0I1)*1U.I  155>56>56  6300 

155  lall  uML(FvKu.t.S*PI  6310 

call  iML (F»AU*el.Sl»Pll  6320 

►'P(l.llxPPIl.ll»(P-Pll  6330 

00  TO  lAU  6340 

56  UO  uu  Ksl.150  6350 

lF(H«Ka(Al-l.E-6l  60>5a>58  6360 

58  CsynulM  6370 

call  nML(C.E.S.P|  6380 

call  N''L(C.tl*Sl.Pll  6390 

HP(1>1I:hP(1<1I«(P-P1|a  PWKOIKI  6400 

60  CONflijUF  . 6410 

160  PIISP(J*li:PP(l.ll  6420 

61  COiJIllAlF  6430 

iF||Ji.kO(1I*1U<I  170<165>165  6440 

165  PP(1> IISC.O  6450 

UO  04  KXl.l'iU  6460 

ir  lo•Atl|l^l-l.E-6l  65>A3>b3  6470 

63  C = «i4ii(K|  6480 

call  IIML(r<l  IWK.51VK.PI  . 6490 

HP(l.ll-fP(lill«(l.«PI»  PVXOIKI  6500 

65  CONI  I lUE  6510 

P'lSPIllroPdill  6520 

00  10  300  6530 

170  CALL  I.ML(H(AU>EI»KtSlVK.PI  6540 

PNSPIll:i.-P  6550 

00  (u  300  6560 

200  IFIHbKUIllAlud  210i220>220  6570 

210  NIIII=LtiKr/El4A  6580 

PNSPI 1I=-I01.  6590 

00  10  300  6600 

220  riA‘X^»Kllll50l/E12K  6610 

iriNEX-  091  422i222>221  6620 

221  6630 

222  uO  ^so  J:lrN,-tX  6640 

P’lbHIJAl  1=0.0  6650 

UO  240  Xzl.lsO  6660 

iriP«Enilvl-l,E>6l  24U>226>226  6670 

226  C=kKUIK|  6680 

IFlL-IJ-llAElWKI  24U.230>230  6690 

230  lF(L-J«FiMKI  235>24U>240  6700 

235  PMSPlJtll  rPl.SPlJAIMPNKOlKI  6710 

240  continue  6720 

250  continue  6730 

PNSPIIISO.O  6740 

UO  260  «=1« 150  6750 

lF(|4),rOIKl-l.C-6l  260<253>253  6760 

253  c:«au(K|  6770 

IFIC-LlVKl  255. 260.260  6780 

255  PNSPIIISE’NSHIllAPWKUIKI  6790 

260  CONIMUE  6600 

300  1F(e>nSP(iM1o.I  308.308.301  6810 

301  HNsnmx  + 2 6820 

NMsnmx  6830 

00  304  XSl.NM  6840 
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1 

J=NN-K 

6830 

IF  If'NSPlJII  3U2>302>306 

6A60 

1 

302  nmx:nhx*i 

6870 

j 

30*1  coNUfjur 

6AA0 

1 

30H  LNt^zu.O 

6890 

. 1 

UO  310  J=l»luO 

6900 

. I 

l(mjslnn«  ( j*n«PNbP<  J> 

6910 

' ^ 

310  COI^UNUC 

6920 

bijNsu.O 

6030 

1 

UO  31^  J:l * 100 

6990 

] 

UNL=J*1 

6950 

bNl4=bNN4uNL«UNt:«PNSP<  J> 

6960 

1 

312  CONIINUE 

6970 

bMJ:bwr  ISN  l-Eltfl*EMNI 

6980 

c 

CALCULA1L  SPKUL  U^SPtCTlON  MANHOURS  AND  NOAM  PER  INTERVAL 

6990 

L^'bUSCNN^C.Ml^bl  1 )4PHSU 

7000 

bMbLULNN4SMr(b<  1 > •SHHb(  1 ) ♦SNN*SNn*FMhS(  n*CMHbl  H^SMSD 

7010 

tMbU=LNN«f  NS  U ) 4LNS0 

7020 

bNblJ=EllN<SNSI  1 l•bNSI  11  *SNN«SNN*CNSI  l)*ENSI  I14SNSD 

7030 

100  CONTINUE 

7090 

bMbU=SUR  ( (b'^bOl 

7050 

bNbU=SQRT IbNbOl 

7060 

KETUKU 

7070 

V 

c 

CCtCCv-CCCCCCCCCCCtCCCCC 

7080 

c 

THE  VAKIAULL?  ru  ilC  USED  IN  OTHER  ROUTINES  ARE 

7090 

c 

LPbUtbMSu  mean  anu  sto  oev  for  special  inspection  manhours  per 

7100 

c 

llilLHVAu 

7110 

c 

LNbUiSNSU  plan  anu  stu  oev  for  special  inspection  norm  Per 

7120 

c 

lUTCHVAt 

7130 

c 

ceecclccceccccccccfcccc 

7190 

luou  sruH 

7tSn 

LMU 

7160 

a 

bUiJHOUTlut  lUWL 

7170 

c 

THlb  KuurlMt  ULiEMMINES  manhours*  N0PM»  NOR*  AVAlLAUlLlTY*  A^iO 

7180 

c 

EEELCTlVE^iEbS  EACH  INTEHVAL 

7190 

tOMNON  IINT* 

7200 

•1 

c 

INPUT  CAT- 

7210 

lUr.LUlOl  .K1>NSCT(MFOL(3)>NSCHI3>3)>NSPT>D1SPIAOI>S1SPI60)>KISI60)> 

7220 

2K*Efhl(3«3}fbMia(3*3l*AN(3*3)*nN(3*3}*SNl(3*3)*EMHS(60)»SMHSl<^01* 

7230 

3tllbltiOI  ibTiSloOl  .EHHP>SMHPtEMMB>SMHB>NI>KSET>ANUI3<60|,BNUI3»60l  » 

7290 

«LMNU(LiU)>SNHu(h0I.CNU(tini>SNUl6Pt>ANAPI3t60l>nNABI3'60>>ENIIK>6U>> 

7250 

SLFHi>>bFHN>LSul»>SbOV>LLUV*SLOM>AIES>niF(3t60l>UMASI3'«0)> 

7260 

c 

iTATA  oFNE.<*TEU  BT  PFPF 

7270 

6«KO(lbO).P«Fu(l50».E»KJ.bwt(O.Ei*t(M.St(KM»EPFH,SPFM»EBPM»SRPH,NlNT» 

7280 

bA(bll >FX(61) •EFHU>VFH0. 

7290 

c 

UATA  uENErAieo  BT  SPIS 

7300 

TEMbU.SMSuiE  JbO.SNSO. 

7310 

c 

UATA  uENErATEO  BT  INVL 

7320 

eLPHu(3>3l>b'  r<0(3>3)>ENO(3>3)>SNOI3>3lrEEU>3>3)>SED>3»3)>DO>3>> 

7330 

euPAC(SI>EAC.'*(3)>bACM(3l>EACNI3t«SACNI3>>ACNS> 

7390 

c 

UATA  uENEKArEO  BT  MPO 

73S0 

BEPHTdOl  •SMHI  1101  •ENHRdOlfSNHHUnWEEMPIlOlfSEMPllO)  rOMPllOl 

7360 

OiFMmF  dOI>b"'HFdOI 

7370 

UOUIILE  PnEClblON  TAVfOTAV 

7375 

U1MC.NS10N  TAVI20I>PAVI20I  •KNI2dKC12dPP12»2> 

7380 

c 

calculaie  Aircraft  nors  per  week 

7390 

ACNhSO^O 

7900 

UO  lU  KsitAStT 

7910 

ACNbsACNb4tN«K(K) 

7V20 

• 

10  CONTifJUE 

7930 

1 

00  BOO  Isl.N'jCT 

7990 

EACMdCu.b 

7950 

J 

bACHUUU.O 

7V60 

EACNdCUf  0 

7970 

i 

SACMdl^U.U 

7980 

uMAcnisu.o 

7490 

c 

CALEULATL  UNSCIItnuLEO  MANHOURS  AND  NORM  PER  INTERVAL 

7500 

UO  .:0  KsI.KbEI 

7510 

] 

IFluNIMliKII  I11>I2U>I20 

7520 

111  >Sb<s-ANUn*K)«Ufb/HMUn*K) 

7530 

IFlulA  d>H  I'lf.l/  Ilf  111  IV 

7590 

11  IFIULLI  d INTI-TSbl  U>12il3 

7550 

12  UPASUKL  I d IN  1 ) • 1 ANU U > K 1 4(1NU  1 1 f K 1 •DEL 1 1 1 INT  M 

7560 

00  >0  IP 

7570 

13  U>'A=lbb<  lANMd  fK|«BNUdfKI*TSSl 

75S0 

UPAEUMA«uMAbd  iK)  • lUELl  1 llNTI-TSSI 

7590 

00  )U  IV 

7600 

IV  IFlUELldlNTI-TSSI  IbilSilb 

7610 

lb  UPA:OLLldlNII«UMASdfK) 

7620 

bO  TU  19 

7650 

lb  IFd.^tELldlNTT-TSbl  ITilTdS 

7690 

17  UNASULLI  dlNIdlANUdfKMnNUI  WKI*OELnllNTI*3.0> 

7650 

00  TO  19 

7660 

IB  UPA=UPASdfKI«l2.4DELllIINTI-TSSMTSS*ANUIIfK)/2. 

7670 

U'AXUAA-UTLI  dlNTdlANUI  I f K 1 4BNU(  I rKI  vOEEl  1 1 INT)  ) 

7680 

l»0  lU  19 

7690 

120  U"A:uELI  I IlNI)4lANUdfK)4PNU(t>Kl<0EEdlINTI*DIKd>K)) 

7700 
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J 

a 

J 

J 

H L^MIL^HU(K (•oM» 

Lli=tl«U(K  I •UM* 

b^'=bu)'T<UM*•  (SUU<KI*^NU(KUENUIKI*ENUIKII  • 
lA(.m(  1 )rL»C«(  1 )*tMH 
SA(.h(  I |:bAL‘M  ( I tSMHAbMIl 
LACN(  I I:LALIi(  ( I »LN 
bACM  I |ri>Al.fl(  I (ASMabN 
UWAt(IIIU>**ljMAC(II 
20  CON  r I Mir 

bALK ( I l=b1HT(SACM( 1 I I 
bALtil  ( )rb<)HT  (SACNI  I I ) 

APN=u,0 

C CALl-ULATL  ntPt:<uAulLITT  PtH  INTERVAL 
UO  JU  KzltHSLT 
ArAliAUt  1 iKI 
iriA)  22i22><3 

22  AHNzAHN«u.b<PN*n|  I ,KI«L>ELll  tlNTI*OlKll>RI 
b3  (U  30 

2]  AR2=A«UNAn(l  iKXUELl  IllNTUOtKIlfKI 
|P(Ati2l  ^A>2<ti26 
24  APNzAUlUAAU.b 
bO  lU  30 

2b  A(INs*hlJ«A*OoAHNAP(  l>KI«DELllllNri*01Klt>K| 

30  tONJlNUF 
fSr*ltS*APN 
00(1 l:EXH(-Ebl 

C CALLULAIL  TOTAL  HanHOIJRS  AND  NOR  PER  INTERVAL 
NMr^^OL(ll 
00  «V9  J=I«MiA 

LHHlI(  I • JI=LMMl(I,0|«bPfH4EUPH«EACM(ll4EMS0 

b''Mo(ltOirbOI.T(SHHl(liOl4  SMH  ( ( I . J I 4SPPH*SPFH4SBPH*SN>H4SACM  1 1 ) • 
IbACMI  I I 4bNb04SM<;01 
LriI:A>l(I,J|4>)N(|,J|4UFLHl|Nrl 
IF(tl.(l  A0.2b.2<) 

20  lN1:u,0 

2T  tbM:LNl4L«fi(l(4LNSU 

bNH,.^bllI  (I  , J|4bNI  ( (.  Jl4SACN(I(»SACN(ll4SNS0*SNSD 
L lU(i,J|st  H''4AcNb4(t»A04tNl/lbA,l 

b^Sbl<'V4ACNS4ACNb4(b«A04S»R04SN|(l4j|»SNlll40>/2d22*.) 

bllU(I,J)iS0H((b2l 

C CALCULArL  PlAu  aNO  bTO  OEV  OP  TOTAL  HOURS  PER  INTERVAL 
I A«  lC  (sli.A,  4F«Ail4eilI  • ( I . 4ACNS/16«4  I 
s:bi<UI<JI 

bCTzbORT  1 2o<  . 4S«K0«S«KU4b*b*  ( 1 4 4ACNS*ACNS/2822« . ) > 

C CALLULA(t  AvAILAOILITr  UlbTKlUUTtON 
urAv:i,.0b?bn5A 

TAvu)  = 0.n 
UO  I/O  L = ?*'“*v 
f AV(LI=TaV<(.-0  ♦OTAV 
170  COriTlNUF 

S00«!)00«52b 

bOO  <P<bcn  bOlfbOlfblO 
bOl  UO  bUb  LslfUAV 

iF<tcr«< i.-'TAVdii-twOi i» Ji I 5oj»90«»5o« 
b03  HAV<uJ=I .0 
00  10  SOo 
bO**  P/'V(L)=0.0 
bOt>  COliTlNO*’ 

oo  lo  ^ou 

bio  MLtuctCT/lbCMSCTl 
HKCUSHLCU«tS< 

^LCU^MKCU 
rAClSMLCu«£'<U<  < *JI 
UO  L = J 

J-At  =rAC?/a.*TAV<LI> 
ir<NKcn-i.l  bl7»bl4*bl4 
bl4  bMM=l,0 
rcMMsi ,0 

00  bJ2  L |PI >aLCO 
IF.  hms|CRh«»- AC/l1 
bUMs>WMf|f 
bl2  CONI  lintF 

HLSl.O-FxPl-^ ACI aSUM 
SUHsbUM^lf 

AC»*SUM 

PAVILI  rHC4(HH.PL»AlKKC0»KLC0l 
OO  <U  b2u 

bl7  pAV<u  |ri .-tAP<-f ACI 
b2U  CONilNur 
To  hOU 

b2b  <r<bCT)  b2O*b26»b40 

b2S  NL<4u:LHr  < I * J)  / < ^NO  < 1 » J I •S*t)  (1 » J If 

XLNUSMXNU 


7710 

7720 

7730 

7740 

7750 

7760 

7770 

7780 

7740 

7800 

7810 

7820 

7830 

7840 

7850 

7860 

7870 

7880 

7840 

7400 

7410 

7420 

7430 

7440 

7450 

7460 

7970 

7480 

7440 

8000 

8010 

8020 


8050 

8060 

8070 

8080 

8040 

8100 

8(10 

8120 

8130 

8140 

8150 

8160 

7835 

8170 

8180 

8140 

7870 

8210 

8220 

8230 

8240 

8250 

8260 

8270 

8280 

8240 

8300 

8310 

8320 

8330 

8340 

8350 

8360 

8370 

8380 

8340 

8400 

8410 

8420 

8430 

8440 

8450 

8460 

8470 

8480 

8440 

8500 

8510 

8520 

8530 

8540 

0550 


6-251 


HENUlKLNU-1  #560 

F*C|=HLNU*LC)  #570 

UO  bJb  L=1>NAV  #580 

F*ClFACT«U.-TAVILtl  #590 

IFiKbNOt  5J4>530>53a  8600 

S30  bUMll.O  8610 

ri.HMbl.O  8620 

UO  632  LISIikLNP  8630 

lEHMlttP»*FAl./Ll  8640 

bUM=bUM«  U><H  8650 

632  CONririUF.  8660 

PLIbUM^EAPI-FACI  8670 

6UM:6UMaIChV«FAC/KLNU  8680 

FH=bUW«ExPI-FACI  8690 

PAVIL  )=PL+(HH-PL1*IKKM0-KLN0I  8700 

60  lu  53o  8710 

634  PAvIL  lltXPt-FACI  8720 

636  CONIlilUE  8730 

60  to  bOU  8740 

640  KLCU=EC7/(6C1ASC7I  8750 

KKCij6EC7aPLCo  8760 

HLltDZLNO  1 1 • J I / ( SNO 1 1 • Jl  •SNO(  1 < Jl  ) 8770 

KKUjreNOI 1 > J) •PLNO  8780 

HNIllrWKHC  8790 

KNI2)6Ktl(  1 1 *1  8800 

HCIlllOKtP  8810 

KCI2I6KC(1|A1  8820 

IFIxNIl))  341>541>542  8830 

641  KAII1I61  8840 

HKNjbl,  8850 

642  1F(KL(1II  64j>543<544  8860 

643  KCIllIl  8870 

8KLLJ-1.  8880 

544  Ub  bOU  L£)<I<AV  8890 

tOPlKLItPAt  l.-7AVtLI  t 8900 

0EI<=I0P/(70P*RLC0I  8910 

UO  663  U<=1.2  8920 

K£^lL|i^''l(U^M-l  8930 

UO  652  LC=1*«  8940 

KKSKCILCI  8950 

CS(KLCn/(70M*RLCO) IAA8K  8960 

bUrtiC  8970 

IKaLKIH  63Ii>560>540  8980 

646  uO  648  LIH-aENO  8990 

CzC^UlNttFXALUll/LI  9000 

6U*"66UF»t  9010 

646  tONtlUUE  9020 

650  PP(LN.LC)76U<  9030 

652  COttdIlUF  9040 

553  COUtlNUE  9050 

UKC=k8CP-KC(II  9060 

PL=PP  ( 1 . » ) ♦ < PP  ( 1 1 2 1 -PP  (l»in*08C  9070 

PU=PP ( 2 . 1 1 ♦ ( PP ( 2 1 2 1 -PP (2*111 AUKC  9080 

PA V ( L I iPl  ♦ ( Pi  i-PL  I A ( R8Nn-8H(  II)  9090 

660  CONIllml  9100 

t CALCIILAlt  EFFECI  IVENESb  KEAN  ANO  S70.  OEV,  9110 

600  UO  40  L61*NAv  9120 

7AV(LI=7AV(l.l»Un(II  9130 

40  COUIlllUE  9140 

CALL  OPNUVI7AV*PAV*NAV*EEOII*JI*SEOIl*jn  8240 

890  CONiinUF  9160 

900  CONlllJUE  9170 

KE7UMN  9180 

CCLCCCLCCCLCCCCCCCCCCCCC  9190 

C 7HE  VAmIAPLlS  7u  OE  UStU  IN  OtMER  ROU7INES  ARE  9200 

L LPIlUIlf  J|t6P»ia(I*JI  PEAN  ANO  STO  OEW  OF  PANMOURS  PER  1N7ERVAL  9210 

C CNUIl.JI.5NUIl*JI  KEAN  ANO  STO  OEV  OF  NOR  PLR  INTERVAL  9220 

C LIUI l.J) ,StOI l*JI  PLAN  ANO  570  UEV  OF  EFFECTIVENESS  PER  INTER  9230 

C OI'Hl  OtPENUAHILITT  PER  INTERVAL  9240 

LCCcCCCCCCCCCCCCCCCCCCCC  9250 

LNO  9260 

bUUKOUTlUE  MI'O  9270 

C CALCULAtE  PsINtLNANCF  PkOOPAP  PANHOORS*  NOR*  DEPENDABILITY*  AND  9280 

C EFFECT  IVtIltbS  - The  output  OF  THE  PODCL  9290 

LOMFOU  llNT*  9300 

C input  tat.*  9310 

luELiiiO) *Ki.NSCT*NFOLI3I *NSCH(3*3 I *NSPT*U15P|60 ) (SlSPieO ) *K IS (60) • 9320 

2H*ENNll3*3)*bMi<l(3*3l*ANI3*3l*nNI3*3l*SNll3*3)*EMHSl60)*SPHSI60)r  9330 

3tNblunl  *bNb(v*8|  •EP«P*SPHP*LPHb*SMHB*Nl  *KSET  * ANUI 3*60)  (bNUI3«60)  r 9340 

4E*N<lllbO)  *5Mllul60l  *ENUI6al*SNUl60l*ANABI3*60l*BNAbl3*60)*CN«KI60)*  9350 

5LFN*,bFH>*.tSOH,SSON.ELO«*SLO*l*AlE5*OlK|3*60l*UMASl3>60l  * 9360 

C data  oENLhATEU  BT  PFPF  93T0 

6«EUI  1611)  .PkKol  15U)  *E«KO*Sm(0*EWKM*SBKH*EPFH,SPFH*EaRH*SBPHiNlNTt  9380 

6Albl).rxi61l>CFHU*VFHD*  9390 

C UAIA  bFNLMATEU  BY  SPIS  9400 

7LPbll*SASu*EN60*SNS0*  9410 

L UATA  bENEHATFO  BT  IMVL  9420 
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atMliulJ.]) .bKHOIJt]) >bNOI3>3l >SNOI3>3l •eEOI3t3> »SCOl3»3) *DOI3) • 9430 

3)  .L4tMI3)  •bACMISI  •C4CNI3I  tSACNl3l  (ACNS*  9440 

C DATA  bENbKATCO  BY  MHO  9450 

9bMHYI10) .SHHyIIO) .eNHRI10liSNHNI10l«EeMM«iO>»SCMP(l0).OMRIl0)  9460 

9>EMHf  llO)>!>HrlF|lUI  9470 

UIMtNblON  rlb0)«PI50l  9400 

A:U.U  9490 

LMIIMiU.n  9500 

bMHAiO.O  9510 

tNHHbu.O  9520 

bNM»'=0.0  9530 

U ::0.0  9540 

tt  iU.O  9550 

SE  =u.O  9560 

bliMi=u.O  9570 

bUM^rO.O  9500 

DO  lu  UliNSCT  9590 

«M=nfOL(I)  9600 

UO  9 J=liNM  9610 

UNbNbCMI 1 • Jl  9620 

(.MIIh=LMtlM»L4liO|l>JI*NN  9630 

bMt<M-bMHM*b<AMO  ( 1 • J I (bMHO  1 1 • J I 9640 

b'lMH=;,riHH4bl  lu  1 1 > J I tbMO  1 1 • Jl  «NI4«NM  9650 

LMMH::bNHH»LllulliJI«NN  9660 

t-f.  =tE  »LLuI1>JI*NN  9670 

bF.  =SE  «bEU(ltJI*SbOI  1>JI«NN«NN  9600 

0=U4U01 1 I (NN  9690 

LNl=AN|l>JI«llN|I.J|«LirLl(llNTI  9700 

IFItMl  btU>U  9710 

6 LNUu.O  9720 

a bUMl=SUMl*N5CH|liJI*bNl«(1.4ACNS/16a.l  9730 

bUM^:bUM^tN5LH(l.JI«NSCHtl.JI«SNltIiJI«SNIIl»JI*ll.««CNS*ACNb/  9740 

128224.1  9750 

) C0NIII2)F  9760 

10  tONtlMJE  9770 

bHMUbOR  t «b.'>IM|  9700 

bMHHib<J9Hbi"P|  9790 

btMHi IIMI IZSuRT(SF/(H1NT»N1NTI I 9000 

k.£hH(IlHr»rtu/NlNT  9010 

0''H(lIUTI=U/ulNT  9020 

C CA(.CIILA(E  HANHUuPS  hep  year  9630 

NA=bU  9040 

00  2U  1=1>NA  9050 

Tlll-l<4U0.n  9660 

t=tHlM-T ( ll»(E»KM/52.*bUMl/8736. I 9870 

bzbMil'AtSMHMA  I ( 1 1 «T  ( 1 1 • < S»KM«5«KM/2704. 4SUM2/76317696.  > 9800 

b=buKt(SI  9090 

IF(bl  13>13>12  9900 

12  call  IiHL(A,F  ,5.PI|  9910 

HIIIIHI  9920 

uO  to  20  9930 

13  IFtLI  lb. lb. lb  9940 

lb  HI  I 1=0.0  9950 

bO  TO  ?0  9960 

16  H( 1 1=1.0  9970 

20  tOIJtlullF  9980 

call  MND»(T.H.IJ*.EMH.5MHI  9990 

L'4ty|  IIMI  l=E 'IH  10000 

bUHT  I lint  |=bi'lH  10010 

C CALLDLAIL  H.sMHOuRS  her  maintenance  PROOMAM  10020 

lFHiIzNIM  I *LFlin  10030 

VFHt.=NIM)«VFMn  10040 

C CALCULAtt  MmMhOjRS  per  FLISHT  HOUR  10050 

uO  <10  Izi.NA  10060 

tlll=2.«I  10070 

L=L'4iM-T|I)«tFHV  10000 

b=bt»tM«SMHM*  I 1 1 I ATI  I I AVFMM  10090 

b=bun1l5l  10100 

IFIbl  33.33.32  10110 

32  call  'iMliA.E.S.PII  10120 

HlilzHI  10130 

bO  TO  40  10140 

33  IFItl  35. 3b. 36  10150 

55  PII)=1.0  10160 

bO  10  40  10170 

36  HI  11=0.0  10180 

40  COlMlIlUF  10190 

call  HtipvlT.H.NA.EMM.SMHI  10200 

t*'HFIIINTI=LT(H  10210 

bMHF  I I IMTI=bA>H  10220 

C CALCULAIE  NuP  ilOtIRS  PEM  HOUR  10230 

NAZ2U  10240 

UO  3U  1=1. NA  10250 

llll=l«0.nb  10260 

L=EI.MH-T  1 1 1 • 1 160.  (EUAMtSUMl  | 10270 

b=5ll6Pt5NHH'>Tlll*TI  ll*l28224.4S»KM*5«KH4SUMai  10200 

b=bbHTI5l  10290 

IFIbl  23.23.22  10300 
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22  CALL  NML(A.E.S,PII 
P( II-PI 
60  TO  in 

2i  1F(H  26(26*25 
26  Plll=U.O 
60  lU  30 
26  P(II=J.O 
3U  tONIlNUE 

CALL  Plinvl  I (PtNAtENtSNI 
LtlH><(lllll  ):Li< 

S'lMKdlMI  l:S« 

KEIUPN 

btJU 

bUbKOUTlNE  l.-iLlAtEibUtPI 
COMmuM  lINft 
C INPUT  CAIA 

lULLl  (101  iKlfl.StTiNF0L(3l  •NSCM(3(3I  .NSPT,OISP(60)  (S1SPI60I  (KlSlbO)  ( 
2H(kMll(3i3)  (bMllI  13(3)  tAN(  3.31  (RNl  3(3)  (SNK  3(3)  >EMHSI60I(SMHS(60)> 
3LN6(uU)  .666(1.0)  .LMHP.6MHP.EHI(().6HHB>Ml>K6CT.ANU(3.b0l  (bNU(3(60)> 
<ILP(IU(60)  iSMM.XijOI  .EI<U(uOI  (SNU(60I  .ANAB(  3.60)  .BNAb ( 3>60  ) .CNNK  (60 ) . 
5LEH».6EM«.LSuW,S60W.LLOW.SLUW.AlES.01K(3.60).imA6(3.60). 

C UAfA  oENt-nATEO  OY  PFPP 

6*KU(16U)  .Pi«A6(  150)  .EMKU.bWKO.EXKM.SWKM.CpFH.bPFH.EBPHiSRPH.NlNT. 
6A(el) .FY(bl).EPHO.VFHO. 

C (iATA  oEDEkATEO  UY  SPIS 

7LM6U.5«SU.LN6D.SN60. 

C DATA  oENCkATEO  BY  INVL 

flLPHu)  3*3)  .6N>>0(3.3)  .EN0(3.3)  .SN0(3.3)  .££0(3.3)  .SED(3.3)  .00(3). 
eUi'AAC  (3)  .l‘L6(3)  .6ACH(  3)  .EACH (3)  .SACN(3)  .ACNS. 

C UA(A  oENEi.AtFO  by  hpo 

OLMHTdO)  .6HHr  (10)  .ENHR(  10)  .SNHR(10).ECNP(10).SEMP(10)  .OMP(lO) 
9.EMHP  (10)  (bPllEdU) 

C COMPU(L  N0PHAL(A.C.6n) 

Tl(A-t)/6D 
1E(1-X(t))  3U.40.60 
30  PIO.O 
Kfll  urt'* 

40  PShAdI 
HFTuhN 
SU  uo  bo 

ipn-x<n  ib^#54#b6 

KtTUrtN 
b4  PsFxdl 
K£TuhN 
5b  CONUMUe 
Psl.U 

MEfUHN 

tNU 

SUBHUUTiMt  PNOV<T*P.N»BAHT,SOeV) 

C THlb  HUUIlMt  CAtCULATEb  THE  MCAN  AND  STANDARD  DEVIATION  OF  T 
UlMtNblOr4  T(l5u)iP<lbOI 
bAHTST(l)*P<ll 
UO  10  IStivN 

bARrrOAPr4T(II*(P<ll-P(I-l)) 

10  CONdNUE 

bOEVzPd  )•  <Tdl«UARTI 

UO  Is^pN 

bntV=bUEV^(Pni-P(I-ll  l♦<T<ll-BART)••^ 

20  CONdNUE 

lF<Atib(SUEV-.SE-10) I 30»30»40 
30  bntv=u«o 
hEFumn 

40  bOEvrbOPl <bULV| 

RETURN 

LNU 

SUOKUUTInE  mnoo<t»p»n*bart»soev) 

C THIS  MUUTINL  CALCULATES  THE  MtAN  AND  STANDARD  DEVIATION  OF  T 
C UblHfi  1M<  PkOuAoIlITT  ULNbfTV  FUNCTION 
UlMLUblOtJ  TdbUdPdbOl 
bAHl£0«0 

snLv-u«o 

UO  10  l£l»N 
bAKUHAP|>Td)«Pd) 
bOLv:bnEv«)  d)«Td)«p<n 
10  LOrJdTAIF 

bnLv=r.i*ry-nA(,T#nAPT 
|FU.iS<Suf  V-.'it-10n  3U»30»40 
30  bULv^u.O 
HtrUHU 

40  bUtv=bOPT<y^LV) 

HEIUKM 

tNU 

bUBKO{JT  JhE  aHN0V<T»P»N»HARTtSDEV) 

C TH2S  HuuriML  calculates  T»4E  MCAN  AND  STANDARD  DEVIATION  OF  T 
OOUhLE  PKECIblON  T 
UlNLNblOu  TdbOdPdbO) 


10310 
10320 
10330 
10340 
10350 
10360 
10370 
10360 
10390 
10400 
1U410 
10420 
10430 
10440 
10450 
10460 
10470 
104A0 
10490 
10500 
10510 
10520 
10530 
10540 
10550 
10560 
10570 
10500 
10590 
10600 
10610 
10620 
10630 
10640 
10650 
10660 
10670 
10600 
10690 
10700 
10710 
10720 
10730 
10  740 
10750 
10760 
10770 
10700 
10790 
10000 
10010 
10020 
10030 
10040 
10050 
10060 
10070 
10000 
10090 
10900 
10910 
10920 
10930 
1094  0 
10950 
10960 
10970 
10900 
10990 
11000 
11010 
11020 
11030 
11040 
11050 
11060 
11070 

Mono 

11090 

11100 

11110 

11120 

11130 

10060 

10070 

10075 

10060 
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i)«K1  It  ( 1 ) ‘Ht  1 ) 10090 

UO  lU  lr<:fN  10100 

bAHr=uARi»r(i)*(p(it-p(i-i))  10110 

10  COiiilfiUF  10120 

bntv=p(i)*(r(i)-uAPT)««2  10130 

DO  ^u  lz^lH  lOlAO 

SllLv=S0Ev*(Plll-P(l-l)l*(T(l)-aARTI**2  10150 

20  counijuE  10150 

tF(AoS(SuEV-.5C-10) ) 30i30>40  10170 

30  bOtv^u.O  10180 

KEIUM'I  10190 

UU  b ILV^SORKbOtVI  10200 

kEIukN  10210 

tNU  10220 


/•  hlouiheu  Place  FoptnAN  eco  source  ucfore  this  c*ro 

//LKt•O.SYSPHl^T  Ou  SPACb>lCTL.Cl>ll) 

//LI'EO.SYslU  or  nATA.SPACC>CTHK>C5«5I3 

/• 

//CHO.FtUstOOl  UU  UArA.SPACF>CCYL«Cl>lll 
9999 

SAhPLE  PUn  - Input  DATA  RAseO  ON  HESUL'.i  FOR  11  NON-ISO  AIRCRAFT  SAMPLE 
4.65000  2.000U0  3.02000  l.Ub200  3.03000  1.04600  0.00729 

0.79000  1.02000  0.00000  2.74000  0.00000 


3 4 

4 

^b»0^)QO^} 

1 1 

3o*oonuo 

< 

35800000 

40.06000 

45.00000 

50.00000 

d 

43.2U0UU 

26«70UU0 

OoUUOOO 

0.00000 

O.OOOOO 

0«0Ult>l 

0«000u2 

OoUUOuO 

O.UOOOO 

0.00000 

OoOuOUO 

OaOOOuO 

OoOUOUO 

0.00000 

0.014^8 

-0«0Ui)u2 

Oouunuo 

0.60000 

09244ln 

-0«003j6 

0800000 

0.  )ooo 

O.OOOOO 

1.  OuO<)u 

1 « OuOuO 

i.uuouo 

1.06000 

•0U08u 

•OUOuU 

•00744 

.12209 

lu 

43.2000U 

26«70UOO 

OoUOOUO 

O.OOOOO 

0.00000 

0*0^032 

•0«0U030 

0*00000 

0.00000 

0.00000 

OoOlBbo 

•0.0Ut30 

o«ouooo 

0.00000 

o.ooooo 

OoOV39ti 

-OoOUlu^ 

0800000 

O.OOOOO 

O.OOOOO 

0olU^71 

•OoOulob 

o«ouooo 

u.ooooo 

0.00000 

loOUUUO 

1 oOUOuO 

KOOOOO 

l.OUOOO 

•OlUlb 
2 lu 

•n0933 

•04696 

. 05285 

261.30000 

433«^UUU0 

4l7oO&nun 

219*70000 

5.00000 

30«<9UUUO 

30o400UO 

21 *90000 

0.33000 

38.70000 

o.n^nin 

•0o0UU30 

0o0K4H2 

•0«0UU30 

o.oiau 

-0.00i‘j9 

Uo2V232 

-0o0Uu5 

0*00000 

O.OOOOO 

0.00000 

3o0U0QU 

3«Q00u0 

3*00000 

1.06000 

•010U8 

.0U^)2l 

•00906 

.14616 

i.luuuu 

0«64UUO 

5*00000 

14.50000 

0.00190 

3.5UQU0 

3.Q70O0 

13«  30000 

19.76000 

0.27100 

Ao2U0UU 

7,740U0 

3*30000 

5.40000 

0.16000 

1«7U00U 

1 864080 

2860000 

6.80000 

0.09800 

7«700UU 

686bOuO 

0*00000 

O.OOOOO 

50.00000 

25.80000 

2 

llfSUOUU 

13852000 

0*00000 

O.OOOOO 

13.90000 

14.10000 

2 

6«euooo 

7823000 

0*00000 

O.OOOOO 

29.80000 

63.80000 

2 

SfSUOUO 

9810000 

OfUUOOO 

O.OOOOO 

25.70000 

25.30000 

2 

9999 

/• 
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UNCLASSIFIED 


6.14  NE  TWORK  ANALYSIS  MODE  L 


//T9a97V  oou  ni>:  c,.  wamo.  :>pkTy>o2  X3it0s 

//C9897V  t*EC  P90HbofPAMM.ASStKMAP.LlSI.BCOJ.  C 

//  PAPti.LKLO  :L  1ST.  XHEP  : . 1 1ME>02.  ACCT>035323007 

//Assr.sYsi'i  ru  uata.spaccxcyl.c i.i ii  isdo  cos 

C ulTWOkK  Ai.AlysIS  HOOfL— • 37o 

COMI.,011  TtffMI<ai.PNCMI2al.NNEM.TMHei20I.PMHEI20l.NMHC.NBM.TMH(15a.  20 

12nt .PPHI ISUfcOI .UMHI 1501 .TSPI lbO.201 .PSP(I50.20t .NSPCISOI.  30 

2PMKI 1501 .K 1 1H9I .LI  1991 .Ml  1991 .TN0R(20 1 .PN0RI20 1 .MNOP .BARN.DEV .TMHI  90 

3(2Ut.t’MHll2al.riMHl.FM.HAHM.DCVM.BNe.ONe.BMHE.OMHt>LKFX(lSOI  50 

uimlnsion  HiAni2ui  60 

C HEAU  9999  lil  FIRST  ANO  LAST  CARO  FOR  END  OF  FILE  TEST  62 


i 


1 


MLAu  I5.9«I  L0f9 

c SET  ohioinal  values 

1 00  Hi)  1 = 1.20 
TMH1|1I=U.0 
PHUIlIlru.u 

9U  LOlflllvOF 
UI'MI  = o 
FI'II.O 
LliL=ii.O 
OIILLO.II 
l>(ll  =0.0 
UM|IL=U.O 

Kf.AUIbf  103)  ItCAO 
lF(HLA0(ll-t9F9l  T.2.3 

2 call  lOJMSb 

call  lx  11 

3 KLAUI  Jf  luDli.uPfMIIEMfNMltl 
MlAOIS.lUl)  I I OEM  I 1 1 f 1 = 1.NIIEM) 

KFAOIbf  lul  1 ll  lItVI  1 1 f ISl.NMLM) 

HLAUCj,  lul  1 I IMlin  1).  IslfNPHE) 

Mf  AjISf  lull  I .Ml  IF  (II  f l = lfN9Htl 
MEAUIbf  1U2I  ILKFXI  1 I .Irl.NIIKI 
HEAUIb.lUlllH'HIl)  flSl.MlH) 
H£Aij|h,lu2l(l>MHIll  f Ul.NBK) 

00  lU  1=1  fill'll 
NtsUKIII  1 1 

KlAOIbf lull) (MHI l.JI.JSl.MlI 
REAolb.lUlllPMHIl.JI.JSI.rill 
10  LONllllUF 
NISIIOM*! 

00  2U  l = lfl4l 

NEA0ISfl02l  KIll.LlllfMIll 
20  COOTliiUC 

NKllt.16.  JIIUI  HLAO 
9MlTL(6.3nil 
IFINNLM)  bbfiiOfSU 
SO  ■RllLI6fb02l 

MMlTLI6fjajl  I TNLMI 11 . l=l.NNtMI 
killTL(6f  3091  IPMEMI  llflSl.NMLMI 
■MlTLIOf OOb* 

tlRlTLI6f  3031  (TMHClll.l^l'NMHEI 
■01106.3091  IPPMEIll.lLl.NMHEI 
60  kRlltl6f3U7l 

kMlrtl6f3nttl  NHR 

■Ml IL 16. 3091 ILKFXI 11 . 1=1.NBPI 

kMllLI6>3lOI  IFHKI1I.1=1.NBRI 

kMUL(6.3lll 

00  3U  l = l.Ni>ii 

Nl=liA.HI  1 1 

■01lt(6.312l  1. ITMHI 1.01 .J=1.N1| 
kRl ILI6.313I  1. IPMKI l.JI .0=1. Nil 
30  CONllNUF 

kNirLlh.3l9l 

N1=I.0H-1 

ki.llLI6.3lbl  ll.KIll.LI  1I.H|1I.i  = 1.n1I 

call  NAFU 

kHlTLI6.2UUl  ! 

IFINNLMI  69.09.62 
62  kKllLI6.3U2l 

l•P11L(6.3nol  BNE.DNL 
■MllL(0.3llbl 
kKl|LI6.3Unl  BMHL.DMME 
69  ■.I1ILI6.2II1) 

kMlTLIO.inil  ITM0R(1I.1=1.MN0KI 
kM 1 1 L 1 6. 309 1 (PNOM (11.1=1 .NNUR I 
■MllLlb.lObl  BARN. DEV 
kRlr£(b.2n2l 

■Ml)L(b.303l  (TMHKlI.lsi.NMHlI 
kl>l(LI6.309l  (PMH1(1I.I=1>NMH1I 
kHltLlb.3l1bl  RARM.DEVM 
IFINNLMI  1.1. 80 
80  kRl|L(6.203l 
kHllL(6.2n9l  FM 
■M1ILI6.31UI  IFHHIII.l=l.NbR| 
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iiKlIt(6>^nb)  T90 

UO  '^^l  Iri«U'ii'  1)00 

NUiMiKl)  SIO 

■i'llL(bOl<:)  l>nHH<l>J)iJ:liNI)  820 

■ Kl  (Ltb.  I>(Pw»<n>J)>JiIiNI)  830 

911  COIOIIHK  840 

bO  tb  1 850 

lOU  fOHhAK  312)  860 

fOK^Al  (Mb)  865 

101  t-nKMAKtli.lU.u)  8T0 

102  rOK;-IAT(4u]2)  880 

103  F0)<HAT)2uAb)  890 

20U  FOKibAl  ( IHU<  luX>  IlHOUtPIIT  OAIA)  900 

201  FO)<MA((1h0>1uX.2bHCALCULAT£O  INSPECTION  NOHM)  910 

2U2  F0KMA()lHn.lUX.30IICALCULATL0  INSPECTION  MANHOURS)  920 

203  FOHMAT)  DlOi  lUX.2U)IAUJUSTCn  OHANCH  OATA/I  030 

204  FOHMAKlii  >3>iFm  = >Fla.2)  990 

205  FOMMATdllOilbX.PAHAUJUSTEO  BRANCH  MANHOURS)  950 

30U  FOHMAT(11)1<IuX>20A«)  980 

301  FORMAT)  DlOiluXilUHlNPUI  OAtA)  9T0 

302  FOhmadIhOi  luX.2bHCMPIRICAi.  INSPECTION  NORM)  980 

303  F0HhAT(ll<0<9HT  = • lUF  I U .2/3X>  laFIO.2  > 990 

309  FORMAT(l)lO>9llP  = • 1 UFlO  .2/5X>  lllFin.2  ) 1000 

30b  FORMAT) IHO.luX,  29HEMPIRICAL  INSPECTION  MANHOURS)  1010 

306  FORMAKIKO.  /HMCAN  r , FI  0.2>  bX.  2IHSTANDARO  DEVIATION  s >F10.2)  1020 

30)  FCRFAKlliO.  luX.llHURANCH  DATA/)  1030 

30B  FOKMArdli  • uHNPR  = <IX>I1U)  1090 

30)  FURHAOIri  > /HlKFX  = > 101 10/ (OX  > 10110)  ) 1050 

310  FORMATIIH  • uHFHR  = > IX<  1'IF10.2/)AX>10F10<2)  ) 1060 

311  FORMA)  ( Inn.  luX.lbHIlRANCH  OANHOURS)  1070 

312  FnRHA((Iiin.4>llM)))(I3>6H.J)  S > 4X  > 9F1U.2/I6X>  lOFlU  .2>  ) 1060 

313  F'UNMAr(I|in.4llP.-(l()>I3>6H>J)  = (AX  (9F10  .2/1  AX.  10F1U.2)  ) 1090 

314  FORMA)  )l«((.  I.iHnCTKORA  UEF !NIT  13)1/ ) 1100 

31b  FORMAOIN  .4llu)  1110 

ENU  1120 

bllUROUTlNC  nmM)i  1)30 

THIS  wool  INF  IS  A .IPIVER  FUR  lAM,  THE  NETWORK  ANALYSIS  MODEL  1190 

CLtCCcCCCLLCCCCCCtCCCCC  1150 

NAMO  ASbORFS-  lli«r  THE  FULLOrINU  VARIABLES  HAVE  BEEN  CALCULATED  OR  REA  1160 
IN  BY  (HE  CmLLI'iO  program  1170 

IliLM(l).P)c-')l)  values  of  time  AHU  PROBArilITY  defining  empiric  IIBO 

UISTRI‘>OTIOH  OF  NORM  HOURS  FOR  THE  INSPECTION  1190 

hNLm  (I'E  i.UMPLR  OF  values  I'l  THE  TNEM-PNEM  DISTRIBUTION  1200 

imueid.humdI)  values  of  Manhours  anu  probability  defining  emp  1210 

UISIFIBUIIO'!  OF  manhours  for  IHt  LOOK  PHASE  1220 

N«Hl  IHt  I.UIBER  UF  VALJLS  I'l  THE  TMHE-PMhE  DISTRIBUTION  1230 

IIRR  )HL  ullMnLB  OF  IIRAUCHLS  IN  THE  NETWORK  1290 

r'Hll.Jl.l'MlilI.JI  VALHE-S  OF  HOURS  AND  PHOBABILIIY  DEFINING  1250 

UISTRUUIIOU  OF  manhours  FOR  BRANCH  1 1260 

N''H(1)  IHt  l.UMPER  OF  VALUES  IN  THE  TMH-PMH  DISTRIBUTION  FOR  BRANC  1270 

LF.Fxll)  A'l  Il.TEGER  SET  .LI.  1 IF  1 IS  A LOOK  BRANCH*  AND  SET  .OT.  I2B0 

1 IS  A FIX  iikANCH  1290 

FHR(I)  nt  tSllMAII.u  HAIIU  OF  CLOCK  HOURS  TO  MANHOURS  FOR  BRANCH  1300 

Kill. LID  THL  NOMBF.HS  OF  The  HRANchES  To  be  combined  in  STEP  I 1310 
M)D  bl  t .Ea,  II  FOR  parallel  branches.  .6T.  0 FOR  SERIES  BRANCH  1320 

CLtCCtCCCtCCCCCCCcCCCCC  1330 

LOMho.)  Tilt  mi  20)  .PNEM)20l  .NNEM.  TMHE 120 1 *PMHEI  20)  .NMhE.NBR.  TMMI  150*  1390 

120) .HVH I ISO. 201 .NMHI ISO) .TSP(IS0.20)>PSP|1SO*20)*NSP|1SOI*  1350 

2FHHI  ISlil  .K  1149)  .LI  1491 . M 1 149)  • TNOR 120)  .PNORI20)  *NNOP*BARN*OCV>TMHI  1360 
3120)  .PMHll2l<l  »NMH1. FM. BARM. 0EVM.6NE. ONE. BMhc*OMHE*LRFXI  1501  13T0 

UIHlNsIOn  III2u).T2(29I. 13(20). PII2al*P2(20)*P3l20l  1300 

C CALCULAIE  SHAN  lIME  FOR  EACH  BRANCH  1390 

UO  lu  ISl.llllH  1400 

I.Ul.HUIl)  1410 

NSHI 1 IrllMHI  1 ) 1420 

00  o 0=1.111  1430 

]SPIl.J)=TMrllI.J)«FHH|I)  1440 

HSPI  l.JI=l’MHIl.J)  1450 

8 CONI  11, (IF  1460 

lU  CONIliAiF  14T0 

C TRAIiSFlH  to  200  IF  AN  EMPIRICAL  NORM  DISTRIBUTION  MAS  BEEN  INPUT  1480 

C 1490 

iFliM.r.H)  luu*10u>2UU  1500 

C CALLHLAIL  II.SHLLIION  NOHM  AND  MANHOURS  BASED  ON  INPUT  TASK  MANhOUHS  1510 

c FIND  ii.sprctlo'i  manhours  1520 

100  NI=i,iamII  I 1530 

UO  110  UI.ul  1540 

I1(II:TM||I1  .1)  1550 

PIIIUPMhII  .1)  1560 

110  CONll'iUE  1570 

UO  l2i|  1=  2*i,Rh  ISSO 

N2=i..-,ulll  1590 

DO  iiM  J=I.M2  1600 

T2IJI=t'*HlI.J)  1610 

P2IjI=PMhI1.U)  1620 

114  LONtllUE  1630 

call  CONVlPl>P2.P3.TltT2>T3*NI .N2.N3)  1640 
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IF  IIIOF'I)  122>12i!>116  l'''<0 

lib  Nl=liJ  IboO 

UO  IIH  JsliNl  1670 

I1(J)=T1(JI  1660 

^KJIlPilJ)  1690 

118  CONII'AIE  1700 

120  CONtlNUf  1710 

12i:  HMMUN.l  1720 

DO  1^4  lrl>U.4H|  1730 

|Mllin)  = l3(II  1790 

l‘Mllllll=M3ll)  1750 

129  CONIIIKIF  1760 

C«LL  MNnv(t.9lI>PMHI>llMI(l>H*HMtDEVMt  1770 

C CALLULAIL  lUSPtLTlON  NOKM  1780 

CALL  ilAM  1790 

KEIUH.l  1800 

CCCCCCCCCCCCCCCCCCCCCCC  ISIO 

OUTPUT  OF  AoOvt  calculations  CONSISTS  Of  THE  FOLLOWINO  items  ■ 1820 

INOKIIliPNOHdl.NNOKtBxHNtOEV  — ALL  FROM  NAM  1830 

T'HKlItKPHdll  values  of  manhours  ANU  PROBARlLlTr  OFFININO  1890 

CALCULATEU  OISTRIdUTION  OF  INSPECTION  MAnhOURS  1850 

UAHV.OLVN  MLAN  Arw  STANOARO  deviation  of  manhour  1860 

distribution  1870 

CLcCCCCCCCCCCCCCCCCCCCC  1880 

1890 

CALCULATE  an  LSTIMAIE  OF  INSPECTION  NORM  AND  MANHOURS  1900 

CALLULATL  FbTlVATE  OF  LOO>I  PHASE  MANHOURS  BASED  ON  INPUT  TASK  MANHOUR  1910 

^00  UO  2U2  Ult'loR  1920 

LK=1  1930 

IFTLKFXI 1 l-ll  2U9>2U9.202  1990 

202  CONflNUF  1950 

STOP  1960 

209  N1=NA.UILaI  1970 

UO  2Ub  1=1 >N1  1980 

HKIIsPMhTLK.II  1990 

TKllsTMuTLA.Il  2000 

20b  continue  2010 

N1=Laa1  2020 

UO  <lb  l:Nl«(<6t<  2030 

IF (LKFXI 1 T-l I 208«208>216  2090 

208  N2FNMIT(1|  2050 

UO  210  UsltNx  2060 

12(J1=TMh(  ItJT  2070 

P2(J|:PMh(  I«J|  2080 

210  CONIInUE  2090 

call  CONv(Pl*P2tP3tTl.T2*T3,Nl,N2»N3»  2100 

IFTNUF-  IT  222«222«212  2110 

212  N1sn3  2120 

UO  219  Jcliill  2130 

Tl(j|=T3(JI  2190 

PI(JI=P3(JI  2150 

219  LONllNUF  2160 

21b  LOTTT  INIIF  2170 

222  NPHUN3  2180 

OC  229  I=1.N>.HI  2190 

TMHi(II=i3(II  2200 

PmhiiII=p3(II  2210 

229  CUNTlNUE  2220 

c CALCULATE  Estimate  of  inspection  norm  2230 

CALL  NAM  2290 

C CALCULATE  Mean  value  OF  CaLCULATEO  LOOX  manhour  distribution  2250 

CALL  MNOv(T3fP3.N3>BARM>OEVHT  2260 

C CALLULATL  PLAN  vAliilS  OF  EMPIRICAL  NORM  AND  MANHOUR  DISTRIBUTIONS  2270 

CALL  FNnv(TNc.M,PNEMfNNEM«BNE«ONEI  2280 

CALL  l>NDv(TMTiEfPMHEfNMHE>RHHE>OMHEl  2290 

C ADJUST  SCALINO  FACTORS  2300 

C COMPAHL  F.EAN  VALUES  OF  MAIRTOIOTS  2310 

IFI«dsIPmHE-uAhM|-0.1I  2b0>290>290  2320 

290  FFrUF.HE/uAHM  2330 

UO  29u  Ulil.bR  2390 

IFTLAFXT 11-11  292>292>290  2350 

292  NlFI.FiHTl)  2360 

UO  299  JrliNl  2370 

(MHH.JIiTMHTI.JIaFM  2380 

299  continue  2390 

298  continue  2900 

60  TU  260  2910 

C COHPARL  F'EAn  values  of  norm  2920 

250  IF(AIJS(RAPN->tNE)-n.l)  27U>2bU>2bO  2930 

260  UO  2bt)  I = I>NlR  2990 

IF(lKFX(I)-1)  262>2b2>26b  2950 

262  FHH(I)=(fHHI1IaRNEI/IFMaBARNT  2960 

60  TO  260  29 To 

28b  FNNI1)=(fHRI1IabNEI/uAHN  2980 

268  continue  2990 

270  NCTUHU  2S0n 

cccccccccccccccccccccccc  2sin 
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OUTPUT  or  AdOKt  CALCULAflUMS  CONSISTS  oF  IHt  FOLLO«IN«  ITt^S 

values  Of  HOURS  AND  PMOBABILITY  DlFtNINO  AN 
AujuSTEU  OISTRIHUTIBN  OF  MANHOURS  OR  SPAN  TIME 
f JR  PKANCH  1 

FM  HAT  lb  OF  adjusted  LOOK  MANHOURS  TO  INPUT  LOOK  MANHOuMS 

FHKII)  THE  ADJUST EU  RATIO  OF  CLOCK  HOURS  TO  MANHOuRS  FOR  BRANCH  I 
LAKNiUNE  mlAn  VALULs  of  NORM  FOR  CALCULATED  AND  EMPIRICAL 
DiSTRlPUIlONS 

ULViUI^  SIAiWARO  UEVlATION  OF  NORM  FOH  CALCULATED  AND  EMPIRICAL 
UtSTRlRU! IONS 

E.akm,()Mhl  '<LAn  vALulS  OF  MANHOUMS  FOR  CALCULATED  ANd  EMPIRICAL 
UlSTfllPUIlONS 

ULVM.DMHl  SlAltOARD  DEVIATION  OF  MANHOURS  FOR  CALCULATED  AND  EMPIR 
niSTRIRUTlONS 

IMHKD.PPHKl)  values  OF  MANHOUMS  AM)  PROBABILITY  DEFlNlNO 

calculated  distribution  OF  INSPECTION  MANHOURS 
(MOmTK.PNOKTK  — from  nah 

CllCClCCCCCCCCCCCl  CcCcC 

LNU 

suukuuTInE  .iam 

NAM  IS  A (IFIWORK  AMALTSIS  MODEL 

CCLCCLCCCLCCCCCCCcCCCCC 
INPUT  hlOUIrEU  iiY  riAM  CONSISTS  OF  THE  FOLLOmINO  Items 
N)H  iHt  i.IIURlR  Of  URAUCHLS  IN  THL  TlETWORK 

ISP(l>J(.PSlMl>J)  values  Of  TIME  AND  PROHARILITT  OEFININO 

oistRirutton  of  span  time  for  branch  i 

NSPTK  I)<t  kUMRLR  Of  values  IN  THE  TSP-PSP  DISTRIBUTION  FOR  BMANC 
KIK.LII)  THL  ‘(uhhlRS  Of  THE  BRANCHES  TO  BE  COMBINED  IN  STEP  1 
M(((  sfl  .Eu.  n fOR  PARALLEL  BRANCHESt  .OT.  0 FOR  SERIES  BRANCH 

ccLCccrcccccccccccCcccc 
LORnoi.  THEMT^O)  •PNf.Mt2n)>NNEM>TMHE«20><PMHE120|iNMHC(NBR>TMHtlS0> 
I<.o(.P<H(lbUicO)<NUH(lSU)>TSPIlSO>20><PSP(150«20>>NSP(150)> 

2f  l<R( isn) .K (149) .L( 149) •M)t99) .TN0RT20) <PN0R42D) <NNOR>BARN>DEV>TMHl 
j(2U)  tt>'<)ll(20l>(IHHl  .FM. HARM, 0CVM,BNE>0NE>BMHE<DMHE>LKF)I|  150) 
UINtl.SIO..  (K(2o(.TL(20)  .TR(2U).PL«20)>PKI20)<PRI20) 

C COMblNt  upAUtHtS 
NCOl-  SNltf-1 
. oO  su  riirl...tOp 
KI'KiK(U(  ( 

L('RiL(N)  ) 

Nk:i.SI'(KuR) 

NL=i,sP(LuP( 

UO  12  (Sl.NK 
(K(1):TSP(ki<i<.I) 

PK(l)sPSf(Kc>c<.() 

12  LOIIIIIIUE 

UO  IH  (:i.NL 
(LlnrTSf  (L'ln.I) 

PL(1)=PSP(LI'R.1) 

14  LOt.dNUE 

IfC'UMIX  2U.2U.JI1 
C P .tc.  U TOh  PA.,ALLtL  BRANCHES 

2U  CALL  I-IULTIPI  .PL. PR. TK.TL.tr. NK.NL.NRI 
or  TO  32 

c M .bT.  b for  slkIls  (^ranches 

3U  CALL  COUv(PK.PL.PR.TK.TL.TR.HK.NL.NR| 

32  HSP(KBR)rMM 
UO  40  1=1. HR 
ISP(KoR.1)=Tm(I) 

PSP(K»;R.I)=Pi((I) 

40  COHdIAJE 
so  LON d DUE 

C STORE  (.OHM  UlSTRlBUTION  IN  TNOR.PNOR 
(.r.ON=NSP|KUK) 

UO  bU  Isi.NiloR 
TNUKd)  = TSPIKO  R.l) 

PNOHd)=PSP(Ke  R.l) 

60  tONTlNUF 

c calculate  nopm  mean  and  standard  deviation 

L ALL  HND V d I (UR . PNOR . HNOR . BARN. OE  V ) 

CCCtCCL^CCCCCCCCCCCCCCCCC 

C OUTPUT  LUNSISTS  OF  THE  fOLLOWlNO  ITEMS 

c i(iURd).prj0H(i)  VALUES  OF  time  anu  probabilitt  dCfinino 
C distribution  of  norm  time  fob  the  INSPECTION 

C hi.oh  (Ht  IRAAULR  Of  VALUES  IH  THE  TNOP-PNOR  DISTRIBUTION 

C I'AKi.  THL  MLAN  VALur  Of  |((OM 

L Ul  V (UL  STAHUAKU  DLVIATIOH  OF  TNOM 

CTclT  LLCCCCCCCCCCClCCCCC 
kFTijKIi 
c‘<u 

biH)HUuTll4t  Mu«.T(Pl«P?pH3»Tl«T2#T3#Nf 9N2»N3| 

C T((IS  KouTlUt  OIMPuTs  AS  TS-PS  THE  PRODUCT  OF  TI-Pl  AND  T2-R* 

uIMtl.slO(.  T1I20)  .TL'(20)  .T3(2U).PtT20l>P2«20).P3(20).TH|90).PHUB) 

C T((E  PHODUCT  Of  PI  AND  P2  iS  PLACED  IN  P3 
C PLACE  P1.T1.P2.T2  VALUES  IN  PH.TH 
N3=NlfN2 
UO  lU  1=1. N1 
DKDsTKl) 


2520 

2S30 

2S40 

2S50 

2S60 

2S70 

2580 

2590 

2600 

2610 

2620 

2630 

26*0 

2650 

2660 

2670 

2600 

2690 

2700 

2710 

2720 

2730 

2740 

2750 

2760 

2770 

2700 

2790 

2A00 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2000 

2890 

2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 

2900 

2990 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3000 

3090 

3100 

3110 

3120 

3130 

3140 

3150 

3160 

3170 

3100 

3190 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3200 

3290 

3300 

3310 

3320 

3330 

3340 

3350 

3360 

3370 

3300 

3390 
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HH(1)=P1(1)  3400 

10  CUNMI'IUE  3410 

UO  1^  1 = 1>)4<!  3420 

))i(l«til)=T2(l)  3430 

PH(if|ii)sP^(l)  3440 

12  Cnilll'AlE  3450 

C MULUPLY  P3  VALUES  UY  PKOPEN  PI  ANO  P2  VALUES  3460 

UO  1:1>N1  3470 

UO  lb  J=1>n2  3440 

U1FS)2(J)-Tl(ll  3440 

lPIAtfS(niF|-!}i£-TI  14il3«13  3500 

13  IFlulF)  I6il4il5  3510 

14  Ph(1I:PH(1I«P2(JI  3520 

bO  TO  20  3530 

lb  1P(J-1I  lbl>151.152  3540 

151  PHIIISU.U  3550 

bO  lU  20  3560 

152  Pli(l|=PH(I|«P2.J-ll  3570 

bO  lu  20  3580 

lb  LOUlUiUE  3590 

20  LOMlir.UE  3600 

00  30  1 = 1 ilia  3610 

00  20  J=1>N1  3620 

UIF=ri(JI-T2(ll  3630 

ir(AdS(nir)-5.L-7)  24|23<23  3640 

23  IFluiri  2t>24i25  3650 

24  PH(1»M  )=PH(  J-INDtPKjl  3660 

bO  )0  30  3670 

25  IFIJ-ll  251>251i252  3680 

251  PH(l*bl)=0.0  3690 

bO  10  30  3700 

252  Pfl(l*lll)=PH(l*01)*Pl(J-ll  3710 

bO  10  30  3720 

2b  LOIlriNUE  3730 

30  CONiiliUE  3740 

C AHRANbE  THiPH  liV  OROER  OF  INCREASlIM  TH  3750 

CALL  0Rn(TH>PH,N3)  3760 

C LLIMINAIC  OOPLlCATi:  TH-PH  PAIRS  3770 

32  uO  <10  1 = 2iI<3  3780 

lK(*b5(YM<ll-7H(l-lll-5.t-7l  34.34>40  3790 

34  K=l«l  3800 

00  3b  J=mNJ  3810 

imj-ll=|H»J)  3820 

Ph»j-1)ikh»JI  3830 

3b  CONiliiUE  3840 

'0^53*1  3850 

bO  10  32  ^060 

40  cniidi^E  3870 

C ELIMINAIL  UiiNLCbSSAKY  POINTS  3880 

42  00  90  1:2>NJ  3890 

lF»n(ii»Piilll-Pi|»l-lll-5.E-71  44>44.4A  3900 

44  ASlll  3910 

III'  90  JSMld  3920 

|l'»J-ll  = |lt(ul  3930 

PHIJ-llspmJI  3940 

46  bCNTltiUF  3950 

N3=ll3-1  3960 

bO  10  42  3970 

48  COIITIUUE  3980 

C REDUCE  VECTOR  512E5  3990 

CALL  KCPbt  IU»PHtlOI  “OOO 

C PLACE  Pll  VALUES  IN  P3i  AND  TM  VALUES  IN  T3  4010 

UO  00  1=1 «N3  4020 

P3tll=PNlll  4030 

I3(l)=rH|lt  4040 

50  tONIlNUF  lOSO 

KEIUKN  90*0 

tIU  4070 

SUUHUUTINE  ( CNV(Pl*P2tP3»Tl»T2fT3»NltN2fM3l  4100 

C THIS  routine  OUIPuTS  as  T3-P3  THE  CONVOLUTION  OF  Tl*Pl  ANO  T2-P2  4110 

UlHtNSlON  Pll20)>P2l2aitP3(20l tTl(20l>T2l20l>T3l20l'POt(20lt  4120 

1PU2I2U)  •PPOl‘(2a>20)  •TT(20>20ltTU(*00l  tPROCIAOOl  4130 

EOUIVALEnCE  ITUdlilTIlilll  9132 

LOUlVALENCty  (PflOEIlltPROOIltlll  9135 

C CALtULAIt  PISCHLTE  PROBABILITY  OENSITV  FUNCTION  9140 

PIJlll)=Pl(ll  9150 

P02(ll=P2lll  9160 

UO  2 1=2. Nl  9170 

PIIHll=Pllll-PHl-ll  9180 

2 LONIINUE  9190 

00  3 1=2. N2  9200 

PU2(1I=P2(1)-P2II>1I  9210 

3 CONIINUE  9220 

C CALCULATE  ElENLI.TS  OF  MATRICES  9230 

00  2U  1=1. Nl  *290 

UO  lu  JS1.N2  9250 

TT(1.J)=I1I1IAT2(J)  9260 

PR0u(l.J)=PUUll»P02IJI  92T0 

10  CONTINUE  9280 

20  CONTI lAlE  *200 

N3:i.l*N2  9300 
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C AHRAN«t  eLEMCNTb  IN  ORDER  OF  INCRCAStNR  TTItl  A310 

UO  j:i«n;  AJ20 

UO  23  Ul.NI  «330 

K = 1*M»(J-1)  R3R0 

rijiK)=rTii>>Ji  «3&o 

)MOtlK)SFRUiJ(I(JI  «360 

23  CONTINUE  *370 

2*  continue  «3S0 

call  ORPlTI  hRoDiNSI  *390 

C ELIMInail  OuPLIuATE  values  in  tt  ««oo 

32  UO  4U  I=C>N3  ««10 

IFIausiTuI II-TU(I-1I l-b.E-TI  3«i3«««0  ««20 

3*  T'f<Ot(I-II=T’l-oE(I-II*HROE(I)  ««30 

bO  TO  «2  «««0 

«U  CONTINUE  ««S0 

bO  lU  Mb  ««b0 

42  K=I*I  ««70 

UO  44  J:K>N3  **00 

TUIJ-IIS(UIJI  ««90 

HHOLIJ-II=H'<bE(JI  *300 

44  CONTINUE  «5I0 

N3:i.3-1  «&20 

bii  lu  32  *530 

C CALCULAII  rilNlllATlVL  l■NUItA|lILITT  *3*0 

4(i  UO  ;tU  1 = 2«N3  *<3A0 

f'llUT.  IlIsl'NOI  I Ilfl'ROtl  I-ll  *0*0 

bU  UONIINUC  *070 

C FLIHIN4IL  UNNLClSSAHT  POINTS  *0A0 

(^=^  *090 

bU  UO  o2  I = N<N.3  *bOn 

4=1  «blO 

IFlAUSIPKOtlII-PHOeil*III-S.e-7l  64>b«>62  *b20 

62  CONTIfAJF  **30 

bO  TO  70  4640 

64  N3=t<3-1  46S0 

1F(ii>n3I  6L<t>h>7u  4660 

66  00  67  J:k<I<3  4670 

PHot(JlsPRb<.»J*II  4660 

TUI  JISTIII  J«U  4690 

6T  continue  4700 

Nsk  4710 

bO  TO  60  4720 

C RtOUCt  vtCToR  sues  IF  NECESSARY  4730 

70  CALL  REOCI TT«PR00«N3t  4740 

60  uO  US  I:l>N3  4750 

P3IIUPRUCIII  4760 

T3II>sTUII)  4770 

05  CONTITKTE  4700 

HETUhN  4790 

ENU  4000 

SUbHOUTiNE  0.<0lTT.PR00iN3»  4790 

C THIS  RUUTINl  ATthANGES  TT.pROO  PAIRS  IN  INCREASINO  ORDER  OP  TT  4000 

UIHeNsION  I ri4il)fPR0U(40)  4S10 

NSN3-I  4020 

UO  27  I:i>N  *030 

K=I61  40*0 

UO  26  J=K«N3  *000 

IFITTIII-TTUM  26>26f25  4060 

25  HOLUSTTII)  4070 

ITIIlsTTlOl  4000 

TTIJchOlI'  4090 

HOLUsPROuU)  4900 

PR0U(II:PKUUIJ|  4910 

PRUuIJIshOLU  4920 

26  CONTIIOIE  4930 

27  CONIINur  4940 

KETUKN  4950 

ENU  4960 

SUUhuUTInL  ITt.DC(TT>PHOOfN3)  4970 

C THIS  RUUTINl  NEuUCES  VECTORS  TTtPROO  TO  ACCEPTABLE  SUES  4900 

UIMLNSIOn  TT(<IOI>PROU(40)  4990 

7U  IFIN3>20)  HOtOUtTI  5000 

71  SNk:)TI3)*T)II)  5010 

iniU':2  5020 

UO  7*  I:*>iT3  5030 

rSUN:|T(I»-T»II-2»  5040 

IFIISUM-SURI  72>74>74  SOSO 

72  SUm=ISUM  5060 

IORrlI-I  5070 

74  CONTlNIir  50OO 

k:N3-1  5090 

UO  lo  UirRRtK  5100 

»TI I »=TT| 1*1 • 5110 

PROul  ()=HRUI>II*I)  5120 

7b  cuNiiniir  0130 

N3=6  5140 

bO  lu  to  5150 

bU  KKTUhk  5160 

LNu  6170 

SUUHuuTInI  >'NDV(T«P«N>bAHT>SDCV)  - 5100 


C this  HUUTIM.  C*tCUL*TCS  THE  AND  STANOMO  DEVIATION  OF  T 

UlMtNSlOH  TUOItPIZUI 

uahistiiiapih 

UO  10  |=k>N 

bAHTSbAP1*Tlll*|PIIIH>ll-in 
10  CONTirAME 

S0Ev=Plll«ITIll-dARTI**2 
00  ^0  1=2 iN 

Sr)EV=S0Cv*IPIl)-Pll*ll>*IT(I)-nARTI**2 
20  oOHliriUE 

SOtV=SORI ISOtVI 

HETUhN 

LIHJ 

/•  KbUUlKEO  FLACC  FORTRAN  BCD  SOURCE  WFORC  THIS  CARO 

//LKEO.STSHRINI  OU  SPACe>tCTI.«ti>lll 
//LKEO.STSIN  bO  DATA >SPACC>C TRK>t 5>S11 

/• 

//CHG.FTOOFOOI  00  OATA.SPACOCCTLK  t>l  1] 

V9« 

sample  case  1 

11  S S 


Us 

3 s 

9. 

6. 

0. 

.1 

.5 

sO 

1. 

Os 

4. 

9. 

6. 

Os 

.1 

.5 

sS 

1. 

U 2 

0 

2 

0 2 0 

2 

0 

2 0 

is 

1. 

1. 

Is 

.5 

s3J 

1. 

1. 

2 6 

2 

b 

2 9 2 

4 

2 

9 2 

Os 

.5 

Us 

1. 

Us 

• 2 

.9 

s6 

.8 

Us 

• 2 

.9 

sb 

.8 

Us 

1. 

Os 

1. 

Us 

.2 

.5 

.9 

1.9 

Os 

.2 

.9 

s6 

• 0 

6s 

1.2 

Os 

1. 

Us 

.1 

.2 

.9 

Os 

• 2 

.9 

1. 

Os 

• 0 

Us 

1. 

0* 

• S 

.7 

.9 

Us 

.2 

sO 

1. 

Os 

1.5 

Us 

1. 

Us 

• 3 

*0 

.5 

Os 

.9 

«e 

1. 

Os 

• 0 

Us 

1. 

T e 1 
2 T 1 
2 3 0 
12  1 
5 6 1 
910  1 
5 9 0 
15  1 
111  1 

sample  case  2 


22222222 
0.  1.5 

0.  1. 

0.  4. 

0.  1. 

0.  5. 

0.  1. 

0.  S. 

W.  1. 

0.  0. 

0.  1. 

0.  4.5 

0.  1. 

0>  2. 

0.  1. 

0.  7, 

0.  1. 

2 3 0 
9 5 0 
2 9 1 
2 7 0 
1 2 1 
16  1 
ISO 
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6.15  MANHOUR  AND  NORM  DATA  - TASK  7 


6.15.1  SUM  UNSCHEDULED  MAINTENANCE  ACTIONS 


//C9«97K  JOB 
//C9B97K  tXCC 


01  •:  e.  WANS  liP«TY>0a»T7n(UN>H0LD 
P96i>&L  • T I He>02i  ACCT70U323007 
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// 

I»F1.J*FI.K*FI«L*FI.M*F1 

•NAFltOAFl.PAFltOAFltRAFl.SAFll 

Til  S 

//CHGb 

TU22 

DD  DISP>C>PASS).UNIT>CA*FS«2>0EFERltOSN>AE.9«9T«60> 

CT22/ZS  1 

// 

VUL>SER>C*FsiA*FSiB*FS>C*FS>0«FStE*F6,F«FS«S*FStHAFSi 

CT22  2 

// 

l*F3iJ*fSiK«FS<L*FS>M«FS<N«FS«0*FStP*FStO*FS>H*FS>S*FS] 

T22  S 

//CHG. 

INPUT  OU  •.bPACLKCYLtCltlll 

1«40  COS 

00000 

COMBINE  COMPILE 

6.  MAN*. 

C9a970 

01U40 

OATL-HPITTtN.  27  JLY  72. 

090970 

0IU50 

REMARKS. 

090970 

oauoo 

envikonmcnt  division. 

090970 

U2UI0 

coij-iouhaiion  SLCTIUN. 

090970 

U2U2U 

SUUHCE-COMHuTliR.  IUM-A6U. 

090970 

U2U3U 

OUjtCT'COHPuIbK.  lltM-AbU. 

090970 

U2100 

INHUT-OUTPUI  section. 

090970 

U2110 

FIlE-CONThOl. 

090970 

U2120 

SELLCT  IN-FILE-OB 

ASSIGN  TO  UT-S-TU12 

b90970 

U213U 

RtScRVE  1 alternate  area. 

090970 

U214U 

SELLCT  IN-FILE- ISC 

ASSIGN  TO  DA-S-DTOl 

090970 

U2150 

rlslrve  I alternate  area. 

090970 

021tU 

select  out«oata 

ASSIGN  TO  UT-S-TU22 

090970 

02  i7U 

klslRve  1 alternate  area. 

090970 

lOUOO 

OAIA  DIVISION, 

090970 

lOUlO 

fill  section. 

090970 

loiog 

fo 

IN-F  1 Lt-Du 

090970 

10130 

BLOlK  contains  ho  records 

090970 

10140 

RtCuHU  CONTAINS  70 

CHARACTERS 

090970 

1015U 

LABlL  HtCORUS  AKE  omitted 

090970 

lOlOO 

DATA  HcCOHDS  ARt  IN-REC-O-Bi 

090970 

1020U 

01 

in-kec-u-0  sync. 

090970 

10210 

02  filler 

picture  AC 701. 

090970 

1130U 

fO 

|N-FlLt-lsC 

090970 

1132U 

RECORUli.G  mode  is  F 

090970 

11330 

block  contains  20  RECORDS 

090970 

1134U 

recoru  contains  ao 

CHARACTERS 

090970 

11 350 

LABlL  MLCOROS  AhE  STANDARD 

090970 

1130U 

DAT*  HtcOROS  ARE  IN-REC-ISC. 

090970 

1140U 

01 

IN-RtC-lSC  SYNC. 

090970 

1141U 

02  filler 

PICTURE  XIGOI, 

090970 

1210U 

FO 

out-da  I rt 

090970 

12120 

RECOHulNG  MODE  IS  F 

090970 

12130 

tiLOcK  Contains  t>o  records 

090970 

12140 

RECORU  CONTAINS  SU 

CHARACTERS 

090970 

121bu 

LABlL  RtCORUS  ARE  OMITTLO 

090970 

12160 

UATa  records  ARt  TAPE-FILE. 

090970 

12160 

01 

tapl-file  sync 

PICTURE  XCSOl. 

090970 

30UU0 

wohking-sionace  sectidn. 

090970 

30U10 

7f 

ISChRONmL  SYNC 

picture  X, 

090970 

30U2U 

77 

kDC-Tlkh  sync 

picture  X. 

090970 

30040 

77 

•LCk-TLKR  stnc 

picture  999. 

090970 

30050 

77 

ant  stnc  computational 

PICTURE  S999. 

090970 

30060 

77 

CUR-SN 

picture  xcal  value  space. 

090970 

30U70 

77 

r-vlEk 

PICTURE  S999  computational. 

090970 

30060 

77 

r-FlT-mnS 

picture  S9t«>J  computational. 

090970 

30100 

77 

rR>-*uc  SYNC 

picture  9999  VALUE  ZERO. 

090970 

30170 

77 

CNT  STNC  computational 

picture  S999. 

090970 

30400 

7/ 

isc-tlmp  sync 

picture  xcal  value  space. 

C909T0 

30410 

7f 

prev-tlsted-sn  sync 

picture  xcal  VALUE  SPACE. 

090970 

30420 

7/ 

ISC-Flao  sync 

picture  X VALUE  SPACE. 

090970 

30  4 30 

If 

MIN-ISC-WIFK  sync  computational  picture  SV99  VALUE  <999i 

090070 

30000 

7f 

TIMr- viiv.  SYNC 

PICTURE  XCBl. 

000970 

30510 

7f 

temr-cc.-no  sync 

PICTURE  S99  computational. 

090970 

30520 

77 

NO-MDC-COLS  COMPUTATIONAL 

picture  S999  STNC  VALUE  <tl. 

090970 

30530 

77 

bF  COMPUTATIONAL 

picture  S999  SYNC  VALUE  CIS. 

C9B970 

30540 

77 

ONE  SY  4C 

picture  X VALUE  III. 

090970 

30550 

77 

TVO  SYNC 

PICTURE  X VALUE  III. 

090970 

30560 

77 

POS-WUC  COMPUTATIONAL 

picture  S999. 

090970 

30570 

77 

ISC-TITLE-FLAO  SYNC 

picture  X. 

090970 

30560 

77 

Nl-TITLE-FLAG  SYNC 

PICTURE  X. 

090970  1 

30590 

77 

Nl-LINf-FLAv  SYNC 

PICTURE  X. 

090970 

30600 

77 

isc-linl-flao  sync 

PICTURE  X. 

090970 

30610 

77 

PAOl-NUmBER-ISC 

picture  S99  SYNC  VALUE  ZERO. 

090970 

10615 

77 

pagl-number-ni 

picture  S99  SYNC  VALUE  ZERO. 

090970 

30620 

77 

NO-HEC-PRINT-ISC 

PICTURE  9C7]  value  ZERO. 

090970 

30630 

77 

no-hec-print-ni 

PICTURE  9171  value  ZERO. 

090970 

r 


30b^J 

77 

NO^EC-TAPC 

picture  9CT]  VALUE  {CRO. 

C989T0 

30650 

77 

NO- 

kec-tape-ti 

picture  9CT]  VALUE  2ER0. 

C9S9T0 

30660 

77 

LlNt* CriT-ISC  computational 

picture  S999  SYNC. 

C98970 

30670 

77 

LINL-CNT-NI  computational 

picture  S999  sync. 

C98970 

306S0 

77 

LINt-P.LE  rOMPUTATIONAL 

picture  S999  VALUE  <60  SYNc. 

C9R970 

30682 

77 

SUM 

-INDEX  LCMPUTATIONAL 

PICTURE  S999  value  ZERO  SYNC. 

C989T0 

30b8« 

77 

TEMP-IUUEX  COMPUTATIONAL 

picture  S999  VALUE  ZERO  SYNC. 

C98970 

30686 

77 

NUMeEM'bOWUC  COMPUTATIONAL 

picture  S999  VALUE  ZERO  SYNC. 

C98970 

3 0686 

77 

TWO 

-DIOlT-cOL  COMPUTATIONAL 

picture  S999  VALUE  ZERO  SYNC. 

C98970 

3I0I0 

01 

NO- 

ISC  SYNC. 

C98970 

31020 

02 

filler 

picture  XX. 

C989T0 

31030 

02 

NO-ISC-AC 

picture  S999. 

C98970 

31U40 

02 

FILLER 

PICTURE  XCTSJ. 

C98970 

31U50 

01 

ISC 

-A-C  SYNC. 

C98970 

31060 

02 

FILLER 

PICTURE  XX. 

C98970 

31070 

02 

ISC-TN 

PICTURE  XC81. 

C9S9T0 

31U80 

02 

filler 

PICTURE  XX. 

C98970 

310q0 

02 

ISC-WK 

PICTURE  999. 

C989T0 

31100 

02 

filler 

PICTURE  XC6S1. 

C98970 

31200 

01 

FILlCH  sync. 

C98970 

31206 

02 

FILLER  OCCURS  36  TIMES. 

C9e970 

31210 

03  ISC-AC-TN 

PICTURE  XC8]. 

C989T0 

31220 

03  ISC-AC-NK  computational  PICTURE  S9««. 

C989T0 

31300 

01 

INPUT-Oo  SYNC. 

.C989T0 

31310 

02 

FILLER 

PICTURE  XC5]. 

C98970 

31320 

02 

SEf  1Al-N0 

PICTURE  XC81. 

C98970 

31330 

02 

WEEK 

picture  999. 

C9S9T0 

31340 

02 

WUC 

picture  XC5]. 

C9S9T0 

31350 

02 

filler  REOCFINES  DUC. 

C989T0 

31360 

03  4UC-2 

PICTURE  XX. 

C9S9T0 

31370 

03  FILLER 

PICTURE  XXX. 

C98970 

31380 

02 

woe 

PICTURE  X. 

C989T0 

31390 

02 

NML 

PICTURE  XXX. 

C9S9T0 

31400 

02 

MA 

PICTURE  999. 

C98970 

31410 

02 

FILLER 

PICTURE  XC201. 

C98970 

31420 

02 

lUENT 

PICTURE  X. 

C989T0 

31430 

02  filler 

PICTURE  Xt4J. 

C989T0 

31432 

02  FLT-HRS 

PICTURE  S9t6J. 

C989T0 

31434 

02  filler 

PICTURE  XtllJ. 

C98970 

40000 

01 

NEC 

-00’  SYNC. 

C969T0 

40010 

OS 

isochronal 

PICTURE  X. 

C9S9T0 

40020 

OS 

filler 

PICTURE  XtllJ  VALOe 

C98970 

40030 

: 11. 

098970 

40040 

OS 

coK-wuc 

PICTURE  XeSJ. 

C98970 

40050 

OS 

filler 

PICTURE  X VALUE  SPACE. 

C98970 

40060 

OS 

cuh-hmc 

PICTURE  XXX. 

C98970 

40070 

OS 

FI  .LER 

PICTURE  X VALUE  SPACE. 

C98970 

40080 

OS 

NOH* 

PICTURE  9t7JV9. 

C98970 

40090 

OS 

filler 

PICTURE  X VALUE  SPACE. 

C98970 

40100 

OS 

MA  -ItPO 

PICTURE  9t7JV9. 

C98970 

40I1U 

OS 

filler 

PICTURE  X VALUE  SPACE. 

C98970 

40120 

OS 

MA-HE 

PICTURE  9t7JV9. 

C9S970 

40130 

OS 

FI.LEr 

PICTURE  XX  value  1 «1. 

C98970 

40630 

01 

table-. 6-»UC-VALueS  SYNC. 

C98970 

41092 

02 

S(>-«UC  OCCUNS  IW  TIMES 

PICTURE  XeSJ. 

C98970 

41093 

02 

COL-NO  OCCUKS  TIMES 

PICTURE  S99  computational. 

C98970 

41200 

01 

TAPE-OUT-ISC  SYNC. 

C98970 

41280 

02 

LIS1-HMC-ISC. 

C98970 

41492 

03  HMC-ISC  OCCURS  21  TIMES  PICTURE  S9C87. 

098970 

41500 

02 

HML-FrEO-TOTAL-ISC 

PICTURE  S9t6J. 

C98970 

41600 

01 

TAPE-OUI-NI  sync. 

C98970 

41680 

02 

LIst-hmc-ni. 

C909T0 

41892 

03  HMC-NI  OCCURS  21  TIMES  PICTURE  S9t8l. 

C98970 

41900 

02 

hm;-freo-total-ni 

PICTURE  S9t6J. 

C98970 

42600 

01 

nine  sync. 

C98970 

42610 

02 

FILLER 

picture  xtsoj  value 

C98970 

42620 

» 999999999999999999999999 9999999999999494«9004W9»  1 . 

C909T0 

43000 

01 

table-yoc-pos  sync. 

C989T0 

43260 

03  WOC-LIST 

PICTURE  X OCCURS  21  TIMES. 

C909T0 

45000 

01 

Filler  sync. 

C98970 

45010 

OS 

WOC-INPUT. 

C98970 

45020 

10  WDC-TITlE-INPUT 

picture  XtSJ. 

C98970 

45030 

10  filler 

PICTURE  XtTS). 

C909T0 

45040 

OS 

FILLER  REOCFINES  WOC-iNPUT. 

C98970 

45050 

10  FILLER 

PICTURE  Xt4J. 

C98970 

45060 

10  WDC-IN 

PICTURE  X. 

C 98970 

45U70 

10  FILLER 

PICTURE  XCTSJ. 

C98970 

45100 

01 

Number-card  sync. 

C909T0 

45110 

OS 

number- ITEMS 

PICTURE  999. 

C98970 

45120 

OS 

FILLER 

PICTURE  XX. 

C98970 

45130 

OS 

INPUT-SO-COOC 

PICTURE  XtSJ. 

C909T0 

45140 

OS 

FILLER 

PICTURE  XtTBJ. 

C909TO 

f5200 

«1 

filler  sync. 

C909T0 

45210 

OS 

SUM-WOC-COL 

picture  S999  OCCUNS  10  TIMES. 

C98970 

80000 

MOceOUHC  JIVISION* 

C909T0 
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50U10 
50U20 
!>OU<lO 
SOO<)S 
51000 
51005 
51010 
51020 
51030 
510<I0 
51050 
51060 
51100 
51110 
51150 
51200 
51210 
512<(0 
51250 
51260 
51300 
51310 
51320 
51330 
51340 
51350 
51360 
513T0 
51380 
51340 
51400 
51440 
51500 
51510 
51520 
51530 
•51550 
51560 
51540 
52000 
52010 
52020 
52030 
52040 
52050 
52060 
52UT0 
52080 
52100 
52110 
52190 
52200 
52300 
52310 
52320 
52330 
52340 
52350 
52360 
523T0 
52380 
52340 
52400 
52410 
52420 
52430 
52440 
52450 
52520 
52530 
52580 
52540 
52600 
52  TOO 
52T10 
52720 
52T30 
52T40 
52750 
52760 
527T0 
52T80 
V740 
32800 
52010 
52820 


OPEN-FIlES. 

OPEN  INPUT  IN-FlLfDn<  IN-FILE-ISCt  OUTPUT  0UT*08TA. 
PERFOHM  REAU>ISC-A-C  THRU  ENO-RIAC. 
perform  READ-IN-TITLE-DATA  TWIU  CNDHllTO. 
perform  ReSET-HMc-LINE-NI  thru  ENCHTESET-NI. 

PERFORM  ReSET-HHc-LINE-ISC  THRU  CNO-RESET^ISC. 

reao-nso-ojc. 

READ  IN-FILE-Oe  INTO  INPUT-08» 

AT  end  60  TO  CLOSE'TABLC. 

IF  lDL>4r  IS  NOT  equal  TO  141  60  TO  REAO0NS6-WUC. 

PERFOH4  PROC-WOC  THRU  ENO-PROC-WDC. 

IF  POS-«Dc  IS  EQUAL  TO  ZERO  00  TO  REAa-NS6-«UC> 

NEXT-WUL. 

HOVL  5JC  TO  CUR-MUC. 

ADD  1 TO  NO-WUC. 

NEXT-HMC. 

MOVE  H.'C  TO  CUR-HMC. 

PERFOR4  CHECK- 15CHR0NAL  THRU  ENO-CI. 

IF  ISCHKONAL  IS  EQUAL  TO  ONE  PERFORM  ADO-ISC« 

ELSE  perform  ADO-Nl. 

read-data. 

REAu  ;n-file-db  into  input -De> 

AT  end  60  TO  CLOSC-TASLE* 

IF  ICLNT  IS  NOT  EQUAL  TO  141  60  TO  REAO-OATA. 

PEPFOt-H  PROC-VOC  THRU  ENO-PfiOC-WDC. 

IF  P05-»0C  IS  equal  to  zero  00  TO  REAO-OATA. 

PERFORM  CHELK-15CHR0NAL  THRU  ENO-CI. 

IF  muc  is  not  equal  to  CUR-VUC  60  TO  OUTPUT-TABLE-CNO. 

IF  HMl  IS  NOT  EQUAL  TO  CUR-HMC  60  TO  OUTPUT-LINC. 

IF  ISCHKONAL  IS  EQUAL  TO  ONE  PERFORM  AOO-ISC. 

ELSE  perform  AOO-NI. 

60  TO  ItAO-DATA, 

RfcSET-HHC-‘.INE-NI. 

move  zeho  to  CNT. 

RfcSET-HMC-i.INE-1. 

■ ADD  1 TO  CNT» 

MOVE  ZfcHO  TO  HMC-Nl  tCNTJ. 

IF  CNi  IS  LESS  THAN  NO-NOC-CXS  60  TO  RESCT-HMCM.IlC-1. 
end-reset.  Nl.  EXIT.  - 

PROC-VDt. 

MOVE  ZEHO  TO  POS-KDC. 

MOVE  fEkO  to  CNT. 

PROC-VDC-^ . 

ADD  1 10  CNT. 

MOVE  HOC-LIST  CCNIJ  TO  VOC-TEMP. 

IF  WDI  IS  LESS  THAN  WDC-TEMP  60  TO  ENO-PROC-WC, 

IF  »Cl  IS  EQUAL  TO  WDC-TEMP  00  TO  PROC-WDC-C. 

IF  tNT  IS  LESS  THAN  NO-WDC-COLS  00  TO  PROC-WOC*A. 
PROC-WDC-L. 

MOVE  cNT  TO  POS-WDC. 

ENU-PROC-wOC.  EXIT. 

OUTPUT-LINE-OF-NI-DATA. 

MOVE  ^£K0  TO  hmc-freo-total-ni. 

MOVE  ZEHO  TO  CNI. 

sum-ni-col. 

ADO  1 10  cnt. 

MOVE  ‘^UN-wdC-COL  CCNTJ  to  temp- INDEX. 

ADO  HMC-Nl  iTEMp-INOExl  TO  HMC-FREO-TOTAL-NI . 

IF  CNi  IS  LESS  Than  SUM-INOEX  00  TO  SUM-NI-COL. 

MOVE  'WO  TO  isochronal. 

MOVE  COL-NO  CIJ  TO  TEMP-INDEX, 

MOVE  HMC-Nl  CTEMP-INOEXI  TO  MA-MPO, 

MOVE  lOL-NO  C2J  TO  TEMP-INOCX, 

MOVE  PMC-Nl  C temp-index J TO  MA-PC, 

Move  hmc-freo-total-ni  to  Numa. 

IF  MA-HPO  IS  equal  to  zero  and 
MA-^E  IS  equal  to  zero  and 

NUMA  15  equal  to  zero  60  TO  END-OUTPUT-LINE-NI-OATA. 
write  tape-file  from  rec-out. 

ADD  1 TO  NOtREC-TAPE. 

PERFORM  RESET-HMC-LINE-NI  thru  ENO-RESCT-NI, 
ENo-OUTPUT-LlNE-Nl-OATA,  EXIT. 

output-lk.e-of-  1 sc-uA  r A . 

MOVE  ZEHO  to  HMC-FREO-TOTAL-ISC. 

MOVE  ZERO  TO  CNT. 

SUM-ISC-CUL. 

ADD  1 ro  CNT. 

MOVE  SUM-WOC-COL  CCNTJ  TO  TEMP-INOCX. 

ADO  HMC-lsC  t temp-index J TO  hmc-frcq-total-isc, 

IF  cNi  IS  LESS  THAN  SUM-INDEX  60  TO  SUM-ISC-COL, 

MOVE  ONE  TO  ISOCHRONAL. 
move  COL-NO  tlJ  TO  temp-index, 

MOVE  HMC-ISC  CTEMP-INOEXJ  TO  MA-HPO. 

move  lOl-no  12J  to  temp-index, 

MOVE  HMC-ISC  ( temp-index  J TO  •'l-Pt, 

MOVE  HMC-FREO-TOTAL-lSC  To  fN  MA, 


C98970 
C96970 
C989T0 
C98970 
C989T0 
C989T0 
C9B9T0 
C98970 
C989T0 
C9B9T0 
C989T0 
C989T0 
C989T0 
C989T0 
C989T0 
C989T0 
C98470 
C96970 
C98470 
C98970 
C989T0 
C989T0 
C96970 
C489T0 
C484T0 
C989T0 
C98970 
C989T0 
C489T0 
C98970 
C989T0 
C98470 
C969T0 
C489T0 
C98970 
C98970 
C98970 
C989T0 
C98970 
C98970 
C989T0 
C96970 
C989T0 
C 98970 
C989T0 
C98470 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C98970 
C9B970 
C9B970 
C98970 
C9B970 
C9B970 
C9B970 
C9B970 
C9B970 
C9B970 
C9B970 
C9B970 
C9B970 
C9B970 
C9B970 
C9B970 
C9B970 
C9B970 
€98970 
C98970 
C9B970 
C98970 
C98970 
C98970 
C98970 
C98970 
C9B970 
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52030  IF  MA-HPO  IS  COUAL  TO  ZERO  ANO 

52040  MA-PE  IS  EQUAL  TO  ZERO  ANO 

52050  NUHA  IS  EQUAL  TO  ZERO  SO  TO  EM>-OUTPUT-LINE-1SC«OATA. 

52420  mRIIE  tape-file  FROM  REC-OUT. 

52930  AOO  1 TO  NO-REC-TAPE. 

52900  PERFORM  RESET-HMC-LINE-ISC  TMtU  ENO-RESCT- ISC  t 

52990  ENO-OUTPUT-LINE-ISC-OATA.  EXIT, 

53000  OUTPUT- I AOLL-ENO. 

53040  perform  OUTPUT-LINE-OF-NI-OATA  THRU  END-OUTPUT'LINE-NIHIATA. 

53300  PERFORM  OUTPUT-LINE-OF-tSC-OATA  THRU 

53310  ENO-OUTPUT-LlNE-lSC-OATA. 

53481  CHECK-IU, 

53405  IF  lOENI  IS  equal  TO  191  M TO  CLOSE-PILES. 

53490  GO  TO  1<EXT-RIIC. 

53500  CLOSE-TABLL. 

53510  MOVE  .4:  TO  lOENT. 

53520  GO  TO  OUTPUT-TAGLE-ENO. 

53TOO  output-line, 

53T40  perform  OUTPUT-LINE-OF-NI-OATA  THRU  ENl>-OUTPVTtINE-NIH>ATA. 

53040  perform  output-line-of-isc-oata  thru 

53050  ENO-OUTPUT-LINE-ISC-OATA. 

53090  GO  TO  NEXT-HMC. 

53400  RESET-HMC-eINE-ISC. 

53410  MOVE  ZERO  TO  CNT. 

53420  RESET-HMC-LINe-2. 

53930  AOO  I TO  CNT. 

53440  MOVE  .:CRO  TO  HMC-ISC  CCNT1. 

53950  IF  CN'  IS  LESS  THAN  NO-HOC-COLS  QO  TO  RESET^MC-LI*C-t. 

53490  ENO-RESET-ISC.  EXIT. 

54000  AOO-NI. 

54UIU  MOVE  one  to  NI-LINE-FLAG. 

54020  AOO  MA  TO  HMC-NI  CPQS-MOCl. 

54100  AOO-ISC. 

54110  MOVE  ONE  TO  ISC-LINE-FLAO. 

54120  AOO  ma  to  HHC-ISC  CPOS-HOC]. 

55000  close-files. 

55010  COMPUTE  CNT  > NO-MEC-TAPE  • NO-REC-TAPE  / BF  • BF. 

55020  IF  CN'  IS  EQUAL  TO  ZERO  00  TO  CF-3. 

55U30  CF-2. 

55040  VRItE  TaPE-FILE  FROM  NINE, 

55050  AOO  1 TO  CNT'. 

55060  IF  CNT  IS  LESS  THAN  BF  GO  TO  CF-2. 

55140  CF-3. 

55160  OISPLAT  : NO  TAPE  RECS  I NO-REC-TAPE  UPON  CONSOLE. 

55165  DISPLAY  I NO  OF  M.U.C.  t NO-RUC  UPON  CONSOLE. 

55190  DISPLAY  I ENO  OF  ^K>B  C989T  i UPON  CONSOLE. 

55200  CLOSE  IN-FILE-OU. 

55220  OuT-OATA# 

55235  IN-fILE-ISC  WITH  LOCK. 

55290  GOPaCR. 

TOOOO  REAO-ISL-A-C. 

TOOlO  READ  'H-FILE-ISC  INTO  NO-ISC  AT  END  GO  TO  END-RlAC. 

T0020  MOVE  ZERO  TO  RNT, 

T0U30  RIAC. 

T0040  AOO  I TO  KNT. 

T0U50  REAu  IN-FILE-ISC  INTO  ISC-A-C  AT  END  GO  TO  END-RIAC. 

T0060  MOVE  ISC-TN  TO  ISC-AC-TN  CKNTl. 

TOOTO  MOVE  ISC-HK  to  ISC-AC-HK  CKNTJ. 

TOUTS  IF  IS:-«K  IS  LESS  THAN  MIN-ISC-WEEK  MOVE  ISC-WK 

T0UT6  TO  MIN-ISC-WEER. 

TOUaO  IF  rNI  is  less  than  NO-ISC-AC  GO  TO  RIAC. 

T0U90  ENO-NIAC.  EXIT. 

T0200  CHtCK-ISCiRONAL. 

T0210  IF  SCRIaL-NO  IS  NOT  EQUAL  TO  PREV-TESTEO-SN  GO  TO  CHECK-I-B. 

T0220  IF  iSv-FLAG  IS  EQUAL  TO  TWO  GO  TO  ENO-Cl. 

70230  IF  IS  HRONAL  IS  EQUAL  TO  ONE  ANO  WEEK  IS  NOT  LESS  THAN 

T0232  MIN-ISC-WEEK.  THEN  BO  TO  ENO-Cl. 

T024U  CHECK-I-2. 

T0250  MOVE  IHO  TO  ISCHRONAL. 

T0260  IF  ■E-.K  IS  LESS  THAN  MIN-ISC-WEEK  GO  TO  END-CI. 

TOZTO  MOVE  ZERO  TO  CNT. 

T0280  CHeCK-I-1. 

T0290  AOO  1 TO  CNT. 

T0300  MOVE  ISC-AC-TN  CCNT]  TO  ISC-TEMP. 

T03I0  IF  sErIAL-No  is  LESS  THAN  ISC-TEMp  BO  TO  CNECK-I-G. 

T0320  IF  SE.UAL-NO  IS  EQUAL  TO  ISC-TEMP  BO  TO  CHECK-I-IA. 

T0330  IF  CRT  IS  LESS  THAN  NO-ISC-AC  BO  TO  CNECK-I-I. 

70340  CHECK-I-4. 

7035U  MOVE  (NO  TO  ISC-FLAG. 

T036U  GO  TO  LhECK-I-3. 

T03T0  CHECK-I-IA. 

70380  MOVt  iSC-AC-WK  tCNTl  TO  WEEK-TENP. 

T0390  IF  VE.K-TEMP  IS  EQUAL  TO  WEEK  OR  WEEK  IS  BREAtCR  THAN 

T0400  aE^K.TEMP  MOVE  ONE  TO  ISCHRONAL. 

T0410  MOVE  ONt  TO  ISC-FLAG. 
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C989T0 

C989T0 

C989T0 

C989T0 

C989T0 
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C989T0 

C989T0 

C989T0 

C989T0 

C989T0 
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C989T0 
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C98970 
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C989T0 
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C989T0 

C969T0 
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70430  CHECK- 1-3. 

70440  HOVE  SLHIAL-NO  TO  PHEV-TES7EO-SN. 

704S0  ENO-CI.  EXll. 

00000  REAO-IN-TITLE-DATA. 

80010  HOVE  2EK0  TO  CNT. 

00020  REAO-MDL- I NPUT . 

00030  REAU  IN-FKE-ISC  INTO  HOC-INPUT* 

00040  AT  ENO  60  TO  ENO-RITO. 

OOOSO  ADD  1 TO  CNT. 

00060  HOVE  HUC-IN  TO  HOC-LIST  CCNTl. 

00000  IF  CNT  IS  LESS  THAN  21  60  TO  REAO-HOC-INPUT. 

00100  READ-UNSC.IEU-HAINT-COLS. 

00110  REAU  'N-FlLE-lSC  INTO  NUHbER-CARD* 

00120  AT  ENO  00  TO  ENO-RITO. 

00130  HOVE  i*UHHER-ITEHS  TO  SUM-INOEX. 

00140  HOVE  lERO  TO  CNT. 

801SO  REAO-OHSCMEU-COLS. 

00160  read  IN-FlLE-lSC  INTO  NUHeCR-CARO. 

00170  AT  ENO  00  TO  ENO-RITO. 

00160  ADD  1 TO  CNT. 

60190  HOVE  NOHHER-ITEHS  to  SUH-HDC-COL  CCNTl. 

00200  IF  CN'  IS  LLSS  THAN  SUM-INOEX  00  TO  RCAO-UNSCHED-CXS. 

00290  HOVE  ’EkO  TO  CNT 

00300  READ  IN-FlLE-lSC  INTO  NUMOER-CARO. 

00310  AT  end  00  TO  ENO-RITO. 

00320  HOVE  'mihber-items  to  NUMBER-SOHUC. 

00330  READ-SGvUC-uATA. 

00340  read  IN-FILE-lSC  INTO  NUMBER-CARO. 

O03S0  AT  ENO  00  TO  ENO-RITO. 

00360  ADD  1 TO  CNT. 

00370  HOVE  NUMBER- I TENS  TO  COL-NO  CCNTl. 

00360  HOVE  l.wPUT-SO-COOE  TO  SO-HUC  CCNTl. 

00390  IF  CNT  IS  LESS  THAN  NUMBER-SOHUC  60  TO  READ-SOHUC-OATA. 

60790  ENu-rITO.  EXIT. 

/*  peace  COBOL  SOURCE  BEFORE  THIS  CARO 

//CHO.IFGIN  CJ  *»SPACEXCTL.Cl«tll 

00000  G-.T  tfo  hano 

010001  019999  REPLACE 

TFG  OTOl  II  0202060 

34 

37000236  331 

S7000237  331 

S7O0O243  324 

07000244  331 

57o02b4b  331 

bOOOOTTb  324 
30000901  331 

39000002  331 

39000003  331 

39000003  331 

39000006  331 

39000010  331 

39000012  331 

39000013  331 

39000010  331 

S900O019  331 

39000026  331 

39000030  331 

39000034  324 

39000037  324 

59000030  324 

59000039  324 

59000104  331 

39000103  331 

39000100  324 

59000110  324 

39000119  324 

39000141  324 

59000143  324 

39000144  324 

59000145  324 

59000147  324 

59000131  324 


C90970 
C90970 
C96970 
C90970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C90970 
C96970 
C96970 

C96970  j 

C90970 
C90970 
C96970 
C96970 
C96970 
C90970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 

1440  CDS 
C96976*T 
•T 


I 


s^booisf  • 

A. 

B 

c 

u 

& 

F 
G 
H H 
J 
K 
N 
P P 
U 
R 

s 

T T 
U 
V 
2 
4 
4 
1 
2 

4 

t> 

b 

ib 

14 

20 

lU  0J300 
11  034UU 

4eN0 

/•  PLACE  TFO  Data  BCrORC  this  capo 

//TPR«TU12  00  OlSP>COtO*PECP]«VOL>SeP>m*UNtt>T^FI  tU 

//TPR*TU22  00  01SP>C0L0«KeCP]«V0L>$ep>4rSfUHn>T^f5  t22 

//TPR«TPR1N  00  «#SPACC>CTRK«Clfi)3 

T/P  OTOl  10100602060 

T/P  TU22  101U0S020S0 

/•  PLACE  T/P  CONTROL  CAROS  BCPORE  THIS  CARD 


6.15.2  UNSCHEDULED  MANHOUR  AND  NORM  HOUR 


//T9e97N  JOB  Oi.!  G •ANG  < f PRTY>02«TYPRUN>H0t.D 

//C989TB  EXEC  P96!>9LtYlMC>15t ACCTX)35323007 

//CHG.TUIH  DU  DISPK  fPASSlfUNlY>CY«P3tItDEPCP]tDSN>AC.9e979i6> 

//  V0C>SEP>C+F3fA*P3tB7P3.C+F3.0»P3.C»PJ.P»F3»07P3fH*»r3* 

//  1 'F3.  J*F3.X+F3.LAF3fH*P3.N*F3.0»F3fP»F3»07F3fP*F3*S»FJ  J 

//CHG.TU22  OU  01SP>t.PASSJ.UNIT>tY*F5.1.DCFCRJ*0SN>*E.9e97*32» 

//  VOL>SER>C ♦F5.A+F5*e*FSf C4F5fO»F5.C»FBfF*FafO*F8»H*FB* 

//  l^Fb<J7FSfK«F5tl.«F9fM«FSfN7F9.0AF9.PtF9f0tF5tR7FB>S7FB] 

//CHG.T024  DJ  nlSP>C.PASSlfUNlT>CY7F7tlt0CFER]tDSN>AB.9a97«29t 

//  VOL>SEB>t*F7fA+F7fB*F7fC+F7»0*F7.C*F7»F»F7»#tF7»IHF7* 

//  l»F/.J*F7.X+F7fL+F7*R»F7fN7F7f0*F7fP»F7f97F7»R7F7*S9F7J 

//CHG.INPUY  DJ  *.SPACe>CCYLtCltl]I 

OOUOO  COKUlNE  coppile  b.  wano. 

01040  OArt-PRlYTEN.  25  JLY  72. 

01U50  REHARKS. 

01060  phase  II  PROGRAM 

01070  YASK  7-2A  MANHOUR  ANO  NORM  DATA. 

02000  ENVIRONMENT  DIVISION. 

02010  CONFIGURAIION  SECTION. 

02020  SOURCE'lOMPUTER.  IPM-J60. 

02030  OUJECT'COMPuTER.  IBM-360. 

02100  INPUY-OUTPUI  SECTION. 

02110  FlLb-CONT (OL. 


CT14 

CT14  2 
T14  3 

CT22  1 

CT22  2 
T22  3 

CT24  1 

CT24  2 
T24  3 

1440  CDS 
C9B9T0 
C9B9T0 
C9B9T0 
C9B9T0 
C9B970 
C9B970 
C9B970 
C9B970 
C989T0 
C9B970 
C9n9Tn 


i. 


(I2I2U 

SELECT  lN-FlLE-0>d 

ASSIBN  TO  UT-S-TU19 

C98970 

U213U 

rlslrve  1 alternate  area* 

C 98970 

02140 

SELLc;  IN-FILE-ISC 

ASSIBN  TO  0*>S-OTBt 

C 98970 

02150 

RSSLRVE  1 alternate  AREA. 

C 96970 

0216U 

SELECT  MSG-FILE 

ASSIBN  TO  OA-S^TtB 

C98970 

U2170 

reserve  1 alternate  are*. 

C98970 

0216U 

SELECT  OUT-FILE-I 

ASSIBN  TO  UT-S-TVt9 

C96970 

02190 

reserve  1 alternate  are*. 

C98970 

02200 

SELECT  UUT-FILE-2 

ASSIBN  TO  UT-S-TUtt 

C98970 

0221U 

reserve  1 alternate  are*. 

C98970 

lOUOO 

OAT*  DIVISION. 

C98970 

louio 

file  SElTIUN. 

C96970 

10100 

FD 

IN-fIlE-O-R 

C98970 

1012U 

RECORJING  MODE  IS  F 

C9B970 

10130 

ULOCK  CUNTAINS  *0  RECORDS 

C98970 

10140 

RECORD  contains  to 

CHARACTERS 

C98970 

10150 

label  records  are  omitted 

C98970 

1016U 

OAT*  (ElOHDS  are  in-rec-d-b 

• 

C9B970 

10200 

01 

IN-REC-O-H  SYNC. 

C98970 

10210 

02  filler 

PICTURE  XC701. 

C98970 

10220 

C98970 

11300 

FO 

IN-FI'-E-ISC 

C98970 

1132U 

RECORDING  MODE  IS  F 

C98970 

11330 

block  contains  20  RECORDS 

C9B970 

11340 

recofd  contains  so 

CHARACTERS 

C98970 

11350 

LABEL  RECORDS  ARE  STANDARD 

C98970 

11360 

OAT*  RECORDS  ARE  IN-REC-ISC 

• 

C96970 

11400 

01 

IN-HEC-ISC  SYNC. 

C98970 

11410 

02  F ILlER 

PICTURE  XEBOJ. 

C9B970 

12100 

FO 

OUT-FILE-1 

C98970 

12120 

RECORDING  MODE  IS  F 

C98970 

12130 

block  CUNTAINS  90  RECORDS 

C98970 

1214U 

RECOPT  CONTAINS  20 

CHARACTERS 

C98970 

12150 

LABEL  RECORDS  ARE  OMITTED 

C98970 

12160 

OAT*  RECORDS  ARE  ODT-REC-l. 

C98970 

12200 

01 

OOT-PEC-1  SYNC. 

C98970 

12210 

02  filler 

PICTURE  xcaoi. 

C98970 

13300 

FO 

MSG-FlLE 

C 98970 

13320 

RECUFJInG  MODE  IS  F 

C98970 

13330 

BLOCK  CONTAINS  20  RECORDS 

C98970 

13340 

RECORD  CONTAINS  60 

CHARACTERS 

C98970 

133S0 

LABEL  RECORDS  ARC  STANDARD 

C98970 

13360 

data  (ecohos  are  MSG-REC< 

C9B970 

13400 

01 

MSG-PEC  SYNC. 

C98970 

13410 

02  F.LLER 

PICTURE  XC80]. 

C98970 

1410U 

FO 

OUT-F :le-2 

C9e970 

14120 

HECOP'JIIjG  mode  is  f 

C9B970 

14130 

BLOCK  CONTAINS  90  RECORDS 

C9B970 

14140 

record  contains  20 

characters 

C98970 

14150 

LAPEL  RECORDS  ARE  OMITTED 

C98970 

14160 

data  records  are  OUT-REC-2. 

C98970 

14200 

01 

OUT-hEC-2  SYNC. 

C98970 

14210 

02  filler 

PICTURE  XC20]. 

C98970 

30U00 

WOHKING-STUKAGr  SCCTlONt 

C9897n 

300X2 

77 

MUC-FLA4  NC  PICTURE  X 

VALUE  SPACE. 

098970 

30CX5 

77 

s.nc  picture  X 

VALUE  SPACE. 

C96970 

30016 

77 

cur-oy  Sync  picture  x value  space. 

C96970 

30017 

77 

data-ss  sync  picture  x value  space. 

C96970 

30020 

77 

CURrEek  sync 

PICTURE  999. 

C96970 

30030 

77 

CUR-SwR-NO  SYNC 

picture  XCSl. 

C96970 

30040 

77 

CUR-I'.c  SYNC 

PICTURE  X. 

C969T0 

30050 

77 

XNT  SYNC  computational 

PICTURE  S999. 

C96970 

30060 

77 

VEFK-fEMP  SYNC 

PICTURE  999. 

C96970 

3C070 

77 

delta -reek  sync 

PICTURE  S999, 

C9B970 

30000 

77 

oelta-flt-hhs  sync 

PICTURE  S999999. 

C96970 

30090 

77 

cur-fl»-hrs  sync 

PICTURE  S999999. 

C9B970 

30100 

77 

flag  sync  computational 

picture  S999  VALUE  lERO. 

C9B970 

30110 

77 

hmc-temp  sync 

PICTURE  XXX. 

C98970 

30120 

77 

no-hmc  sync  computational 

PICTURE  S999  VALUE  <100. 

C96970 

30130 

77 

NO-rEC-1  sync 

PICTURE  S9C7]  VALUE  ZERO. 

C98970 

30140 

77 

NO-kEC-2  sync 

PICTURE  S9t7J  value  ZERO. 

C 98970 

30150 

77 

max-no-mmc  sync  computational 

C9B970 

30160 

PICTURE  S999  VALUE  ZERO. 

C96970 

30170 

77 

CNT  SYNC  computational 

PICTURE  S999. 

C9B970 

30360 

77 

ONE  >YNC 

PICTURE  X VALUE  iH. 

C9B970 

30390 

77 

TWO  SYnC 

PICTURE  X VALUE  iZi. 

C 98970 

30391 

77 

three  Sync 

PICTURE  X VALUE  iSI. 

C98970 

30392 

77 

FOUR  SYNC 

PICTURE  X VALUE  >91. 

C96970 

30400 

77 

ISC-TEmp  sync 

PICTURE  xcej  value  space. 

C96970 

30410 

77 

prev-tested-sn  sync 

PICTURE  XISJ  VALUE  SPACE. 

C 98970 

30420 

77 

ISC-F..AG  SYNC 

picture  X VALUE  SPACE. 

C98970 

30430 

77 

MIN-ISC-VEEX  SYNC  COMPUTATIONAL  PICTURE  S999  VALUE  <999. 

C98970 

00500 

77 

CURWUC  SYNC  PICTURE 

XC91. 

C 96970 

30506 

77 

CUR-HMC  SYNC 

picture  XXX. 

C96970 

30510 

77 

ischronal  sync  picture 

X. 

C98970 

i 


I 


i 
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1 


30S20 

77 

SUH' 

-NORM  SYNC 

picture  SQC6]  value  ZERO. 

C96970 

JObJO 

77 

SUM' 

-MAt4-MR  SYNC 

PICTURE  sot  61  VALUE  ZERO. 

€98970 

bOb<tO 

77 

SUM 

-Ha  sync 

PICTURE  S9CS1  VALUE  ZERO. 

C98970 

bOSSO 

77 

CUR 

-n  SYNC 

PICTURE  Q. 

C96970 

blUlO 

01 

NO- 

ISC  SYNC. 

C96970 

bI020 

02 

FILLER 

PICTURE  XX. 

€98970 

blObO 

02 

NJ-ISC-AC 

picture  SQ99. 

€98970 ' 

blU40 

02 

F'LLER 

picture  XI 751. 

€98970 

biuso 

01 

ISC 

-A-C  SYNC. 

€98970 

blUbU 

02 

FILLER 

picture  XX. 

€98970 

blilTO 

02 

ISC-TN 

picture  XCSl. 

€98970 

biuou 

02 

filler 

PICTURE  XX. 

€98970 

blUqU 

02 

IjC-VK 

PICTURE  99Q. 

€98970 

bIlOO 

02 

FILLER 

picture  XC6S1. 

€98970 

bI200 

01 

filler  sync. 

€96970 

bl20b 

02 

Filler  occurs 

36  times. 

C98970 

JI2I0 

OJ  ISC-AC-TN 

picture  Xt8]. 

€96970 

bl22U 

0 ' isc-AC-m 

computational  picture  S999. 

€98970 

bIbOO 

01 

data-uank-inpuT  sync. 

€98970 

bIblO 

02 

Filler 

PICTURE  XtSl. 

€98970 

blb20 

02 

serial -NO 

PICTURE  XCSl. 

€98970 

blbbO 

02 

MEEK 

picture  999. 

€98970 

blb40 

02 

bUC 

PICTURE  XCSl. 

€98970 

biaso 

02 

hJC-B  redefines  MUC. 

€96970 

blJbO 

c 3 HUC«2 

picture  XX. 

€98970 

blbTO 

Od  FILLER 

picture  XXX. 

€98970 

blbSO 

02 

filler 

PICTURE  X. 

€98970 

bijqo 

02 

HMC 

picture  XXX. 

€98970 

bl400 

02 

UNlfS 

PICTURE  S999. 

€96970 

bl40l 

02 
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PHOC-11-1. 

PERFOKH  CHECK-ISCHRONAL  THRU  EN0*C1. 

MOVE  ISCHRONAL  TO  CUR-ISC. 

move  iuent  to  cur-io. 

MOVE  W'Ji:  TO  CURWUC. 

MOVE  MEEK  TO  CUKWEEK. 

HOVE  SEKIAL-NO  TO  CUR-SER-NO. 

move  FuI-hrs  to  CUR-FLT-HRS. 

MOVE  TWO  TO  CUR-OS. 

IF  NORM-HR  LESS  THAN  2ER0  MOVE  ONE  TO  CUR>»S> 

INIT-SET. 

move  one  to  flt-flag, 

IF  wuc  eOU«L  to  cI-RREFET  move  two  to  flt-fl««> 

IF  WUC  EOU«L  TO  CI-bPOST  MOVE  TMO  TO  FLT-FL*0> 

IF  MUC  EQUAL  TO  CI-SHPOST  MOVE  TMO  TO  FLT-FLA«< 

COMPUTE  SUM-NORM  > 0. 

IF  FLT-FLAG  equal  to  one  AnO  NORM-HR  OREATER  THAN  ZERO 
MOVE  NOHM-HM  TO  SUM-NORM. 

HOVE  MAN-HR  TO  bUM-MAN-HR. 

ACC-SET. 

REAU  IN-FILE-D-U  INTO  OATA-BANK-INPUT 

AT  end  go  to  Close-piles. 

PERFORM  CHECK-ISCHRONaL  THRU  ENO-CI. 

IF  iSc  4K0NAL  IS  NOT  EQUAL  TO  CUR>ISC  *0  TO  SET>BREAK. 

IF  IDENT  not  equal  to  cur-io  go  to  SET-SREAK. 

IF  WUC  NOT  EQUAL  TO  CURWUC  60  TO  SET-BREAK. 

IF  SERiAL-NO  NOT  EQUAL  TO  CUR-SER-NO  GO  TO  SET-BREAK. 

MOVE  r«0  TO  DATA-bS. 

IF  norm-hr  less  than  zero  move  one  to  data-gs. 

60  TO  CHECK-TYPE. 

NOT-SP-TYPl. 

subtract  CURVEEK  from  meek  giving  heek-temp. 

IF  meek-temp  not  equal  to  1 
60  TO  internal-break. 

ADO  man-hr  to  sum-man-hr. 
move  one  to  flt-flag. 

IF  HUC  equal  to  Cl-RREFLT  MOVE  TMO  TO  FLT-FLAG* 

IF  MUC  equal  to  cI-BPOST  MOVE  TMO  TO  FLT-FLAG> 

IF  MUC  EQUAL  TO  CI-SHPOST  MOVE  TMO  TO  PLT-FLAG> 

IF  FLT-FLAO  equal  to  one  ANO  NORM-MR  GREATER  THAN  ZERO 
ADO  NORM-HR  to  SUM-NORM. 

IF  FLT-FLaO  equal  to  TMO  COMPUTE  SUN-NORM  > G. 

MOVE  MEEK  TO  CUHMEEK. 

move  flt-hrs  to  CUR-FLT-HRS. 

IF  CUH-6S  EQUAL  TO  TMO  OR  OATA-GB  EQUAL  TO  TMO 
MOVE  TMO  TO  CUR-GS. 

MOVE  iuent  to  CUR-IO. 

60  TO  ACC-set. 
set-break, 

perform  MRlTE-1  THRU  ENO-MRlTE-1. 

COMPUT^  SUM-NORM  > 0. 

COMPUT'.  SUM-MAN-HR  > 0. 

60  TO  CHECK-DATA. 

internal-break. 

perform  hrITE-1  THRU  ENO-MRITE-I. 

MOVE  MEEK  TO  CUHMEEK. 

MOVE  Flt-hrs  to  cur-flt-hrs. 

HOVE  CArA-6b  TO  CUR-6S. 

MOVE  I'JENT  to  CUR-IU. 

GO  TO  iNiT-bET. 

NOTE  MRITE  NORM-MR  AND  MAN-hR  TOTALS  ON  OUTPUT  FILE. 
MRlTE-1. 

END-MRlTE-l.  EXIT. 

check-type. 

MOVE  ONE  TO  MUC-FLAG. 

IF  HUC  EQUAL  TO  CI-HPF  MOVE  TMO  TO  HUC-FLAG< 

IF  HUC  equal  to  CI-MAI-1  move  TMO  TO  MUC-FLAG. 

IF  HUC  equal  to  CI-MAI-Z  move  TMO  TO  MUC-FLAG. 

IF  HUC  EQUAL  TO  CI-MAl-9  MOVE  TMO  TO  MUC-FLAG* 

IF  HUC  EQUAL  TO  CI-PERl  MOVE  TMO  TO  MUC-FLAG* 

IF  HUC  EQUAL  TO  CI-IRAN  MOVE  TMO  TO  MUC-FLAG* 

IF  HUC -flag  equal  to  one  go  to  NOT-SP-TTPE* 

SUBTRACT  CURHEEK  FROM  MEEK  GIVING  MEEK-TEMP. 

SP-TYPE. 

IF  HUC  LESS  THAN  CI'PERI  ANO  MEEK-TEMP  GREATER  THAN  GAP-HR- 
GO  TO  INTERNAL-BREAK. 

IF  HU:  bREATER  than  Cl-MAl-9  ANO  MEEK-TEMP  GREATER  THAN 
GAP-Hk-Z  60  TO  internal-break. 

ADD  man-hr  TO  SUM-MAN-HR. 

IF  NOt.M-HR  greater  THAN  ZERO  ADO  NORM-MR  TO  SUM-NORM* 

MOVL  hllK  TO  CURHEEK. 

move  fli-hrs  to  CUR-FLT-MRS* 

IF  DA1A-6S  EQUAL  TO  TMO  OR  CUR-GS  EQUAL  TO  TMO 
MOVE  TMO  TO  CUR-GB. 

MOVE  lOENT  TO  CUR-10. 

GO  TO  ACC-SET. 


MOVE  TMO  TO  MUC-FLAG* 
MOVE  TMO  TO  MUC-FLAG* 
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55010  PERFOK*  CHECK-ISCHRONAL  THRU  CM>>CI. 

55020  MOVE  ISCHRONAL  TO  CUR-ISC. 

55050  MOVE  RUC  TO  CURWUC. 

55050  MOVE  tbHlAL-NO  TO  CUR-SER-NO. 

55060  MOVE  *DENT  TO  CUR-10. 

550T0  perform  WRITC-2  THRU  ENO-WRlTC-a. 

550T2  MOVE  •WU  TO  CUH-65. 

550TS  IF  NO'  M-HR  LESS  THAN  2ERO  MOVE  ONE  TO 

550T5  SCT-NEM. 

55000  COMPUTE  SUM-NORM  > 0. 

55001  IF  nOKM-HR  greater  Than  zero  move  norm-hm  to  sum-morm. 

55000  MOVE  UNITS  TO  SUM-MA. 

55002  IF  UNITS  EOUAL  TO  ZERO  00  TO  SeT-FLAO. 


COSOTO 

COOOTO 

COSOTO 

COSOTO 

COOOTO 

COSOTO 

COSOTO 
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COOOTO 

COSOTO 

COOOTO 

COSOTO 
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55005  MOVE  CUHWUC  TO  VUC-OUT. 

55U0O  MOVE  fUH-lSC  TO  ISC-OUT. 

55005  perform  VHITE-3  THRU  ENO-WRlTE-5. 

55006  READ  IN-FILE-O-U  INTO  OATA-BANK-lNPUT  AT  END  SO  TO  EOF-ORK. 

5500T  GO  TO  UREAK-I. 

55100  set-flag. 

55150  REAU  IN-FILE-O-U  INTO  OATA-BANk-INPUT 

55140  AT  end  go  TO  EOF-BRK. 

55150  PERFORM  CHECK- ISCHRONAL  THRU  ENO-Ct. 

55160  IF  lOENT  EQUAL  >0  CUR-10 

551T0  PERFORM  HfllTE-2  THRU  ENO-MtTC-2. 

55160  IF  ISCHRONAL  NOT  EQUAL  TO  CUR-iSC  SO  TO  BREAK-l. 

55100  IF  MUC  NOT  equal  TO  CURMUC  GO  TO  BREAK-1. 

55200  IF  SEHIAL-NO  NOT  EQUAL  TO  CUR-SER-NO  SO  TO  BReAK-I. 

55210  IF  IDERT  NOT  EQUAL  TO  CUR-10  SO  TO  BREAK-l. 

55212  MOVE  1«0  TO  0ATA-6S. 

55215  IF  NORM-HR  LESS  THAN  ZERO  MOVE  ONE  TO  DATA-SB. 

55215  IF  cUH-t>5  EQUAL  TO  THO  OR  0ATA-S5  EQUAL  TO  TWO 

55216  MOVE  TWO  TO  CUR-6B. 

55220  IF  NORM-HR  GREATER  THAN  ZERO  ADO  NORM-HR  TO  SUM-NORM. 

55250  ADO  UNI  IS  TO  SUM-MA. 

55251  IF  UNITS  NOT  EQUAL  TO  ZERO  SO  TO  INT-BREAK. 

55252  GO  TO  SET-FLAG. 

55240  INT-BREAK. 

55250  MOVE  CURWUC  TO  WUC-OUT. 

55260  MOVE  COH-ISC  TO  ISC-OUT. 

552T0  PERFORM  WRITE-5  THRU  ENU-WRITE-S. 

552B0  COMRUIL  SUM-NORM  > 0. 

55202  COMPUIe  SUM-MA  > 0. 

552S4  00  TO  'iLT-FLAO. 

55290  break-1 . 

55522  COMPUTE  SuM-NORM  > 0. 

55524  COMPUTE  SUM-MA  > 0. 

55550  GO  TO  CHECK-DATA. 

55590  WRlTE-2. 

55470  CNO-wRlTE-2.  EXIT. 

55460  WHITE-5. 

55462  IF  CUR-65  EQUAL  TO  ONE  SO  TO  ENO-WRITC-5. 

55500  MOVE  SPACE  TO  HMC-OUT. 

55510  DIVIDE  SUM-MA  INTO  SUM-NORM  OlViNS  OBS. 

55520  MOVE  three  TO  DATA-TYPE. 

55550  WRITE  OUT-REC-2  FROM  OUT-OATA. 

55540  ADO  1 10  NO-REC-2. 

55550  CNO-WRITE'5.  EXIT. 

55551  EOF-BRK. 

55552  IF  sum-norm  eOUAL  TO  ZERO  SO  TO  CLOSE-PILES. 

55555  MOVE  CURWUC  TO  WUC-OUT. 

55554  MOVE  CUR-ISC  TO  ISC-OUT. 

55555  PERFORM  WRlTC-5  THRU  ENO-WRITE-5. 

55556  SO  TO  CLOSE-FILES. 

55560  REMARK-2. 

S55T0  note  compute  RATIO  OF  MH  TOTAL  OVER  MA  TOTAe 

55560  DATA  SANK  RECORD  TYPE  4. 

60000  PROC-II-2B. 

60010  PERFORM  CHECK- 1 SCHRONAL  THRU  ENO-CI. 

60020  MOVE  ISCHRONAL  TO  CUR-ISC . 

60050  MOVE  WUC  TO  CURWUC. 

60050  MOVE  SERIAL-NO  TO  CUR-SER-NO. 


C9S9T0 

C969T0 

C9B9T0 

C9B9T0 

C9B9T0 

C9S976 

C96970 

C9B970 
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C9S970 
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C96970 


60060  MOVE  IOENT  TO  CUR-ID.  C9B9T0 
60070  MOVL  HMC  TO  CUR-HMC.  C9S970 
60060  SET-NCW-2.  C9S9T0 
60090  HOVE  MAN-HR  TO  SUM-MAn-HR.  C9S970 
60100  MOVE  UNITS  TO  SUM-MA.  C9S9T0 
60102  IF  UNITS  EOUAL  TO  ZERO  SO  TO  SET-FLAS-t.  C969T0 
60105  perform  WRITE-4  thru  CNO-WRITE-4.  C969T0 

60104  read  IN-FILE-D-B  INTO  OATA-BANK-INPUT  AT  END  BO  TO  EOF-BRK-t.  C969T0 

60105  SO  TO  BHEAK-2.  C96970 
60110  set-flag-2.  C969T0 
.60140  READ  I'I-FILE-D-H  INTO  OATA-BANK-INPUT  C9S9T0 
60150  AT  ENO  SO  TO  EOF-BRK-I.  C9R4Tn 
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60160  PCRFOK^t  CHCCK-ISCHRONAL  THRU  CNO-Ct. 

60170  IF  ISC  4KON1L  HOT  equal  TO  CUR-ISC  M T*  BREAR-t. 

60160  IF  HUC  NOT  tOUAL  TO  CURWUC  60  TO  BREAK*!. 

60190  IF  SEKIAL-NO  HOT  EQUAL  TO  CUR>SER-NO  60  TO  BREAK-B. 

60200  IF  lOLNI  NOT  equal  TO  CUR-IO  60  TO  BREAK*!. 

60210  IF  hMC  not  equal  TO  CUR-HMC  60  TO  BREAK*!. 

60220  AOO  MAN-HR  TO  SUM-HAN-HR. 

60230  AOO  UNITS  TO  SUM>MA. 

60231  IF  UNITS  NOT  EQUAL  TO  ZERO  60  TO  1NT*BREAK*!. 

60232  GO  TO  SL'T-FLAG-2. 

•60290  INT-(1REAK-2. 

60250  • PERFORM  WRITE-9  THRO  EN0*WR1TE*6. 

60260  comput:.  SUM-MAN-HR  > 0. 

60262  COMPUTE  SUM-MA  > 0. 

60269  GO  TO  set-flag-2. 

60270  BKLAK-2. 

602S2  COMPUIt.  SUM-MAN-HH  > 0. 

60269  COMPUTE  SUM-MA  > 0. 

60290  60  TO  S.HECK-OATA, 

60330  HNITE-9. 

60390  MOVL  CURWOC  TO  HUC-OUT. 

60350  MOVL  LUR-ISC  TO  ISC-OUT. 

603>iU  MOVL  C.IR-IIMC  TO  HMC-OUT. 

60370  IT  SUM-MA  EQUAL  TO  ZERO  AOO  1 TO  SUM»MA. 

60360  OIVIOL  SUM-MA  INTO  SUM-MAN-HR 

60390  GIVING  OBS. 

60900  MOVE  ONt  TO  OATA-TYPE. 

60910  write  OUT-RLC-1  from  out-oata. 

60920  AOO  1 tu  NO-REC-1. 

60930  ENo-wRITE-9.  EXIT. 

60990  EOF-BRK-2. 

60950  IF  SUM-MAN-HR  EQUAL  TO  ZERO  GO  TO  CLOSE-PILES. 

60960  PERFORM  WRITE-9  THRU  EHO-WRITE-9. 

60970  GO  TO  LLOsE-FTLES. 

70000  REAO-ISC-A-C. 

70U05  REAO  IN-FILE-ISC  INTO  SPEC-WUC  AT  END  GO  TO  END-RIAC. 

70010  READ  I>J-FILE-ISC  INTO  NO-ISC  AT  ENO  GO  TO  ENO-RlAC. 

70020  HOVE  ZERO  TO  KNT. 

70030  RIAC. 

70090  AOO  I TO  kNT. 

70050  REAO  IW-FILE-ISC  INTO  ISC-A-C  AT  ERO  BO  TO  ENO-RIAC. 

70060  MOVE  ISC-TN  TO  ISC-AC-TN  tKNTJ. 

70070  MOVE  ISC-WK  TO  ISC-AC-WK  tKNTJ. 

70075  IF  ISC-wK  IS  LESS  THAN  MIN-ISC-WEEK  MOVE  ISC-WK 

70076  TO  MIN-ISC-WEEK. 

70060  IF  KNT  IS  LESS  THAN  NO-ISC-AC  #0  TO  RIAC. 

70065  CLOSE  IN-FILE-ISC  WITH  LOCK. 

70090  enu-riac.  exit. 

70200  CHECK-ISCHRONaL. 

70210  IF  SERIaL-NO  IS  NOT  EQUAL  TO  PREV-TESTEO-SN  GO  TO  CHECK-I-!. 

70220  IF  t SC  FLAG  IS  EQUAL  TO  TWO  60  TO  ENO-CI. 

70230  IF  iSCHPOnaL  IS  EQUAL  TO  ONE  AND  WEEK  IS  HOT  LESS  THAN 

70232  MIN-ISC-WEEK.  THEN  60  TO  ENO-Cl. 

70290  CHECK-I-2. 

70250  MOVE  1*0  TO  ISCHRONAL. 

70260  IF  WEEK  IS  LESS  THAN  MIN-ISC-WEEK  00  TO  END-CI. 

70270  MOVE  ZERO  TO  CNT. 

70260  CHECK-I-1. 

70290  AOO  1 To  CNT. 

70300  MOVE  ISC-AC-TN  tCNTl  TO  ISC-TEMP. 

70310  IF  sERIAL-no  is  LESS  THAN  ISC-TEMR  00  TO  CHCCK-I-0. 

70320  IF  SERIAL-NO  IS  EQUAL  TO  ISC-TEMP  00  TO  CHECK-I-IA. 

70330  IF  CNT  IS  less  THAN  NO-ISC-AC  GO  TO  CHCCR*I*|. 

70390  CHECK-I-9. 

70350  MOVL  TWO  TO  ISC-FLAG. 

70360  GO  TO  ChECK-I-3. 

70370  CHECK-I-IA. 

70360  MOVE  ISC-AC-WK  tCNTl  TO  WEEK-TEMP. 

70390  IF  wEEK-TEMP  is  EQUAL  TO  WEEK  OR  WEEK  IS  GREATER  THAN 

70900  .E£K_TEMP  MOVE  one  to  ISCHRONAL. 

70910  MOVE  ONE  fo  ISC-FLAG. 

70930  CHtCK-I-3. 

70990  MOVE  SLRIAL-NO  To  PREV-TESTEO-SN. 

70950  ENO-CI.  CXI  I. 

70510  NINe-FIlL-2. 

70520  WRITE  GUT-RCC-2  FROM  NINE. 

70530  AOO  1 TO  KNT. 

70590  IF  KNT  IS  LESS  THAN  90  GO  TO  NINE-PILL-!. 

70550  N-F-2.  EXIT. 

7C600  nine-filL-:. 

70610  WRITE  OuT-PEC-I  FROM  NINE. 

70620  AOO  1 TO  KNT. 

70630  IF  KNT  IS  LESS  THAN  90  GO  TO  NINE-PILL-I. 

70690  N-F-I.  EXI’. 
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C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C96970 
C9S970 
C9S970 
C9S970 
C96970 
C96970 
C90970 
C9S970 
C9S970 
C9S970 
C9S970 
C9S970 
C9697n 
C9S970 
C96970 
C9S970 
C9S970 
C96970 
C9S970 
C96970 
C9S970 
C9S970 
C9S970 
C9S970 
C96970 
C9S970 
C9S970 
C9S970 
C9S970 
C9S970 
C9S970 
C96970 
C9S970 
C 96970 
C96970 
C 96970 
C96970 
C96970 
C96970 
C96970 
C96970 


I 

I 

I 


I 


4 


71B00  close-fills. 

Tieio  COHPUTE  BNT  > NO-REC-l  - NO-RCC-l  / 90  • 90. 

Tieao  IF  KNT  IS  ZERO  60  TO  CF-2. 

71830  PERFORM  NlNL-FlLL-1  THRU  N-F-1. 

718*0  CF-Z, 

71850  COMPUTL  KNT  > NO-REC-2  - NO-REC-2  / 90  * 90. 

71860  IF  RNT  IS  ZERO  60  TO  CF-3. 

71870  perform  N|Nt-FtLL-Z  THRU  N-F-t. 

71900  CF-3.  ^ 

71910  display  I number  recoros-1  I no-rec-1  upon  console. 

719Z0  display  I NUMSER  RECOROS-2  I NO-PtC-t  UPON  CONSOLE. 

719*0  DISPLAY  1 END  OF  JOB  C9897I  UPON  CONSOLE. 

71950  CLOSE  IN-FILE-O-B.  MS6-F1LE.  OOT-FlLE-1. 

71960  OUT-FlLE-t  VlTH  LOCK. 

71990  60BACK. 

/*  PLACE  COBOL  SOURCE  BEFORE  THIS  CARO 

//CH0.TF61N  DO  •tSPACEKCYL.C  1 .1  ll 

00000  6Er  TF6  BAND 

010001  019999  REPLACE 

TF6  OtOl  11  6Z0Z060 

OS300033l0033Z00333003*0OOM0OOS|O003tOe63ai6OIO* 

3* 

3T00U236  331 

5T00U237  331 

570002*3  32* 

570002**  331 

570025*5  331 

58000776  32* 

58000901  331 

59000002  331 

59000003  331 

59000005  331 

5900000b  331 

59000010  331 

59000012  331 

59000015  331 

59000018  331 

59O0O019  331 

5900002b  331 

59000030  331 

5900005*  32* 

59000057  32* 

59000058  32* 

59000059  32* 

5900010*  331 

69000105  33| 

59000100  32* 

59000110  32* 

59000119  32* 

59imo|*|  12* 

hOIIMUHi  iHH 
590001**  32* 

590001*5  32* 

590001*7  32* 

59000151  32* 

59000152  32* 


•END 

/•  PLACE  TFG  DATA  BEFORE  THIS  CARD 

//TPR.TUl* 

DU  D1SP>C0L0.KCCP].V0L>SCR>*P3.UN1T>T«F3 

Tl* 

//TPR.TU22 

00  01SPX0L0.KECP].V0L>SCR>*PB.UN1T>TfFB 

Ttt 

//TPR.T02* 

DU  01SPH0L0.KCCP].V0L>SER>*F7.UNIT>T*FT 

Tt* 

//TPR.TPRIN 

DO  •«SPACC>CTRK.Clf|}] 

T/P  OTOl 

10100802080 

T/P  OT02 

1010080Z080 

T/P  TUI* 

1010070Z070 

T/P  TU22 

1U10020Z020 

T/P  TU2* 

10100202020 

/•  PLACE  T/P  Cl^TROL  CAROS  BEFORE  THIS  CARO 

C98970 

C98970 

C98970 

C98970 

C98970 

C9B970 

C98970 

C9B970 

C98970 

C9B970 

C96970 

C98970 

C96970 

C98970 

096970 

1**0  COS 

C98970>T 

*T 
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6.15. 3 SORT  UNSCHEDULED  NORM  HOUR 


//T<>897K  job 
//C9897F  tXEC 
//CH6.S0RT1N 
// 

// 

// 

// 

//CHO.&ORTOUT 

// 

// 

// 

//CHG.bTSiN 
SORT 
MOOS 


01.!  G wang  :.pkty>02.typrun>holo 

P9b<:2N  > N>060 . T I ME>0<t  • ACC  T>O3SS21007 

00  OISPH  •Ki:EP]iUNIT>CA*FS.2«OEFCR1.  CT2t/t3  1 

OS'. 74E. 9697432.  CTtt  2 

VOL>SERK4Fb.A4F5.B*F8.C*FS.O*F5.E*FS.F.»F5.«AF5.H«F5>  CT22  .3 

I4F3.J4F5.K4F5,L4R5,M4F5.N4F5.04F5.P4f5.04F5.R4F5.S*F&J»CT22  * 

OCb>CLRECL>a020.RLKS12E>18001.LAeEL>C.NSI..PETPO>099l 
00  OISPK  .KEEP]. UNIT>CA4F1.2.0EFER1.0SN>4A. 9897*30.  CT12/13  1 


V0L>SER>C4F1.A4F1.84F1.C4F1.04F1.E4F1,F4F1.*4F1>H4f1.  CT12 
I4Fi.J4Fl.K4Fl.L4Fl.M4Fl.N4F1.04Fl.P4F1.04Fl,R4Fl.S*Fl].CTl2 
OCU'CLRECL>0020.aLKSI2E>1800] 

00  4.0CB>ULKS12E>0080.SPACE>CTRK.tl.l]] 
F1ELOS>1017.001.CH.A.019.001.CH.A.001.003.CH.*].S12E>E0350000 
E15>lElb>00<>.SOHTLlB.N].E18>CEia.02*.S0RTLlB.N] 


6.15.4  MEAN  AND  VARIANCE  NORM  HOUR 


//C9897C  EAEC 

//CHG.TU12 

// 

// 

//CHG.TU2b 

// 

// 


P96bSI..TtMC>30.*CCT>03S323007 

00  OIbP>C  . PASS]. UNlT>CT4Fl<lt0EFCB].0SN>4*. 9897*30. 

VOL >SER>C 4Fl.A4F1.84Fl.C4Flt04Fi.C4Fl,F4Fl.B4Fl.N4Fl. 
I4F l.J4Fl.K4Fl.L4Fl.M4Fl.N4Fl«04Fl.P4Fl.a4Fl.R4Fl>S4Fl J 
00  OlbPK  . PASS]. UNITMT4F8.1.0EFER].DSN>4H. 9897*31. 

VOl>SER>C 4F8.A4Fa.84F8.C4F8i04F8.E4F8.F4F8.«4F8iH4F8. 
I4Fb>J4FA.K4Fa.U4F8.H4Fa.N4F8.04F8.P4F8.04F8.R4FB.S4F8J 


CT12 

CT12 

T12 

CT2S 

CT2S 

T2S 


oouou 

01040 

OlUbO 

OlObO 

O2U0U 

02010 

02020 

02030 

02100 

02110 

02120 

02130 

02140 

021S0 

10000 

10010 

11100 

11120 

11130 

11140 

lllSO 

lllbO 

11170 

iiieo 

111S2 

11183 

11184 

11185 

11186 
11187 
11186 
11184 
12100 
12120 
12130 
12140 
121b0 
17160 
12170 
12160 
30000 
30010 
30012 
30014 
30020 
30030 
30040 
30050 
30060 

30060 

30061 

30062 

30063 

30064 
30090 
30100 
30110 
30120 


INPUT  ru  4.bPACE>CCYLiCl.ll] 

1*40  CDS 

COMoINE  compile 

0.  WAN*. 

C989T0 

OATL-wniTTL'i*  2b  JLY  72* 

C989T0 

REHAKKS* 

C989T0 

TASK7«2e  MEAN*  VARIANCE 

OF  NORM/MA. 

C98970 

environment  division. 

C989T0 

CONFIGUMATI  'N  section. 

C989T0 

SOUHCE-lOMP'jTeR.  IBM-360. 

C989T0 

OBJECT-LOMPjTER.  IBM-360. 

C989T0 

INPUT-OUTPU;  SECTION. 

C989T0 

file-contro,. 

C989T0 

select  IN-FIlE 

ASSIGN  TO  UT-S-TUll 

C989T0 

RESlRVE  1 alternate  area. 

C989T0 

select  iist-file 

ASSIGN  TO  UT-S-TU28 

C989T0 

reserve  1 alternate  area. 

C989T0 

data  division. 

C9B970 

file  SElTIC  J. 

C989T0 

FO 

in-FI  LI. 

C98970 

HECowurio  mode  is  f 

C989T0 

tiLOtX  contains  90  RECORDS 

C9897n 

KECORO  .ONTAINS  20 

characters 

C9B9T0 

lapel  hfcoros  are  ohitteo 

C98970 

DATA  RECORDS  ARE  IN-REC. 

C9B970 

01 

in-kel  sync. 

C989T0 

02  MUL 

PICTURE  xeSJ. 

C98970 

02  filter 

PICTURE  XI*J. 

C9B970 

02  OuS 

PICTURE  S9CG]. 

C989T0 

02  Ous-l  redefines  obs 

PICTURE  S99999V9. 

C9a970 

02  FILLER 

PICTURE  X. 

C989T0 

02  ISCNRONAL-NEH 

PICTURE  X. 

C98970 

02  filler 

PICTURE  X. 

C989T0 

02  OAT..-TYPE-NEK 

PICTURE  X. 

C98970 

02  FILLER 

PICTURE  X. 

C989T0 

FD 

HIST-FILE 

C98970 

RECOKUINO  MODE  IS  F 

C989T0 

HLOlK  contains  60  RECORDS 

C98970 

RECORD  CONTAINS  SO 

characters 

€98970 

LABLL  HLCOROS  ARE  OMITTED 

C98970 

DATA  HLIOROS  ARE  HIST-REC. 

C9B970 

01 

HISI-HEL  SYNC. 

C98970 

02  filler' 

PICTURE  XI50J. 

C98970 

WOHKlNO*STOrfAGE  SECTlONf 

C98970 

77 

KNT  SYNC  PICTURE  S9C5]. 

C9B970 

77 

0es*lb0  SYNC  PICTURE  S9Cb]V999f9« 

C98970 

77 

OBS-NI  SYNC  PICTURE  S9CblV99999* 

C9B970 

01 

fillEh  sync. 

C98970 

02  Fheo-hisT-VALUE  occurs 

2000  times  picture  S9C5] 

C 98970 

computational. 

C98970 

01 

A PICIU.E  S9f5]  COMPUTATIONAL. 

C98970 

01 

NO-OF-mISTS  sync 

PICTURE  99999  VALUt  lERO. 

C98970 

01 

ONE  SYNC 

picture  X VALUE  IK. 

098970 

01 

TWO  SYNC  PICTURE  X 

VALUE  I2t. 

098970 

01 

three  sync  picture  x 

VALUE  ISI. 

C96970 

01 

FOUR  SYNC  PICTURE  X 

VALUE  191. 

C90970 

01 

five  SYNC  PICTURE  X 

value  ISI. 

C989TO 

01 

CNT  STNL 

Pic^^ur"  S9t5i  computational. 

C98970 

01 

CUR-WUC-T  SYNC. 

C98970 

02  filler 

PICTURE  XtS]  VALUE  I «UC>I. 

C90970 

02  CUH-WUC 

PICTURE  XISl. 

C98970 

6-275 

i. 


30170  01 

30180  01 

30190  01 

32000  01 

32010 
32020 
32030 
32Ui|0 
32U&0 
*bUU0  01 
li.ulll  01 
4hii2U  01 
4(>300  01 

4u31U  01 

4b31b 
46320  01 

4632b 
46330  01 

46335 
46400  01 

46410 
46420 
46430 
46440 
46450 
46460 
46470 
46480 
46490 
46500 
47000  01 

47010  01 

47015  01 

47020  01 

47030  01 

47040  01 

47U50  01 

47U60  01 

47O7O 
47080  01 

47090 
47100  01 

47110  01 

47120 
47150  01 

47160  01 

47170 
47180  01 

47190  01 

47200  01 

47210 
47220  01 

47230  01 

47300  01 

47310 
47320  01 

47330 
47340 
47350  01 

47360 
47370  01 

47380 

47390  01 

47500  01 

47510 

47530 

47540 

47550 

47560  01 

47570 

47580 

47582 

47584 

47590 

47600  01 

47610 

47620 

47621 

47630 

47631 
47640 
47650 
47660 
47670 
476S0 
47690 
47700 
47710 
47720 
47730 
47740 
47750 

47760 


ischronoL  sync  picture  X. 

087A-TYPE  SYNC  PICTURE  X. 

MINUS'OI.E  computational  picture  S999  VALUE  >1  sync; 

REPORT-. '0  SYNC. 

02  FILLER  picture  XI 50]  VALUE 

:*9097B60  TF7919-01  142-8  1 1/2 

02  filler  picture  XC50]  VALUE  SPACE. 

02  FILlCK  picture  XC301  VALUE 

I 71. 

mean  computational  sync  picture  S9C7JV90. 
vahiancl  computational  sync  picture  SOtTlVOV. 

irMp-(.U«P  PICTURE  S9C71V99. 

hean-i>  Computational  sync  picture  s9tBiv99949  vALUt  zero, 
varianll-u  computational  sync  picture  socsivroooo 

VALUE  ZERO. 

TEMP-tO«P-n  SYNC  PICTURE  S9I5JV99999 

value  zero. 

HIST-NO-Op-OeS-B  SYNC  picture  S9C5JV99999 

VALUE  ZERO. 

hean-vahIance-line-b  sync. 

02  filler  picture  XCSol  VALUE 

!S 

02  filler  picture  XC16}  VALUE 
; MEAN)!. 

02  MEAN-RPT-B  PICTURE  ZZ9. 99999. 

02  FILLER  PICTURE  XC28)  VALUE 

: variance  >1. 

02  VAkIANCE-RPT-B  picture  ZZZZ9. 99999. 

02  FILLER  PICTURE  XC161  VALUE 

: 71. 


value  zero. 


HIST-VALUE-MAX  Sync  picture  S9999V99  value  -9999.9. 

HIST-VALUE-MIN  sync  picture  S9999V99  VALUE  <9999.9, 

HISI-VALUe-MI  sync  picture  S9999V99  VALUE  <9999.9. 

HlST-NO-OF-OBS  SYNC  PICTURE  S9t5]  VALUE  ZERO. 

HlST-NO-OF-lNTERVALS  SYNC  PICTURE  999V99  VALUE  50. 

HlST-lNPUT-VMAX-VMlN  SYNC  PICTURE  9 VALUE  ZERO. 

hisi-uist  sync  picture  x value  tit. 

HlST-lNUcX  SYNC  computational 

picture  S999  value  ZERO. 
HlST-lNUEx-2  SYNC  computational 

picture  S999  value  ZERO. 

rilSI-TErtP  SYNC  PICTURE  S99999V99  VALUE  ZERO, 

hist-interval-size  SYNC  picture  S999V99  VALUE  ZERO 
COMPUTATIONAL. 

HISr-FLA«i  SYNC  picture  X VALUE  tOt, 

HlST-5CA;.E-VALUE  SYNC  COMPUTATIONAL 

picture  S999  value  <I. 

hist-percent  sync  picture  S999V99  COMPUTATIONAL. 

MIST-CUM  SYNC  picture  S999V99  COMPUTATIONAL. 

hist-line  sync  computational 

picture  5999  VALUE  ZERO. 

HIST-PAOE-FLAO  SYNC  PICTURE  S999  VALUE  <75. 

HIST-LINE-CNT  sync  picture  S999. 


HIST-EHH-1  SYNC 

HIST-tHK-3  SYNC. 
02  FILLER 
02  HI5T-ERK-2 
HISI-tHR-4  SYNC 

HIST-LHH-b  SYNC 


HIST-OUT-RANGE-VALUE  sync 
filler  sync. 

02  FILLER  OCCURS  200  TIMES. 
03  HIST-TABLE 
03  hist-upper-limit 
03  Hisr-TABLE-SCALEO 
HIST-Nt»-PAGE  SYNC. 

02  filler 
02  filler 
02  filler 

02  HISI-PAGE-NO 
02  FILLER 
HIST-TIIlE  SYNC. 

o2  filler 
02  HISI-TITLE-1. 

03  FILLER 
02  HIsT-TITLE-2. 

03  FILLER 
02  HIST-TITLE-3 
02  HIsI-TITLE-4 

02  filler 

t NO  OF  OBSERVATI 


picture  xcio)  value 

TERROR  NO  Ot. 

picture  xtsJ  value  tbs  > t. 
picture  S9C5)  VALUE  ZERO. 
picture  XCIO]  value 

TERROR  MAXt. 

picture  XCIO]  VALUE 
t-MIN  SAD.  t. 


picture  S999  computational. 


picture  S9C5]  computational, 
picture  S9999V99  COMPUTATIONAL. 
picture  S999V99  COMPUTATIONAL. 

picture  X value  111. 

picture  XI 122]  value  space, 
picture  XC5]  VALUE  IPASE  1. 
picture  9. 

picture  X VALUE  171. 
picture  XC3]  value  is  I. 
picture  XCIO]  VALUE  space. 


02  hist-no-of-obs-rpt 

02  FILLER 

I value  max  > I. 
02  HIST-vAlUC-HAx-RPT 
02  FILLER 

I value  min  > I, 
02  NIST-vAlUE-HIN-RPT 
02  FILLER 


R picture  XCIO]  VALUE  SPACE. 
E-3  picture  XCIO]  value  SPACE. 
E-4  picture  xcio]  value  space. 

picture  XC24]  value 
NO  OF  OBSERVATIONS  >1. 


picture  ZZZZ9. 
picture  XC13]  VALUE 

picture  ——,9, 

picture  XC13)  VALUE 
PICTURE  ——.9. 

picture  XCIO]  value 

71. 
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C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C9R970 

C9R97n 

<98970 

098970 

C9897fl 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

098970 

C98970 

C9B970 

C9B970 

C9B970 

C98970 

C98970 

C9B970 

C98970 

C9B970 

C9B970 

C9B970 

C9R970 

C9B970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C9B970 

C98970 

C98970 

C98970 

C98970 

C98970 

C9B970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C9B970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C9B970 

C98970 

C98970 

C98970 

C98970 

€98970 

C9S970 

C98970 

C98970 

C9S970 

C98970 

C98970 

C9B970 

C98970 


••7900 

H7910 

01 

hist-uot-line  sync. 

02  FILLER 

PICTURC  XCS01  VAlUC 

090970 

090970 

••7922 

02 

filler 

picture  xcooj  value 

C96970 

••79^^0 

• 

C96970 

••7950 

01 

HlST-L»bEL  SYNC. 

090970 

••7960 

02 

FILLER 

picture  XCSOJ  value 

C96970 

<•7970 

1/  NIOPNT  PCNT 

CUM  FREQ  1 a • a 5« • • lO • • • a *60# 1 • 

C9S970 

47974 

02 

FltLtR 

picture  xcooj  VALUC  I,. 

C96970 

4796U 

• 

:2S 

• •«3u«.. 35  a • • 40 • « *45 • • «50« • .55. • .50. • «55« • • • •75«  « fSO. « $ 

C96970 

47990 

• 

:ss 

.••9u... 95. a 1 00^ • a 

C96970 

46U00 

01 

HlST-LINt-OUY  SYNC. 

C9S970 

4auto 

02 

FlLLtR 

picture  X VALUC  I/I. 

C96970 

46020 

02 

HI ST-LINE -RPT 

picture  229. 

C96970 

4603U 

02 

filler 

PICTURC  X VALUE  SPACE. 

C96970 

46040 

02 

HIST-RIO-POINT-RPT 

PICTURE  ——.9. 

C96970 

46060 

02 

HISI*oFHCENT-RPT 

picture  229.9. 

C9S970 

46070 

02 

FILLER 

PICTURC  X VALUC  SPAcC. 

C96970 

46060 

02 

HXSI-CUM-RPT 

picture  229.9. 

C9B970 

4B100 

02 

Hl',I-FPtO-RPT 

picture  22229. 

C9697n 

<«NtIU 

U2 

FILL'R 

picture  X VALUE  SPACE. 

C90970 

4012U 

02 

HtSI-POINT  OCCURS  100  TIMES 

C96970 

••Also 

PICTURE  X. 

C96970 

46140 

02 

fill:r 

PICTURC  X VALUE  Ut. 

C96970 

46X50 

01 

HlS|-OUt-H»N6E-HEC  SYNC. 

C96970 

46160 

02 

FILLER 

PICTURE  XCSSJ  value 

C96970 

46170 

:/  number  of  out  of  ranoe  valucs  >i. 

C96970 

46X60 

02 

HISI -out-ranoe-rpt 

PICTURC  229. 

C96970 

98190 

02 

FILLER 

PICTURC  XC91J  value  SPACC. 

C96970 

46X91 

02 

FILLER 

PICTURE  X VALUE  t*t. 

C96970 

46200 

01 

hist-scale-line  sync. 

C98970 

462X0 

02 

fillfr 

picture  XC27J  value 

€96970 

46220 

:/  scalIno  factor  > i. 

€96970 

46230 

02 

hist-scale-rpt 

PICTURC  229. 

€96970 

4o240 

02 

FILLER 

PICTURC  XCOOaj  value  SPACC. 

C98970 

46250 

02 

FILLER 

PICTURC  X VALUE  Ki. 

€96970 

46300 

01 

filler  bYNC. 

C98970 

oaiio 

02 

HIS1-VALUE  OCCURS  2000  TIMES 

C 98970 

90320 

PICTURE  S9999V9  CORRUTATIONAL* 

C90970 

46400 

01 

TASrY-HLC  sync. 

C9B970 

464X0 

os 

TASK7-lbO  PICTURE 

Xa 

C9S970 

98911 

05 

FILLER  picture 

XC9J. 

C98970 

46420 

OS 

TAbK7-lO  PICTURE 

XCU  VALUE  131. 

C9B970 

46430 

OS 

FILLER  picture 

XCl  J. 

C98970 

46440 

05 

tasaT-vuc  picture 

XtSJ. 

C98970 

46450 

05 

filler  picture 

XC5J. 

C98970 

46460 

05 

MtAN-RPT  PICTURE 

S9l  7 JV9. 

C98970 

98970 

05 

FILLLR  picture 

X* 

€98970 

46460 

05 

variance-rpt  picture 

S9C7JV9. 

€96970 

46490 

05 

filler  picture 

XCIOJ. 

C98970 

98bOO 

05 

FILLER  picture 

X VALUE  Kt. 

C98970 

50000 

PROCtOUHE  UIVISION. 

C9B970 

50010 

OPEN  INP'JT  IN-FILE. 

C9B970 

50020 

OPEN  OUTPUT  HIST-FILE. 

€96970 

50030 

MOVt  2000  TO  KNT. 

C98970 

50040 

perform  Reset-table  thru  eno-rst-table. 

C98970 

50050 

REAU  in-fill,  at  end  60  TO 

CLOSE-FILES, 

C9B970 

50X00 

PAHA-X. 

€96970 

501  10 

MOVt  I IT'  HIST-NO-OF-OBS. 

€96970 

50120 

MOVE  9Ut  TO  CUR-WUC. 

C98970 

50140 

HOVt  uata-type-new  to  data- 

TYPE* 

C9S970 

50150 

MOVt  ISt  IRONAL-NER  TO  ISCHRONAL. 

C9B970 

50lhO 

IF 

UAIA-TyPL  is  eoual  to  five  oo  to  meeks-oata  CLSC  .0  TO 

C98970 

b0t70 

flt-oata. 

C 90970 

bA2nO 

REAUl. 

€96970 

b02I0 

KLAu  in-fill,  at  end  00  TO  < 

close-files. 

C98970 

50220 

IF 

UATA-TYPE-NEV  is  eoual  to  191  00  to  CLOK-FILCS. 

C98970 

50230 

IF 

*UL  is  not  equal  to  CUR-i 

XUC  «0  TO  PARA.t, 

C98970 

50250 

AOO 

I To  HtST-NO-OF-OeS. 

C9B970 

50260 

IF 

UATA-TYPt  IS  EOUAL  TO  FIVE  .0  TO  WCERS-OATA  CLSC  .0  TO 

C98970 

50270 

FLT-OATA. 

C9S970 

50300 

PARA-2. 

€96970 

bOJlO 

perform  jET-HISTOO  thru  ENO' 

-SH, 

€96970 

b0320 

perform  reset-table  thru  eno-rst-table. 

€96970 

50330 

60 

ro  PARA-I. 

C98970 

50400 

R^5tT*TADLt. 

090970 

504X0 

MOVt  2tRO  TO  CNI, 

C9B970 

50420 

RST 

• 

C98970 

50430 

ADP 

I To  CNT. 

C90970 

50440 

MOVt  minus-one  to  hist-value  ccntj. 

€96970 

^995 

MOVt  2Er,D  TO  FRtO-HIST-VALUE  CCNTJ, 

€96970 

^0450 

IF 

CNT  IS  LESS  THAN  KNT  60 

TO  RST. 

C90970 

50455 

MOVt  ^tHO  TO  KNf. 

€96970 

50460 

ENl)-HST 

-table.  txiT. 

C90970 

bobio  S&T-HI<;|Ob. 

bOMO  PL.lfOHM  WITC-HISTOORAM  thru  ENO-HIST, 

bObOO  IF  HlbT-FLAG  IS  EOUAL  TO  tit  THEN  00  TO  CFl. 

bOblO  Ann  I to  MO-OF-HISTS. 

b0ii20  ENu-bM.  rxll. 

bluou  RELKb-nATA. 

blUIO  ROVE  ^ERO  TO  CNT. 

blUZO  REEA-A, 

51030  ADD  1 TO  CNT. 

blOHO  IF  OBb  IS  EOUAE  TO  HIST-VALUE  CCNTl  00  TO  RCCK-C« 

blObO  IF  FRE.J-HIST-VALUE  ICNTl  IS  EQUAL  TO  ZERO  00  TO  VEEK-O, 

SlObO  IF  CNT  IS  LESS  THAN  2000  00  TO  REEK-A. 

51070  display  t MURE  THAN  2000  FREQUENCY  OCCURENCES  t UPON  CONSOLE. 

Sioao  00  TO  CAl. 

51090  REEK-B. 

51 100  HOVt  OHS  ' TO  HISf-VALUE  CCNT]. 

51110  IF  CNI  IS  OHEATER  than  ANT  THEN  MOVE  CNT  TO  KNT. 

51120  VEEA-C> 

51130  ADO  I Tu  FREO-HIST- value  ZcNTJ. 

51190  CO  TO  REAoi. 

52000  FLT-OATA. 

52010  MOVE  ZLHl  TO  CNT. 

52020  FLT-A. 

52030  AOn  1 TO  CNT. 

52090  IF  OBb-1  IS  EOUAL  TO  HIST-VALUC  tCNTl  00  TO  FLT-C. 

52050  IF  FHEu-HIST-VALuE  tCNTl  IS  EQUAL  TO  ZERO  00  TO  FLT-R. 

bZUbU  IF  cNT  is  LESS  THAN  2000  00  TO  FLT-A. 

52070  DISPLAY  I MURE  THAN  2000  FREOUENCY  OCCURENCES  t UPON  CONSOLE, 

52000  GO  10  Cfl. 

52090  FLT-B. 

52100  MOVE  0B5-1  TO  HIST-VALUE  CCNTl. 

52110  IF  cNT  is  greater  than  ant  then  move  CNT  TO  KNT. 

52120  FLT-C. 

52130  ADD  1 to  FREO-hIST-VALUE  CCNTl. 

52190  GO  |0  READl. 

52200  close-files. 

52205  PERFORM  SET-HISTOO  THRU  ENO-SH. 

52207  CFl. 

52210  CLOSE  IN-FILE.  MlST-FlLE. 

52211  IF  hIST-FlAO  IS  EQUAL  TO  tit  DISPLAY  t HIST  ERROR  t UPON 

52212  console. 

52215  display  t NO  OF  HISTOGRAMS  > I NO-OF-HISTS  UROH  CONSOLE. 

52220  display  t EOJ  C909T  t UPON  CONSOLE. 

52230  OOBACK. 

95000  COMPUTE-PEAN-VARIANCE. 

95005  IF  HlST-NO-OF-OUS  EOUAL  TO  1 00  TO  CMV-3. 

95010  MOVE  ZERO  TO  CNT. 

95U20  MOVE  ZERO  TO  MEAN. 

95030  CMy-l. 

95090  ADD  I TC  CNT. 

95050  COMPUTE  TEMP-COMP  > HIST-VALUE  CCNTl  • FRCO-HIST-VALUC  CCNTI, 

95060  ADO  TEMP-COMP  TO  MEAN. 

95070  IF  CNT  IS  less  THAN  ANT  00  TO  CMV-1. 

95000  OlVICb  KIST-NO-OF-OBS  INTO  MEAN. 

95090  MOVE  ZERO  TO  CNT. 

95100  MOVE  ZEnO  TO  VARIANCE. 

95110  CMv-2. 

95120  ADD  I TO  CNT. 

95130  COMPUTE  TEMP-COMP  > CCHIST-VALUE  tCN’’!  - MEANl  ••  tl  • 

95190  FREO-HIST-VALUE  CCNTl. 

95150  ADD  TEMP-COMP  TO  VARIANCE. 

95160  IF  CNT  IS  LESS  THAN  RNT  00  TO  CMV-f. 

95170  COMPUTE  VARIANCE  > VARIANCE  / C MIST-NO-Of-OBS  - 11. 

95100  MOVE  mean  TO  MEAn-RPT. 

95190  move  variance  TO  VARIaNCE-RPT. 

95191  GO  TO  CMV-9. 

95192  CMv-3. 

95193  MOVE  ZERO  TO  VARIANCE-RPT. 

95199  MOVE  HIST-VALUE  CIl  TO  MEAN-.RPT. 

95195  CMv-9.  / 

95290  END-CMV.  EXIT. 

97000  mRITE-HISTOORaM. 

97351  PERFORM  COMPUTE-MCAN-VAR  I AMCC 

97352  THRU  END-CMV. 

97356  MOVE  CUI'-VUC  TO  TASKT-WUC. 

97350  MOVE  ISCHRONAL  TO  TASK7-IS0. 

97360  WRITE  HIST-REC  FROM  TASKT-REC. 

99990  ENO-HIST.  EXIT. 

/•  PLACE  COBOL  SOURCE  BEFORE 

//CHO.TFOIN  DO  A.SPACEXCTL.C  1>1 11 

/•  PLACE  TFO  data  BEFORE  THIS  CARO 

//TPR.TUia  00  OISPXOLO.KECPltVOL>SeR>9PltUNlT>T«Fl 

//TPR.TU2S  OD  DISP>C0L0>KCEP1>V0L>SCR>9FB>UN1T>T9F0 

//TPR.TPMIN  00  •iSPACEXTRKiCItIH 

T/P  TUia  1010020Z020 

T/P  TU25  1O1O05OZOSO 


/• 


PLACE  T/P  CONTROL  CAROS  BEPORC  THIS  CARO 


//T9B97N  JOB  OItIBpANB 


I *PRTr>Bf  hTPROMIMOLO 

6-278 


€98970 

C98970 

C98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

.€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

C98970 

€98970 

€98970 

C98970 

C98970 

C98970 

C98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 

€98970 
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€98970 

€98970 

€98970 

€98970 

€98970 

€99970 

IMO  CDS 

Tit 

Tt9 


6.15.5  SORT  UNSCHEDULED  MANHOUR 


//C9B97F  exEC  P9Uc2N> M>06U>  T IME>0H • ACCT>0JS32300'7 

//CMO.SOHTIN  DO  DIbP>t  •KEEP1>UNIT>C*AF5>2>0EFCR1>  CTtt/tS  1 

//  0SN>»E. 9897429*  CT22  t 

//  VOL>SEB>C4Fb*A4F5.B4F5,C4F5.04F5*C4F5*F*F5*0*F5*«4F8*  CT22  3 

//  I*F‘.  •J4P5,KAF5*l-4F5>M4F3>N4FS*0*Fs*P4FS>0AFb«R«FS*SAFS)>CT22  9 

//  CCl»tLRECL>U020*8LKSI2C>18001*LAeCL>t •NSL*RCTPD>0991 

//C»4G.SORTOuT  Do  t)ISP>C  •KEEPl*UNIT>CA4Fi*2*DeF£R)*DSN>4A. 9897930*  CT12/13  1 

//  V0L>SER>t4Fl.A4Fl,B4Fl,C4Fi>D4Fl*e4Fl*F4Fl*6*Fl*H«Fl*  CT12  2 

//  I4FI*J4F1.X*F1.L4FI*R4F1*N4F1.04F1.P4F1.04F1,R4F1.S4F1 J.CT12  3 

//  OCU>CLPbCL>U02a*nLKS12C>18001 

//CHG.srSIN  Do  ••OCB>ULKS17E>0080*SPACE>CTRK*C1*1J] 

SORT  F IElDS>1 017, OU 1 iCH, A* 019*001 •CH*A*001*OOS*CH>A*006>003>CH>AJ>  C 

S12t>E0250000 

MODS  Elb>CElb*UUt)*SOKrLIb*Nl*El8>CE18*029*S0RTLIB*N] 


6.15.6  MEAN  AND  VARIANCE  OF  UNSCHEDULED  MANHOUR 


//C9897N  exEC  P9bbbL*T!ME>lb**CCT>D3S323007 

//CH6. 

TUl^ 

DO  OlSP>t*PASSl*ONIT>tl*Fl*1.0EFE«l*0SN>4A.  9897930* 

CT12  1 

// 

V0L>SER>t*Fl*A4Fl*B*Fl* 

C4F1.04F1.E4F1.F4F1.64F1.H9F1. 

CT12  2 

// 

1*F1*J*F1*R4Fi*L4F1*M4F1*N4F1*04F1*P4F1**4F1*R4F1*S4F1 J 

T12 

//CH<5. 

TU2b 

Do  01SP>C  *PASS1*UNIT>CT4F8*1*0EFER]*DSN>4H. 9897931* 

CT25  1 

// 

VOL>SER>t ♦F8*A4F8*B4F8, 

C4F8.D4F8.E4FB.F4F8.e4F8.H4F8. 

CT2S  2 

// 

l*l-b*J4F8*K*F8*L4F8*M4F8*N*F8*04F8*P4F8*94FB*P4F8*SAFBl 

T25  3 

//tHG, 

iNPUf 

DO  **SPACE>CCrL*Cl*lll 

1990  CDS 

OOUOO 

COHdlNC  compile 

0.  MANO. 

C989T0 

UlUUO 

OATb 

-WRITTLN*  2b  JLT  72* 

C9B9T0 

OIUSO 

HbHARKS. 

C989T0 

OlUbO 

TASK  7-2C  MEAN  VARIANCE 

OF  manhours/ma. 

C989T0 

02U0U 

environment  division. 

C9B9T0 

02U1U 

COnHOUHATIuN  section. 

C9B9T0 

02020 

souHce-cOMP  iter.  ibm«360. 

C9B9T0 

02U30 

ObJtCT-cOMPUTER.  IBM-360, 

C9B9T0 

02100 

INPUT-OuTPOi  SECTION. 

C989Tn 

02110 

file 

, -CONTROL • 

C9B9T0 

02120 

SCLfcCT  IN-PlLt 

ASSIGN  TO  UT»S«TU1» 

C9B9T0 

02130 

reserve  1 alternate  area. 

C989T0 

02140 

SELlCT  t.IST-FILE 

ASSIGN  TO  UT-S-TUaS 

C989T0 

021SU 

reserve  1 alternate  area. 

C989T0 

10000 

DATA 

1 DIVISION. 

C9B9T0 

10010 

file 

. section. 

C9B9Tn 

11100 

FO 

in-file 

C9B9T0 

11120 

recuroi.  g mode  is  f 

C9B9T0 

11130 

block  contains  90  RECORDS 

C9B970 

lllUO 

KECORO  vONTAINS  20 

characters 

C98970 

11  ISO 

label  klcoros  a«e  omitted 

C9B970 

lllbO 

data  keloros  are  in-rec. 

C98970 

11170 

01 

IN-MEL  SYNC. 

C9B9T0 

11180 

02  sue 

PICTURE  KI51. 

C9B970 

11181 

02  HML 

PICTURE  XCSl. 

C989T0 

11187 

02  FILLER 

PICTURE  X, 

C98970 

11183 

02  ObS 

PICTURE  S9t61. 

C9B9T0 

11189 

02  OUS-1  redefines  obs 

PICTURE  S99999V9. 

C9B9T0 

1118S 

02  FILLER 

picture  X, 

C9B9T0 

lllBb 

02  ISChRONAL-NEM 

PICTURE  X. 

C9B9T0 

11187 

02  filler 

PICTURE  X. 

C9B9T0 

11188 

02  DAT/i-TTPE-NEB 

PICTURE  X\ 

C989T0 

11187 

02  FILLER 

picture  X. 

C9B9T0 

12100 

FU 

hisi-file 

C9B9T0 

12120 

RECoROIi.O  mode  is  F 

C9B9T0 

12130 

BLOCK  contains  bO  RECORDS 

C9B9TR 

12140 

RECORD  lOA^TAINS  so 

CHARACTERS 

C98970 

121S0 

labll  RwCords  ake  omitted 

C9B9T0 

12160 

data  hecokds  are  hist-rec. 

C989T0 

12170 

01 

HIST-KLC  STNC. 

C9B9T0 

12180 

02  filler 

PICTURE  XCS01. 

C9B9T0 

30000 

SOKRlNG-sro.lAGC  SECTION. 

C9B9T0 

30010 

77 

KNT  STNC  PICTURE  S9I9J, 

C98970 

30020 

01 

fillek  Sync. 

C9B9T0 

30030 

op  FKE--HIST-VALOE  OCCURS 

1000  times  picture  S9CS1 

C98970 

30040 

COA'OUTATIONAL. 

C9B9T0 

300S0 

01 

A PICTUhE  SVtSJ  COMPUTATIONAL. 

C98970 

30060 

01 

NO-OF-hlSTS  STNC 

PICTURE  9999  VALUE  EERO. 

C989T0 

30080 

01 

ONE  SYNC 

PICTURE  X value  111, 

C9B9T0 

30082 

01 

r«o  SYNC 

PICTURE  X VALUE  I2I. 

C98970 

30090 

01 

CNT  SYn<, 

PICTURE  S9fK7  computational. 

C9B9T0 

30100 

01 

cur-kul-t  sync. 

C9B9T0 

30110 

02  fil.eh 

F'CIURE  Xlsl  value  I «OC>I. 

C989T0 

30120 

02  CUH-9UC 

PICTURE  XC5J. 

C989T0 

6-279 


301  JO 

01 

SY^*C• 

C9897fl 

02  FILLER 

picture 

XCSl  VALUE  I HMC>I. 

C9897d 

301S0 

02  CUM'»HmC 

PICTURE 

XC3]. 

C9897fl 

30160 

02  filler 

PICTURE 

XX  VALUE  SPACE. 

C98970 

30170 

01 

ISCHROtmL  SYNC 

picture 

xT 

C98970 

30180 

01 

oata-ty>e  sync 

picture 

X. 

C98970 

30190 

01 

HINUS^ONE  COMPUTATIONAL 

picture 

S999  VALUE  -1  SYNC. 

C9897fl 

32U00 

01 

REPORT-ID  SYNC. 

C98970 

32U10 

02  FILLER 

PICTURE 

XCSOI  VALUE 

C98970 

32020 

:t9U97B60  TF79I9-01  142-8  1 

1/2  I. 

C98970 

32030 

02  filler 

PICTURE 

XC501  VALUE  SPACE. 

C96970 

32U40 

02  FlLuER 

PICTURE 

XC30]  VALUE 

C98970 

32uSU 

: 

C9B970 

46000 

01 

MEAN  COMPUTATIONAL  SYNC 

PICTURE 

sot  7 Iv 99. 

C98970 

46010 

01 

variance  COMPUTATIONAL  SYNC 

PICTURE 

S9C7  JV99. 

C98970 

46020 

01 

TEMk-COhP 

PICTURE 

S9C7DV99. 

C98970 

47U00 

01 

HIST-V*I.UE-H*X  SYNC 

picture 

S9999V99  vALUE  -9999.9. 

C9B970 

47U10 

01 

HIST-VAlUE-MIN  sync 

PICTURE 

S9999V99  V*LU£  <9999.9. 

C9B970 

4701S 

01 

HiST-VAcUE-MI  SYNC 

PICTURE 

S9999V99  VALUE  <9999.9t 

C9B970 

47020 

01 

HiST-NO*  OF-OeS  SYNC 

PICTURE 

S9C53  value  zero. 

C98970 

47030 

01 

HIST-NO.OF-INTEHVALS  SYNC 

PICTURE 

999V99  VALUE  50. 

C9B970 

47040 

01 

hist-inhut-vmax-vmin  sync 

PICTURE 

9 value  zero. 

C9B970 

47US0 

01 

histoIjT  sync 

picture 

X value  111. 

C9B970 

47060 

01 

hist-in'jEx  sync  Computational 

C98970 

47070 

PICTURE 

S999  value  zero. 

C98970 

47080 

01 

HIST-INOEX-2  SYNC  COMPUTATIONAL 

C9B970 

47U90 

PICTURE 

S999  value  zero. 

C9B970 

47100 

01 

HlST-TtMP  SYNC 

PICTURE 

S99999V99  VALUE  ZERO. 

C9B970 

47110 

01 

hist-interval-sue  sync 

picture 

S999V99  value  ZERO 

C9B970 

47120 

computational. 

C98970 

47150 

01 

HIST-FLaO  sync 

picture 

X value  lOl. 

C9B970 

47160 

01 

HIST-SCALE-VALUE  sync  computational 

C9B970 

»TlTU 

PICTURE 

S999  value  <1. 

C98970 

47180 

01 

HIST-Pt  tCENT  SYNC 

picture  S999V99  computational. 

C9B970 

47190 

01 

HIST-LUM  SYNC 

picture 

S999V99  Computational. 

C9B970 

47200 

01 

HIST-LINE  SYNC  computational 

C9B970 

17210 

picture 

S999  VALUE  zero. 

C90970 

47220 

01 

HIST-PA'iE-FLA.  SYNC 

PICTURE 

S999  VALUE  <75. 

C98970 

17230 

01 

hist-lInE'Cnt  sync 

picture 

S999. 

C9B970 

17300 

01 

HIST-EHc(-l  SYNC 

PICTURE 

XtlOl  value 

C98970 

17310 

lERROR  NO 

01. 

C9B970 

17320 

01 

HIST-tRR-3  SYNC. 

C9B970 

17330 

02  filler 

PICTURE 

Xt51  value  IBS  > I. 

098970 

47340 

02  H1S.-ERH-2 

PICTURE 

S9C53  value  zero. 

C9B970 

17350 

01 

HlST-tR<-1  SYNC 

picture 

XCI01  value 

C9B970 

47360 

lERROR  MAXI. 

090970 

47370 

01 

HlST-tH.<-S  SYNC 

PICTURE 

XC10  3 value 

C9B970 

47380 

I -MIN  bad 

t It 

C9B970 

17390 

01 

HIST-OUI-RANOE-VALUE  sync 

PICTURE  S999  COMPUTATIONAL. 

C98970 

47500 

01 

filler  sync. 

C98970 

47510 

02  FIL..EH  OCCWS  200  TIMES 

. 

C9B970 

17530 

03  hist-tabll 

PICTURE 

S9C53  computational. 

C98970 

47540 

03  HIST-UPPER-LIMIT 

PICTURE 

S9999V99  COMPUTATIONAL. 

C9B970 

17550 

03  HIST-T ABLE-SCALED 

PICTURE 

S999V99  COMPUTATIONAL. 

C9B970 

47560 

01 

HIST-Nt*-PA0E  SYNC. 

C9B970 

47570 

02  filler 

PICTURE 

X VALUE  III. 

C98970 

47580 

02  filler 

picture 

XCI22I  value  SPACE. 

C9B970 

47582 

02  FILwER 

PICTURE 

Xt53  VALUE  IPAOE  I. 

C9B970 

47584 

02  HIS '-page-no 

picture 

9. 

C98970 

47590 

02  FILLER 

picture 

A VALUE  Itit 

C9B970 

47600 

01 

HiST-TllLE  SYNC. 

C9B970 

47610 

02  FIL.ER 

picture 

XC33  value  is  I. 

C9B970 

47620 

02  HIS'-TITLE-l. 

C9B970 

47621 

03  FILLER 

PICTURE 

XCIOl  value  SPACE. 

C9B970 

47630 

02  HlSf-TITLE-2. 

C9B970 

47631 

03  filler 

PICTURE 

XCIOl  VALUE  SPACE. 

C9B970 

47640 

02  H15T-TITLE-3 

PICTURE 

XtlOl  VALUE  SPACE. 

C9B970 

47650 

02  Hlsr-TITLE-1 

PICTURE 

XCIOl  value  SPACE. 

C9B97fl 

47660 

02  filler 

PICTURE 

Xt211  VALUE 

098970 

47670 

: NO  of  OBSERVAilONS  >1. 

C98970 

47680 

02  hisi-no-of-obs-rpt 

PICTURE 

22229. 

C98970 

47690 

02  filler 

PICTURE 

XCI31  value 

C98970 

47700 

t value  max  > It 

C9A970 

47fl0 

ot  hist-value-max-rpt 

PICTURE 

C9B970 

17720 

02  FILLER 

PICTURE 

XCI31  VALUE 

C9B970 

47730 

1 VALUE  MIN  > It 

C98970 

47740 

02  hist-value-min-rpt 

PICTURE 

C98970 

47750 

02  filler 

PICTURE 

XCIOl  value 

C98970 

47760 

; 

Xlt 

C98970 

47900 

01 

hisi-uoi-lihe  sync. 

C98970 

17911 

02  filler 

picture 

XCSOI  VALUE 

C9B970 

47922 

02  FILlER 

PICTURE 

XCSOI  value 

C98970 

47940 

• 

C98970 

6-280 


V 


01 

HIST-L»OtL  SYNC. 

C90970 

*17960 

02 

FlLuEH 

PICTURE  XtSO)  value 

C98970 

*17970 

«/  MIOPNT  PCNT 

CUM  FRCO  1 • • bS* • « to • • • IS* • sSO* 1 • 

C98970 

*1797*1 

02 

filler 

PlCfURC  XC80)  VALUC 

C98970 

•*7900 

• 

125 

•••3jBa«35B* •40« 

• • • 5^  * • • 55* • • bBS* • *70  # • sTS* • sSO* • • 

C98970 

47990 

• 

185 

• ••9jbbb  95 • • lOO^ 1 • 

C98970 

*18000 

01 

HIST-LII4E-0UT  SYNC. 

C98970 

*18010 

02 

filler 

PICTURE  X VALUE  t/1. 

C98970 

*18020 

02 

HlSi-LlNE-RPT 

PICTURE  ZZ9. 

C98970 

48030 

02 

FILLER 

picture  X VALUE  SPACE. 

C98970 

48040 

02 

H15T«H10«P01NT« 

RPT 

PICTURE  -——.9. 

C90970 

48060 

02 

HI51-PEHCENI-RPT 

PICTURE  ZZ9.9. 

C98970 

48070 

02 

FILLER 

picture  X VALUE  SPACE. 

C98970 

48080 

02 

HlSr-CUM-RPT 

picture  ZZ9.9. 

C98970 

48100 

02 

HlSf-FRtO-RPT 

picture  ZZZZ9. 

C90970 

48110 

02 

filler 

PICTURE  X VALUE  SpFCE. 

C98970 

48120 

02 

HISI-POINT  OCCURS  100  TIMES 

C98970 

48130 

PICTURE  X. 

C98970 

48140 

02 

FIL.ER 

picture  X VALUE  lAl. 

C98970 

48150 

01 

HlSY-OU'-RANOE-HEC 

SYNC. 

C98970 

48160 

02 

FILLER 

PICTURE  Xt35]  VALUE 

C98970 

48170 

:/  NUMBER 

OF  OUT  OF  RANGE  VALUES  >i. 

C98970 

48180 

02 

H15r-0UT-flAN0E^ 

•RPT 

picture  ZZ9. 

C98970 

48190 

02 

filler 

PICTURE  Xt9ll  VALUE  SPACE. 

C98970 

48191 

02 

FILLER 

PICTURE  X VALUE  IFl. 

C9B970 

48200 

01 

HISI-SLALE-LINE  SYNC. 

C98970 

48210 

02 

filler 

PICTURE  Xt271  VALUE 

C98970 

48220 

;/ 

SCALING  FACTOR  > 1. 

C98970 

48230 

02 

HIST-SCALE-HPT 

picture  ZZ9. 

C98970 

48240 

02 

F1La.ER 

picture  Xt099]  value  SPACE. 

C98970 

48250 

02 

FIL .EH 

picture  X VALUE  Ui. 

C98970 

48300 

01 

FlLLtH  SYNC. 

C98970 

48310 

02 

H1S(-VAHIE  OCCURS  lUUO  times 

C98970 

48320 

picture  S9999V9  CONPOTATIONAL. 

C98970 

484  00 

01 

TASK7-HtC  SYNC. 

C98970 

48410 

05 

TASk7-IS0 

PICTURE 

X. 

C98970 

48411 

05 

FIL-EH 

picture 

Xt9  3. 

C98970 

48420 

US 

TAs^7-10 

PICTURE 

Xttl  VALUE  Itl. 

C98970 

48430 

'US 

filler 

PICTURE 

Xtll. 

C98970 

48H40 

US 

TASivT-VUC 

PICTURE 

xts]. 

C98970 

48450 

05 

filler 

PICTURE 

X. 

C98970 

40451 

U5 

TASK7-HMC 

PICTURE 

Xt3I. 

C98970 

48452 

U5 

FILLER 

PICTURE 

X. 

C98970 

48460 

05 

Mt.,.4-RPT 

PICTURE 

S9t73V9. 

C98970 

48470 

05 

filler 

PICTURE 

X. 

€98970 

48480 

05 

VAHIANCt-RPT 

PICTURE 

S91TJV9. 

C98970 

48490 

05 

FlLtER 

PICTURE 

xcioj. 

C98970 

48500 

05 

FIL-ER 

PICTURE 

X value  t*I. 

C98970 

bOuOO  PROCEOOHF  DIVISION.  C9B970 


bOOlO  OPEN  INPUT  IN-FILE.  C9B970 
!>0020  OPEN  OUTPUT  HIST-FILE.  C98970 
bOUJO  MOVt  10  lO  TO  FNT.  098970 
b0090  PERFORM  PEStT-TABLE  THRU  END-NST-TAULE.  098970 
bOUSO  READ  IN-FILEr  AT  end  GO  TO  oLOSE-PILES.  098970 
bOIOO  PAHA-I.  098970 
bOIIO  MOVE  I TO  HIST-NO-OF-OBS.  098970 
50120  HOVE  nut  TO  OUR-WUO.  098970 
bOISO  MOVE  HFv  TO  OUP-HMC.  098970 
bOlHO  MOVE  UA I A-TYPE-NEM  to  0ATA-TYPE<  098970 
501S0  move  ISLHMONAL-NEW  TO  ISCHRONAL*  098970 
50160  IF  uATA-Type  NOT  EOUAL  TO  ONE  OO  TO  MEEFS-OAT*  ELSE  OO  TO  098970 
50170  FLT-OATA,  098970 
60200  FEAOl.  C989T0 
60210  HEAu  IN'FILLi  AT  ENO  00  TO  CLOSE'FILCS.  098970 
50220  IF  oaIA-TYPE-NEV  IS  EOUAL  TO  I9I  00  TO  CLOSE-FtLCS.  098970 
50230  IF  KUO  .'S  NOT  EOUAL  TO  CUR-WUC  00  TO  PARA-2,  098970 
b02«0  IF  HMO  is  not  EOUAL  TO  OUR-HMC  00  TO  PARA-2,  098970 
50250  AOO  1 TO  HIST-NO-OF-OBS,  098970 
50260  IF  UATA-TYPE  NOT  EOUAL  TO  ONE  00  TO  MCEKS-OATA  ELSE  00  TO  098970 
50270  FLT-OATA.  C989T0 
50300  PAHA-2.  C9ROTO 
50310  PEPfOHM  SKT-Hisroo  THRU  CNO-SH.  098970 

50320  perform  Reset-table  thru  eno-rsT-table,  090970 

50330  GO  TO  PARA-1.  098970 
bOMOO  RESLT-TaOLE.  098970 
50410  MOVE  2t'(0  TO  ONI,  098970 
5042C  RST.  098970 
50430  AOO  I TU  ONT.  098970 
50440  MOVE  MI.<US-ONE  TO  HIST-VALUE  CCNTJ.  098970 
50445  MOVt  21  HO  TO  FREO-HIST-VALUE  tONTJ.  C9B9T0 
5045U  IF  ONT  IS  LESS  THAN  KNT  BO  TO  RST.  098970 
50455  MOVt  ZERO  TO  KNT,  098970 
50460  ENU-RST-TAt LE.  EXIT.  098970 
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SOblO  SE.T-HlSrOb. 

bOMO  PERFOHH  HR|TE>HIST0GRAM  THRU  ENO>HtST. 

SObOU  IF  HiST-FLAb  IS  EQUAL  TO  lit  THEN  00  TO  CFl. 

bOblO  AOr  I TJ  NO-OF-HISTS. 

bObZO  ENU-SH.  EXlIi 
SlUOO  MELKS-nATA. 

SlOlO  MOVE  £b<0  TO  CNT. 

S1020  WEEK-A. 

S1U30  ADD  1 TO  CNT. 

01040  IF  oes  IS  EQUAL  TO  HIST-VALUE  tCNTl  00  TO  WCEK'C. 

SlUSO  IF  FRL  . -HIST-VALUL  CCNTl  IS  EQUAL  TO  ZERO  Oo  TO  MECK-B, 

blUbO  IF  lNI  is  LtSS  THAN  1000  00  TO  MECK-A. 

blUTO  UISHLAT  : MORE  THAN  1000  FREOUeNCT  OCCURENCES  > UPON  CONSOLE 

blOSO  GO  TO  LFI. 

blUQO  WELK-B. 

bllOO  MOVE  OHS  TO  hist-value  CCNTl. 

OHIO  IF  lnt  is  greater  than  knt  then  move  cnt  to  knt. 

SI  120  HEEK-C. 

51130  add  1 TO  FREO-HIST-VALUE  IcNTI. 

51140  GO  10  HEAOI. 

52000  FLI-UATA. 

S2010  MOVE  Zl 40  TO  CNT. 

52020  FLT-A. 

S2U30  ADD  1 1u  CNT. 

52U40  IF  oeS-1  IS  equal  to  hist-value  ICNTI  QO  TO  FLT-C. 

52050  IF  FRE .-HIst-VALuE  ICNtI  IS  EQUAL  TO  ZERO  00  TO  FLT-B. 

S2060  IF  eNI  is  less  THAN  1000  00  TO  FLT-A. 

S2UT0  OISHLAY  ! MURE  THAN  1000  FREOUENCT  OCCURENCES  I UPON  CONSOLE 

S2ua0  bO  10  CU, 

52090  FLT-0. 

52100  MOVE  OHS-l  TO  HIST-VALUE  CCNTl. 

52110  IF  lnt  is  greater  than  knt  then  MOVE  CNT  TO  KNT. 

52120  FLT-C. 

52130  ADO  I TO  FREO-HIST-VALUE  CCNTI. 

52140  GO  TO  HEADl. 

52ZOO  CLOSE-FILES. 

52205  PERFOH^  SET-HISTOO  THRU  ENO-SH. 

52207  CFl. 

52210  CLOSE  iN-FILE.  HIST-FILE. 

52211  IF  hIST-FLAG  IS  EQUAL  TO  111  OlSPLAT  I HIST  ERROR  I UPON 

52212  CONSOLE. 

5^:215  DISPLAY  ! NO  OF  HISTLQRaMS  > I NO-OF-HISTS  UPON  CONSOLE, 

52220  DISPLAY  ; EOJ  C989TP  I UPON  CONSOLE. 

52230  GOBACK. 

95000  COMPuTE-PEAN-VARIANCE. 


V5005  IF  HISI-NO-OF-OoS  EQUAL  TO  1 00  TO  CMYT-S. 

9S010  MOVE  ZEhO  TO  CNT. 

VSW20  HOVE  ZERO  TO  MEAN. 

V5030  CMv-1. 

V5U40  ADD  1 1 J cnt. 

95050  COMPUTE  TEMP-COMP  > HIST-VALUE  CCNTl  • PREQ-HIST-VALUE  CCNTl 

9S060  ADO  TEHh-COMP  TO  MEAN. 

95070  IF  cnt  is  less  than  knt  00  TO  CMV-I. 

9SUnu  DIVIDE  NIST-NO-OF-OUS  INTO  MEAN. 

95090  MOVE  ZERO  TO  CNT. 

VSlOO  MOVE  ZERO  TO  VARIANCE. 

9S110  CMv-2. 

95120  ADO  1 TO  CNT. 

95130  COMPUTE  TEMP-COMP  > CCHIST-VALUC  CCNTl  - MEANl  ••  Z1  • 

95140  FREQ-HISY-VALUE  CCNTl. 

951S0  ADO  TEMP-COMP  TO  VARIANCE. 

9S160  IF  CNT  IS  LESS  THAN  KNT  CO  TO  CMV-Z. 

95170  COMPUTE  Variance  > variance  z c hist-no-op-obs  - il. 

95180  MOVE  mean  to  MEAN-RPT. 

95190  MOVE  variance  TO  VARIANCE-RPT. 

95191  GO  TO  LmV-4. 

95192  CMv-3. 

95193  MOVE  ZERO  TO  VARIANCE-RPT. 

95194  HOVE  HIST-VALUE  I 1 1 TO  MEAN-RPT. 


95195  CMv-4. 

95290  ENU-CMV. 

97000  MRITE-HISTOGRAM. 

97355  PEPPORM  COMPUTE-MEAN-VARIANCE  THRU  CNO-CMV. 

97355  HOVE  CL'R-WUC  TO  TASKT-VUC. 

97357  MOVE  tUR-HMC  TO  TASK7-HMC. 

97358  MOVE  ISCHRONAL  TO  TASK7-IS0. 

97360  VRITE  HIST-REC  PROM  TASK7-REC. 

99990  ENU-HIST.  EXIT. 

/•  PLACE  COBOL  SOURCE  BEPORE  THIS  CARO 

//CHO.TPQIN  DU  ••SPACOCCTL.Cl.lIl 

/•  PLACE  TPG  DATA  BEPORE  THIS  CARO 

//TPR,TU12  00  DISP>COLO>KCCPI.VOL>SeR>*PltUNIT>T*Pl 

//TPR.TUas  00  OISP>COLOiPEEPliVOL>$CR>APB,UNIT>T*PB 

//TPR.TPRIN  DO  *,SPACE>CTRK.C1.|11 

/T/P  TU12  1010020Z020 
TU25  1010050ZOSO 


T/P 

/• 


PLACE  T/P  CONTROL  CAROS  BCPORE  THIS  CARO 


C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C9B970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C98970 

C9S970 

C98970 

C98970 

C9n970 

C989T0 

C98970 

C98970 

C989T0 

C98970 

C90970 

C98970 

C989T0 

C98970 

C9B970 

C989T0 

C98970 

C98970 

C98970 

C98970 

C98970 

C989T0 

C98970 

C989T0 

C98970 

C98970 

C98970 

C98970 

C98970 

C9897n 

C98970 

C98970 

C9B970 

C9B97n 

C9B97n 

COBOTO 

C98970 

C98970 

C9B970 

C9B970 

C9B9T0 

C9B970 

C989T0 

C9B9T0 

C9B9T0 

C98970 

C9B9T0 

C9B9T0 

C9B970 

C98970 

C9B970 

C9B970 

C98970 

C989T0 

C9B970 

C98970 

C9B970 

C9B970 

C98970 

C9B970 

C98970 

1990  COS 

Til 

TIB 


6. 15.  7 MERGE  AND  ADD  WUC  GROUP  IDENTIFICATION 


//T9897A  JOB 
//C9897A  tXEC 
//CHG.TUli 
// 

// 

//CHG.TU14 

// 

// 

//CHG.TUlb 

// 

// 

//CHG, IU2£ 

// 

// 

//CHG, INPUT 
00000 
01000 
OIUIO 
01020 
01030 
01040 
OlOSO 
U1U60 
01070 
02U00 
02010 
02U20 
02030 
02100 
02110 
02120 
02130 
02140 
02100 
02160 
02170 
02180 
02190 
02200 
02210 
loooo 
loolo 
11100 
11120 
11130 
1I1'.0 
11150 
11160 
11170 
12100 
12120 
12130 
12140 
12150 
12160 
12170 
I3I00 
13120 


01 >:  HANG  iiPHTY>02iTYPRUN>HOLD 

P9h35L • T I ME>03« ACCT3D3532300T 

DU  OISP>C iPASSliUNlT>CT4F2il>0EFER1t0&N>«B.989T«60t 
V0L>SER>C«F2iA4F2iB«F2iCAF2i04F2>e«F2.F6F2>G»F2>H6F2* 
14K.:>J4F2>K«F2iL4F2iM«F2iN6F2i0*F2tP4F2>0*F2«R6F2>S6F2l 
00  0ISP>C.PASS].UNlT>tT4F3>l>0eFeR1>0SN>«C.«89T*3l» 
V0L>SER>C«F3iA4F3iB4F3iC6F3>0*F3>E4F3>F»F3*86F3>HAF3« 
1'»F3>J4F3>K4F3>L«F3>M4F3>N4F3>0*F3>PAF3>*'»F3«||6F3>S6F3) 
DO  01SP>CiPASS]iUNlT>tTAF«>l«0eFeil]>DSN>40.«89T931« 
V0L>SER>C4F4iA4F4(B4F4(C'»F«t04F«te«F««F»F»t06F*«H6F«> 
I*F4>J*F4.K4F4.L4F«lMAF«iN4F«tO«F«tP«F«>0*F4,R6F*«S4R*l 
OD  UISP>C  •KEEP].UN1T>CT«FS>1>0CFCR]>0SN>AC.9MT«83> 
V0L>SER>C*Fb>A4FSiB4FS>C4FS*04FSteAF8tF4FB*86F9>H6F>> 
I+Fj.j*F5.K*FS»L4F5«M*F5«N6FS»0*F5*P4F5*0»P8*I16F8*S»FBJ 
DO  •tSPACE>CCYL(Cl>111 
CUMuINE  compile  8.  HAN8. 

lULNTlFlCAl ION  01V1510N, 

PKObKAM.IU.  C9897 
AUTHOR.  A.  J.  POHKLH 

lNbTALLATlU>4.  general  OYNAMICS/CONVAIR. 

UATE-WRlTTEii.  2b  JLY  72. 

REMARKS.  PhOcRAM  VI 1 

ado  group  identification 
AND  merge  data, 
environment  division, 
configuration  section. 

SOUHCE-LOMPoTER.  IBM-360. 
object-computer.  IBM-360. 
input-output  section, 
file-conthoi.. 

select  in-file-1 

reserve  I alternate  area, 
select  in-file-2 

BESeRVE  1 alternate  area, 
select  IN-FlLE-3 

reserve  I alternate  area, 
select  eAHO-FILE 

reserve  1 alternate  area, 
select  outfile 

reserve  1 alternate  area. 

DATA  OlVlblvN. 

file  selTio  ■. 

FO  IN-FILL-1 

RECORUIhG  mode  is  f 
block  CJNTAINS  60  RECORDS 
KECURU  contains  so 
label  records  are  omitted 
DATA  records  are  IN-REC-1. 

01  IN-rEC-I 
FO  in-file-2 

RECORDING  mode  IS  F 

block  Contains  6o  records 
record  CONTAINS  50 
label  records  are  omitted 

DATA  RECORDS  ARE  lN-REC-2. 

01  IN-REC-C 
FD  in-file-3 

RECORDING  mode  IS  F 


ASSIGN  TO  UT-S-TUIS 
assign  to  UT-S-TU18 
ASSIGN  TO  UT-S-TUIB 
assign  to  DA*S«oT01 
ASSIGN  TO  UT-S-TU2t 


characters 


picture  WSO], 


CHARACTERS 


PICTURE  HSOI. 


CT13  1 

CT13  2 

T13  3 

CT1«  1 

CT19  2 

Tl*  3 

CTIS  1 

CTIS  2 

T15  3 

CT22  1 

CT22  2 

T22  3 

1440  CDS 

C9B9T0 
C9B9T0 
C9B9T0 
C989T0 
C9B970 
C9B9T0 
C9B9T0 
C9B9T0 
C9B9T0 
C9B9T0 
C9B9T0 
C989T0 
C9B9T0 
C989T0 
C9B9T0 
C9B9T0 
C9B9T0 
C989T0 
C9B9T0 
C9B970 
C9B970 
C9B970 
C9B970 
C9B9T0 
C9B970 
C 98970 
C909T0 
C909T0 
C909T0 
C909T0 
C909TO 
C9O9T0 
C989T0 
C989T0 
C90970 
C9G970 
C909T0 
C989T0 
C989T0 
C98970 
C98970 
C909TO 
C9G9T0 


13130 

BLOCK  CONTAINS  60  RECORDS 

C9B9T0 

13140 

RECORD  CONTAINS  50 

CHARACTERS 

C989T0 

13150 

lapel  records  are  omitted 

C989T0 

13I6U 

data  records  are  lN-REC-3. 

C989T0 

13170 

01 

IN-hEC-J 

PICTURE  USOI. 

C989Ta 

14100 

FO 

caru-f ile 

C989T0 

14120 

recording  mode  is  f 

C989Ta 

14130 

BLOCK  contains  20  RECORDS 

C 98970 

14140 

RECoRU  CONTAINS  00 

CHARACTERS 

C9B970 

141S0 

label  records  are  STANDARD 

C9B970 

14160 

DATA  RECORDS  ARE  CARO-REC. 

C9B970 

14170 

01 

CARU-Rt; 

PICTURE  XtOOI. 

C9B97a 

15100 

FO 

OUTFILE 

C9B970 

15120 

recuPuinG  mode  is  F 

C9B97fl 

15130 

BLOCK  CONTAINS  60  RECORDS 

C9B970 

15I4U 

RECORU  CONTAINS  50 

characters 

C9B970 

15150 

label  RECORDS  ARE  OMITTED 

C9B970 

15160 

data  RECORDS  ARE  OUT-REC. 

C9B970 

6-283 


lbl7U 

01 

OUT -REE 

picture  X1501. 

C989T8 

30U0O 

WOKKlNG-ST&><8Ge  section. 

C98970 

30010 

77 

L4ST-VUE-1N 

PICTURE  XtSl  value  SPACE. 

C98970 

30U20 

77 

INDtX-1  COMPUTATIONAL 

picture  5999  VALUE  ZERO. 

C98970 

30U3U 

77 

INCtX-2  COMPUTATIONAL 

picture  S999  VALUE  ZERO. 

C989T8 

30U40 

77 

MAX-NUM-WUC  COMPUTATIONAL 

picture  S999. 

C98970 

30USO 

77 

MAX-sPEL-wuc  computational 

picture  S999. 

C98970 

30060 

77 

NOM-PtC-1  computational 

picture  S9t6i  value  zero. 

C98970 

30U70 

77 

NUM-RtC'2  computational 

PICTURE  S9t6]  value  ZERO. 

C98970 

30U80 

77 

NUM-RbC-3  computational 

picture  S9C*]  value  zero. 

C98970 

30U90 

77 

num-out-rec  computational 

PICTURE  S9C6]  VALUE  ZERO. 

C98970 

30100 

77 

CUR-GHh--lD 

PICTURE  S999. 

C98970 

30110 

77 

CUR-MUC 

picture  XCSl. 

C98970 

30120 

77 

TEMP- MUM 

picture  9t6l. 

C98970 

3013U 

77 

NINE 

PICTURE  XCSOl  value 

C98970 

30140 

• 9999999999999999999999999999999999999999999994999* I . 

C98970 

40000 

01 

huc-tahlE  sync. 

C98970 

40020 

05  WUC-TaBLE-S  occurs  50  TIMES  PICTURE  XXXXX. 

C9897(l 

40100 

01 

SPEC-WUC-TAa  SYNC* 

C98970 

40120 

05  spec-wuc-taule  Occurs  20  times  picture  xxxxx. 

C98970 

40200 

01 

oata-in-rec  sync. 

C98970 

40210 

05  ISai.HRONAL 

PICTURE  X. 

C98970 

40220 

05  GHOOP-IU 

picture  99. 

C98970 

40230 

05  tiller 

picture  X. 

C98970 

40240 

05  GHOuP-WUC 

PICTURE  XtSl. 

C98970 

40250 

05  TILlEr 

PICTURE  X. 

C98970 

40260 

05  REC-IO 

PICTURE  X. 

C98970 

40270 

05  TILlER 

picture  X. 

C9897fi 

402A0 

05  »UC -IN 

picture  XtSl. 

C98970 

40290 

05  TILLER  HEOEPINES  WUC-lN. 

C98970 

40300 

10  VUC-1N«*2 

ficturc 

C98970 

40310 

10  FILLER 

PfCTURC  XXX 9 

C98970 

40320 

05  TILLER  REOCPINES  KUC-IN. 

C98970 

40330 

10  VUC-IN-S 

PICTURE  XXX. 

C 98970 

40340 

10  tiller 

PICTURE  XX. 

C98970 

40350 

05  TILLER 

PICTURE  X. 

C98970 

40360 

05  HMC 

picture  XXX. 

C98970 

40370 

05  T ILLER 

picture  X. 

C98970 

40380 

05  TILLER 

picture  9t71V9. 

C9e970 

40390 

05  tiller 

PICTURE  X. 

C9B970 

40400 

05  tiller 

PICTURE  9f71V9. 

098970 

40410 

05  TlLkER 

PICTURE  X. 

C98970 

40420 

05  TILeER 

PICTURE  9t7JV9. 

C9S970 

40430 

05  tiller 

PICTURE  XX. 

C96970 

40700 

01 

NUR-VUC-REC  SYNC. 

C 98970 

40710 

05  NU«  WUC 

PICTURE  99. 

C98970 

40720 

05  TlLtER 

picture  XI 781, 

C 98970 

40730 

01 

vuc-in-kec  sync. 

C9B970 

40740 

05  MUC 

PICTURE  XtSl. 

C9B970 

40750 

05  tiller 

PICTURE  XtT5l. 

C98970 

40800 

01 

WUC-TEMR  SYNC 

PICTURE  XXXXX. 

C9B970 

40810 

01 

filler  redefines  vuc-temp. 

C9B970 

40820 

05  WUC-TEMp-2 

PICTURE  XX. 

C9B970 

40830 

05  FILuER 

picture  XXX. 

C9B970 

40840 

01 

filler  redefines  vuc-temp. 

C9B970 

40850 

05  MUC-TEMP-3 

PICTURE  XXX. 

C98970 

40860 

05  TILLER 

PICTURE  XX. 

C98970 

40870 

01 

filler  REUEFINES  MUC-TEMP. 

098970 

40880 

05  tiller 

PICTURE  XX. 

C98970 

40890 

05  VUL-TEMP-3D1G 

PICTURE  X. 

C98970 

40900 

05  TILeER 

PICTURE  XX. 

C98970 

50U0O 

procedure  division. 

C9B970 

50010 

open  lllRUT  IN-FILt-1. 

C98970 

50U20 

IN-FILe-2. 

C98970 

50  030 

IN-FILe-3. 

C98970 

50040 

CARD-TILE. 

C9B970 

50050 

OPEN  OUlPUT  OUTTILE. 

C98970 

50100 

REAu  CAi'D-TlLE  INTO  NuM-WUc 

-REC'  AT  END  00  TO  CLOSE-FILES. 

C9B970 

50110 

MOVL  2EI<0  TO  lNUEX-1. 

098970 

50115 

MOVfc  nur-uRjc  to  max-num-muc 

• 

C98970 

50120 

INPUT-VUC-LiST. 

C9B970 

50130 

ADD  I T'}  INOEX-l. 

C98970 

50140 

read  card-file  Into  wuc-in-rec.  at  end  go  to  close-files. 

C98970 

50150 

MOVL  vuo  TO  NUC-TABLE-S  C INOEX-l I. 

C98970 

50170 

IF  INUE  1-1  IS  LESS  than  NUM 

-WUC  00  TO  INPUT-HuC-tlST. 

C9B970 

50200 

REAU  CARO.TILE  INTO  NUM.WUC 

-REC.  AT  END  00  TO  CLOSE-FIlES. 

C9«970 

50210 

MOVE  2ErO  to  INUEX-l. 

C9B970 

50215 

MOVE  NU.—VUC  TO  MAX-SPEC-MUC. 

098970 

50220 

INPUT-SPtt-^UC-LIST . 

C9897fl 

50230 

ADO  I TO  INOEX-l. 

C98970 

50240 

read  CAR0>FILE  INTO  WUC-IN.RECA  AT  END  M TO  CLOSS-FILCS. 

C98970 

50250 

HOVE  MUL  TO  SPCC-WUC-TANLE  < 

C INOEX-l 1. 

C98970 

50270 

IF  inuea-i  Is  less  than  nun 

-HUC  00  TO  |NPuT-SP€C-llUCK.tST. 

C9B970 
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51U00  RE«D-FIlE-I.  - 

SlOlO  READ  IN-FlLE-1  INTO  OATA-IN-REC*  At  CNO  *0  TO  REAO^ILE-t> 

9IU1S  ADT  1 TO  MIIM-REC-1i 

51U»U  PERAOMM  PMOClSS-RUC  THRU  ENO^-«< 

91U30  . 00  fO  ILE-1. 

bllOU  REAU-FIlE-2. 

51110  REAU  IN-FILL-2  into  OATA-IN-REC'  AT  END  M TO  REA0^1LE*9« 

51115  ADO  1 TO  NUN-REC-2. 

51120  PERAORk>  RROCESS-WUC  THRU  ENO-R-M* 

51130  00  TO  H'.A0-FILE-2. 

91200  R£A0-FlLf.-3. 

91210  MEAU  IN-FILL-3  into  DATA-IN-REC*  AT  END  00  TO  CLOSE-RILESf 

51215  add  1 Til  NUM-HEt-3t 

51220  PERFOHM  PpoceSS-WUC  THRU  ENO*R-R« 

51230  60  TO  Ht.AO-FILE-3. 

52000  PROCLSS-MUC. 

52010  IF  DUO-IN  IS  EOUAL  TO  LAST-WUC-IN  90  TO  MRITE-OUTREC. 

52015  MOVE  5PlC-DUC-TABLE  C 1 1 TO  MUC-TEMP. 

52020  IF  dUC-:n-2  IS  bOUAL  TO  DUC-TEMP-2> 

52030  60  TO  PROCESS-SPEClAL-NUC. 

520DO  HOVb  2£kO  TO  INUEX-1. 

52050  TEST-WUO. 

52060  ADD  I Ti'  INOEX-1. 

52065  HOVE  dUC-TAULE-5  C INDEX-I  I TO  MUC-TEMP. 

52070  IF  dUC-iN-2  is  tOuAL  TO  WUC-TEHP-2> 

52060  GO  TO  SAHe.MUC-2. 

52090  IF  INUbx-1  IS  LESS  THAN  MAX-NUH-WUC  60  TO  TEST-MUC. 

52100  MOVE  SPACE  TO  LAST-MUC-IN, 

52110  60  TO  EI<U-P-H. 

52200  SAHC-MUC-2. 

52205  move  dUC-TAULE-S  tINOEX-11  TO  MUC-TEMP. 

52210  IF  DUb-lEMP-30l6  IS  EOUAl  TO  SPACE 

52220  GO  TO  MRITE-OUTREC-1. 

52230  IF  DUt-  N-3  IS  EOUAL  TO  MiJc-TEMP-3  60  TO 

52240  MRITE-OUTREC-1. 

52250  ADD  I Tu  INUEX-1. 

52260  IF  IMUL.-1  IS  GREATER  THAN  MAX-NUM-MUC 

52270  DISPLAY  I PKOULEM  |N  SAME-MUC-E  I UPON  CONSOLE 

52200  60  TO  close-files. 

52290  60  rO  S-ME-DUC-2. 

52400  dHITL-OUTHei.. 

52410  HOVE  CUW-ORP-IO  TO  OROUP-ID. 

52420  HOVE  CUR-MUC  TO  GROUP-wUC. 

52430  mRITE  OuT-REC  FHOM  DATA-IN.REC. 

52440  ADD  1 r NUH-OUT-HEC. 

52450  MOVE  MU'.-IN  TO  LAST-MUC-IN, 

52460  CO  10  LiiO-P-w, 

52500  PHOCESS-SPE.IAL-WUC, 

52510  MOVE  1 lO  INnEX-2. 

52520  IF  y.lic-lN  IS  EOUAL  SPEC-MUC-TABU  tINOEX-23  00  TO  SPEC-MUC-l 

5260J  PH0tESS-SPEv.-DUC-3. 

52f.|0  AOP  I fJ  INOEX-2. 

52615  HOVE  SPIC-MUC-TABLE  tIN0EX-2J  TO  MUC-TEMP. 

52620  IF  DUL-IN-3  IS  EOUAL  TO  MOC-TEMP-3 

52630  CO  TO  SPEC-MUC-l. 

52640  IF  INUEX-2  IS  LESS  THAN  HAX-SPEC-MUC  GO  TO 

52650  PBOCESS-SPEC-MOC-3. 

52660  HOVE  SP«CE  10  LAST-MUC-IN, 

52670  GO  TO  Ei-D-P-W, 

52700  SPEC-MUL-1 • 

52710  COMPUTE  CUR-r.RP-IO  > INOEX-2  < MAX-NUN-MUC. 

52720  MOVE  SPLC-MUC-TABlE  CINOCX-2]  TO  CUR-MUC. 

52730  CO  TO  MHITE-OUTREC, 

52000  MRITE-OoTHEL-1. 

52810  HOVE  INUEX-1  TO  CUR-ORP-IO. 

52S20  MOVE  HUC-TAULE-9  C INDEX-1 1 TO  CUR-MUC. 

52030  GO  TO  dkITE-OUTREC. 

52990  ENO-P-M,  EXIT, 

5S00U  close-files, 

5SU10  HOVE  NUM-REC-1  TO  TEHP-NUM. 

55020  display  I NO,  RECS  FILE  1 I TEMP-NUM  UPON  CONSOLE. 

55030  MOVE  NUM-REC-2  TO  TEMP-NUM. 

55040  DISPLAY  > NO,  RECS  FILE  2 I TENP-NUM  UPON  CONSOLE. 

55050  HOVE  NUH-peC-3  TO  TEMP-NUM. 

5SU6U  DISPLAY  ; MO.  RECS  FILE  3 I TEMP-NUM  UPON  CONSOLE. 

55070  MOVE  NUi-i-OuT-REC  TO  TEMP-NUM. 

55080  DISPLAY  ; NO.  OUTRECS  I TEMP-NUM  UPON  CONSOLE. 

55100  COMPUTE  iNDEX-l  > NUM-OUT-REC  - NUH-OUT-REC  / 00  • 00, 

5S110  IF  INDEX-l  IS  EUUAL  TO  2ER0  GO  TO  CF-1. 


096970 
C9S970 
C969T0 
C9A970 
C9S9T0 
C9B970 
C9B970 
C9B9T0 
C9B970 
C9S9T0 
C9B970 
C9B9T0 
C9B970 
C9B970 
C96970 
090970 
C9B970 
C9B970 
C9B970 
C9fl9T0 
C9B970 
C9B970 
C9B970 
C9B970 
C9B970 
096970 
C9B9T0 
C9B970 
C9B970 
096970 
C96970 
C96970 
C96970 
C969T0 
C969T6 
C96970 
C96970 
C969T0 
C969T6 
C969T0 
C969T0 
C969T6 
C969T0 
C969T0 
C969T0 
C969T0 
C96970 
C969T0 
096970 
C969T0 
C96970 
C96970 
C969T0 
096970 
C969T0 
C96970 
C96970 
C969T0 
C969T0 
C96970 
C96970 
C 96970 
C 96970 
C969T0 
C969T0 
C96970 
C969T0 
C96970 
C969T0 
C96970 
C989T0 
C96970 
C969T0 
C96970 
C969T0 
C969T0 
C969T0 
C969T0 
C989T0 
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»120  CF-2. 

55130  MITE  OUT-REC  RHON  NINCt 

551<i0  «00  1 1U  INOCX'l. 

55150  IF  IM)eX"l  IS  LESS  THAN  60  60  TO  Cf-t, 

55200  CF-1. 

55210  CLOSE  IN>FILE-1« 

55220  IN-FILC-2« 

55230  IN>FILE>3« 

552<l0  C«RO-FILC« 

55250  OUTFILE  WITH  LOCK. 

55260  DISPLAY  t EOJ  C900T  I UPON  CONSOLE. 

55270  60BACK. 

/•  PLACE  COBOL  SOURCE  BEFORE  THIS  CARO 

//CHO.TFOIN  DO  ••SPACE>CCYL«C1>1 11 

00000  OCT  TFO 

010001  019999  replace 

TFO  0101  11  0202000 

«3 


IIJ 

IIK 

11 

120 

12 

13C 

13J 

13 

19 

23K 

23M 

23N 

230 

23S 

23 

91F 

91 

92E 

92F 

920 


92 

99 

9SL 

950 

95 
96A 
96C 
960 
96H 
96J 

96 

97 


•9A 


99 


BANO 


51 

52 
55 
63 
65 
71 
75 
93 
97 
11 

79000 

T9A 

790 


79t 

T90 

79F 

79H 

T9K 

79L 

79P 


790 

•END 


/• 


//TPR.TU13 
//TPR.TU19 
//TPR.TU15 
//TPR.TUai 
//TPR.TPRIN 
T/P  TU13 
TU19 
TUIO 
TUta 
OTOl 


PLACE  TFO  DATA  BEFORE  THIS  CARO 


T/P 

T/P 

T/P 

T/P 


/• 


DU  OISP>COLO«KCEPl«VM.>SCM>9P>*UNn>T«Pa 
DO  0ISPXM.0.KEEPl«VaL>SCR>*F3«UNtT>T*P3 
DU  0ISPX0L0.HaPl«V0L>SCR>«P9«UNIT>T*F9 
DO  0tSP>C0L0fREEPl«V0L>KR>*f*«UNtT>T9F> 
DO  ••SP6CEXTRK«C1»111 
10100502050 
10100512060 
10100502060 
10100602060 
lOlOOOOZOBO 


PLACE  T/P  CONTROL  CAROS  OIPORC  TNlS  CMO 


C 90970 
090970 
090970 
C9B9T0 
C90970 
090970 
C9S970 
C9S970 
090970 
C9S970 
C9S970 
C9B970 

1990  COS 
e9B970*T 
•T 


TIS 

T19 

TIB 

Tit 
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6.15.8  SORT  MANHOUR  AND  NORM  DATA 


//C9S97S  EXEC  PV6<2Ni«>199>TlME>02>ACCTM]3S3i3DD7 

//CHO.SORTIN  OU  01SP>C  •KEEP]>UN1T>CT«FS>1>0EFER  J>  CT2*  1 

//  OSN>*E. 9097463.  0722  t 

//  V0L>SeR>[AFs>**PS.B*Fs.C*FS.04Fb.E«F5>F«Fs.«APS.H«F9.  CTtt  S 

It  lAF6>jAFS.K4F3>L4FS.M*FS.N«FS»ft«FS.PAFS.0*F5.R«F5.S4fBJ>CT2t  4 

//  OCH>CLRECL>OOSO.BLKSt2E>3000J.LABEL>C>NSL.RETPD>049J 

//CH6.S0RT0UT  00  01SP>C  .KEEP].UN1T>CT4F1.1»0EFERJ»DSN>AA. 9297464.  CT12  1 

//  V0L>SCR>t4Fl.A4Fl,e4Fl,C4F1.04Fl»E4Fl.F4Fl»9rfl.H4Fl»  CT12  t 

tt  I4Fl.J4Fl.X*Fl.L*Fl.M4Fl.N4Fl»04Fl»P4Fl.B4Fl,R*Fl.S4FlJ»CTia  S 

//  0CB>CLRECL>00S0.BLKSt2C>30003 

//CHA.STSIN  00  ••OCe>HLKS12E>OOsO»SFACE>tTRK.Cl»lJl 

SORT  F1ELOS>[001.001.CH.A.002.002.CH.A.019.00S.CH.A.019.00S.CH.O.  C 
Oll.OOl.CH.A J.S12E>EaOSOOOO 
MOOS  ElS>[Elb.008>S0RTLlU.N].Ela>{E18«024.S(MTLtB.Nl 


6.15.9  MEANS  OF  WUC  SET 


//r9S97H  JUB  01 >:  WANG  1 •PRTV>02«TTPRUN>HOLD 

//C9897H  fcxtc  P96b5L.TlHE>05.ACCT>03532300T 

//CHO. 

TU12  00  l)lSP>C>PASS].UNlTXT«Fl.l»0CFtRl.DSN>4A.«MT969> 

CT12  1 

// 

VOL>SeR>C ♦FI • A^Pl tB^ri 

.C4F1.0*F1.E4F1,F«F1.0«F1.H4F1. 

CT12  2 

// 

l.ri>J.Fl.K4Fl.L.Fl.M4Fl.N«Fl>04Fl.P4Fl>0«Fl.R«Fl.S4Fl] 

T12  3 

//CH6. 

TU23  OU  0SN>»P.989746S.SPACE>CCYL#C009»0eill 

D23-OUT 

//CHO* 

1U24  OU  0SN>4P, 9897466. SPACEKCY|.»t009. 00111 

Da4-0UT 

//CHO. 

INPUI  OU  *.bPACb>CCYL.Cl.lll 

144D  CDS 

oouoo 

COM.tiNE  COMPILE 

0.  BAN# 

C9B9T0 

UlUOO 

lOtNIlFlCAriON  UIVISION. 

C9B9T0 

OlUlU 

PRObHAM-lU.  C9897 

C9B9T0 

01020 

AU1HOR.  A.  J.  BOwKEK. 

C9B9T0 

U1030 

installation.  GENERAL  OTNAMtCS/CONVAlR. 

C9B9T0 

U1U4U 

OAIL-WPIULN,  27  JLY  72, 

095970 

UlUSU 

remarks. 

C9S9T0 

01 060 

TASK  VI 1-5 

C969T0 

01070 

lompute  pass  no  1 

♦ 

C989T0 

02000 

environment  division. 

C989T0 

02010 

configuration  section. 

C9S9T0 

02020 

source-computer.  18M-360. 

C989T0 

02030 

OUJECT-LOMPUTER.  IBM-360. 

C9S9T0 

02100 

inrut-outpui  section. 

C9B9T0 

02110 

file-control. 

C9B9T0 

02120 

SELtCT  r.-FlLE-l 

ASSION  TO  UT-S-TUK 

098970 

02130 

RESlRVE  1 alternate  area. 

C989T0 

02140 

select  file-2 

ASSI8N  TO  UT-S-TUt9 

C989T0 

021S0 

RtSEHVE  1 alternate  AREA. 

C989T0 

02160 

SELtCT  f:le-3 

ASSION  TO  UT-S-TUE4 

C989T0 

02170 

RLSLRVE  1 alternate  AREA. 

C989T0 

louoo 

data  division. 

C989T0 

10010 

file  section. 

C989T0 

11100 

FO  1N-F1LL-: 

C9S9T0 

11110 

C989T0 

11120 

recording  mode  is  f 

C989T0 

11130 

block  COT.'TAINS  60  records 

C989T0 

11140 

RECORD  CONTAINS  50 

characters 

C989T0 

11160 

LABEL  HtCORUS  ARE  OMITTED 

C989T0 

11160 

OATa  records  are  lN-REC-1, 

C989T0 

11170 

01  IN-REC-I  SYNC. 

C989T0 

11180 

05  ISO 

PICTURE  X, 

C989T0 

11164 

05  GHP-lU 

PICTURE  XX. 

C98970 

11166 

05  FILLER 

picture  XtTl, 

C9B9T0 

11190 

05  UU 

PICTURE  X. 

C989T0 

11200 

05  filler' 

PICTURE  X, 

C959T0 

11210 

09  WUC 

PICTURE  X(B1. 

095978 

11220 

Ob'  filler 

PICTURE  X. 

C989T0 

11230 

05  Data. IN. 

C959T0 

11240 

10  FILLER 

PICTURE  Xt41. 

C959T0 

11250 

10  r-WH-MA 

PICTURE  9CT1V9. 

095970 

11260 

10  filler 

PICTURE  X. 

095970 

11270 

10  var-norm-ma 

PICTURE  9t7JVf, 

C9S970 

11280 

10  filler 

RICTURC  XE91. 

C95970 

11290 

05  filler 

PICTURE  XX. 

095970 

12100 

FU  FlLE-2 

095970 

12110 

C9O9T0 

12120 

RECORUINO  mode  IS  F 

C959T0 

112130 

block  contains  60  RECORDS 

095970 

12140 

RECORD  contains  90 

characters 

C98970 

6-287 


I 


12150 

LABEL  HECOROS  ARE  OMITTED 

C98970 

12160 

DATA  HELOHOS  are  HEC-2. 

C9e970 

12170 

01 

REC-2  SrNC 

PICTURE 

M50}. 

C 98970 

13100 

FU 

FILE-3 

C98970 

13110 

C9R970 

13120 

HECORUIWO  MODE  IS  F 

C98970 

13130 

BLOCK  CONTAINS  60  RECORDS 

C98970 

13U0 

RECORD  CONTAINS  50 

characters 

C98970 

13150 

LABEL  RLCOROS  ARE  OMITTED 

C 98970 

13160 

DATA  RECORDS  ARE  REC-3. 

C90970 

13170 

01 

REC-3  STNC 

PICTURE 

XESOl. 

C98970 

30000 

HOHKING-STOX.'oe  section. 

098970 

30010 

77 

norm-uma-num  computational 

PICTURE 

S9t81V9. 

C90970 

30020 

77 

HH-RFH-HE-N  computational 

PICIUHE 

S9C01V9. 

C90970 

30030 

77 

mh-hep-me-n  computational 

PICTURE 

S9CS1V9. 

098970 

30UO0 

77 

NREH-PE-r  computational 

picture 

S9t01V9. 

C 98970 

30050 

77 

NREP-HP-O  computational  PICTURE 

S9C81V9. 

C90970 

30060 

77 

rAJV-RLC-1  COMPUTATIONAL 

PICTURE 

S9C01  value  2ERO. 

C90970 

30070 

77 

NUM.RLC«<.  computational 

PICTURE 

S9C01  VALUE  2ERO. 

C 98970 

30000 

77 

NUM-REC-3  computational  picture 

S9t8)  VALUE  zero. 

C90970 

30090 

77 

CNT  computational 

PICTURE 

S9ES1. 

C90970 

30100 

77 

mh-ma-numa  computational 

PICTURE 

S9t81V9. 

C90970 

30110 

77 

tsF  computational 

PICTURE 

S999  value  <6A. 

C98970 

30120 

77 

CUR  I so 

picture 

» value  space. 

C 98970 

30130 

77 

CURID 

PICTURE 

XX  value  space. 

C98970 

30100 

77 

CURkUC 

PICTURE 

XC51  VALUE  SPACE. 

C98970 

30150 

77 

ONE 

PICTURE 

X value  III. 

C98970 

30160 

77 

TMO 

PICTURE 

X VALUE  12 I. 

C9S970 

30170 

77 

THRlE 

picture 

X VALUE  131. 

C9B970 

30180 

77 

temh-num 

PICTURE 

9CS1. 

C 98970 

30200 

01 

OATA-I  S'NC. 

C9S970 

30^10 

U5  HMC-I 

PICTURE 

XXX. 

C90970 

30220 

U5  filler 

PICTURE 

X. 

C98970 

30230 

05  numa 

PICTURE 

9CT1V9. 

C9B970 

30200 

05  filler 

PICTURE 

X. 

C90970 

30250 

05  MREP-HP 

picture 

9C7  3V9. 

C9R970 

30260 

05  FILlcR 

PICTURE 

X. 

C9R970 

30270 

05  NRLP-PE 

picture 

9tT3V9. 

C90970 

30300 

01 

OATA-2  5TNC. 

C90970 

303IO 

05  HMC-2 

picture 

XXX. 

C98970 

30320 

05  FILL'^R 

picture 

X. 

098970 

30330 

05  mm-ra 

PICTURE 

9tTlV9. 

C98970 

30300 

05  filler 

picture 

X. 

C96970 

30350 

05  VAR-Mh-MA 

picture 

9t73V9. 

C98970 

30360 

05  FILL'"* 

PICTURE 

Xt9l. 

C98970 

30000 

01 

NINE 

picture 

XC50J  VALUE 

C98970 

30010 

• 99909<9099999W999999999999999999999999999099»99«  I . 

C989T0 

32170 

01 

M5-REC-2 . 

C98970 

32100 

05  I50-? 

PICTURE 

X. 

C98970 

32190 

05  eHP-IO-2 

PICTURE 

XX. 

C98970 

32200 

05  filler 

PICTURE 

Xt9J  VALUE  SPACE. 

C9B970 

32210 

05  RUC-l\EC-2 

PICTURE 

Xt5J» 

C9B970 

32220 

05  FILLEH 

PICTURE 

xts)  VALUE  SPACE. 

C98970 

32230 

05  N2 

PICTURE 

9C73Vf. 

C9B970 

32200 

05  FILlEH 

PICTURE 

X value  space. 

C98970 

32250 

05  C 

picture 

9C73V9. 

C9B970 

32260 

05  filler 

picture 

xc 11 ] value 

C98970 

32270 

<1. 

C9B970 

33170 

01 

mS-REC-j 

C9B970 

33100 

05  I5U-3 

PICTUHE 

X. 

C9B970 

33190 

05  ORP-.D-3 

picture 

XX. 

C98970 

33200 

U5  FILLER 

PICTURE 

X value  space. 

C9B970 

33210 

U5  mh-cma 

picture 

9I7JV9. 

C9B970 

33220 

05  filler 

PICTURE 

X VALUE  SPACE. 

C98970 

33230 

05  NI 

PICTURE 

9C7JV9. 

C98978 

33200 

05  filler 

PICTURE 

X VALUE  SPACE. 

090970 

33250 

05  NORM-UMA 

picture 

9C73V9. 

C98970 

33260 

05  filler 

PICTURE 

X VALUE  space. 

C98970 

33270 

05  mh-rEP-PE 

PICTURE 

9C71V9. 

C98970 

33200 

05  FILLER 

PICTURE 

X VALUE  SPACE. 

C98970 

33290 

05  MN-hEPrMP 

picture 

9t7JV9. 

C98970 

33300 

05  FILLi:i< 

PICTURE 

XX  VALUE  1 •!. 

C98970 

50000 

POOCEnUHE  UIVISION, 

C9R970 

50010 

OPEN  IMP'JT  IN-FILE-1# 

C98970 

50020 

OUlPUT  FILE-2< 

C98970 

50030 

FILE-3. 

C98970 

50050 

perform  Reset-1. 

C98970 

50060 

PERFORM  ReSLT-2. 

C98970 

50100 

0E«O-O«fA>IN. 

C98970 

50110 

REAU  IN-filE-1#  AT  END  00  TO  CLOSC^ATA. 

C98970 

50111 

IF  ISO  IS  EOUAL  TO  I9I  GO  TO  CLOSE-OATA. 

C9O970 

50115 

ADD  1 TO  NUM-REC-1. 

C90970 

50120 

IF  ISO  IS  EUUAL  TO  CURISO  00  TO  TEST-OMP-ID. 

C98970 

50130 

IF  CUR  150  15  EOUAL  TO  SPACE 

098970 

50190 

MOVE  150  TO  CUM  ISO 

090970 

50150 

00  TO  TE5T-0RP-I0, 

C90970 

50160 

00  TO  NlV-OHOUP. 

r 


50200  TEST-GRP-ll>. 

50210  IF  GRP-IO  is  equal  TO  CIWID  00  TO  TCST>«UC» 

50220  IF  CUKIU  IS  EOUAL  TO  SPACE 

50230  MOVE  6HP-I0  TO  CURIO 

502>t0  GO  TO  TEST-WUCi 

50250  60  TO  NLN-GKOUP. 

50300  TEST-MUC* 

50310  IF  WUC  IS  EOUAL  TO  CUHWUC  60  TO  TEST>tD> 

50320  IF  CUHWUC  IS  EOUAL  TO  SPACE 

50330  MOVE  WUC  TO  CURWUC 

503<t0  GO  TO  TEST-IO. 

50350  GO  10  NLW-WUC. 

50«0a  TEST-IO. 

50«10  IF  00  IS  EOUAL  TO  ONE  HOVE  OATA-IN  TO  DATA-1 

SaH20  GO  TO  REAO-OATA-IN. 

S0«30  IF  JC  IS  EOUAL  TO  TWO  HOVE  OATA-IN  TO  OATa-2 

50A40  60  TO  TEST-HMC. 

SOASO  IF  00  IS  EOUAL  TO  THREE 

SOAGO  compute  NORM-UMA-NUM  > NORH-UHA-NUH  < N2  • NORN-MA 

50AT0  60  TO  MEAO-OATA-IN. 

50A80  OISPLAY  . BAO  lU  1 00  UPON  CONSOLE 

S0A9U  GO  TO  CLOSE -FILES. 

S050II  TEST-HMi,. 

suniu  IT  itML-l  IS  NOT  rullAL  TO  l«MC-t  60  TO  NKAO^ATA'IN. 

50520  coMpuit  am-ma-numa  > mh-ma-niiha  < mh-ha  • numa> 

50530  AOO  NUMA  TO  Nl. 

S05Aa  AOO  NUMa  to  N2. 

50550  COMPUTE  C > C < MH-MA  • NUMA. 

50560  COMPUTE  MH-HEP-PE-N  > HM-ReP-PC-N  < MH-HA  • NREP-PC. 


CtSOTO 
coaoTO 
coaoTO 
coaoTO 
coaoTO 
coaoTO 
coaoTo 
coaoTo 
coaoTO 
coaoTo 
coao*! 
coao  A 
coaoTO 
coaoTo 
coaoTo 
coaoTo 
coaoTo 
coaoTO 
coaoTo 
coaoTO 
coaoTo 
coaoTO 
coaoTO 
coaoTO 
eoaoTA 
coaoTo 
coaoTo 
coaoTo 
coaoTo 
coaoTo 


505T0  compute  Mh-HEP-HP-N  > MH-REP-HP-N  < MH-MA  • NREP-HR. 

50500  AOO  NHtP  -PE  TO  NREP-PE-0. 

SnhOO  ADO  NHLM-HP  to  NRLP-MP-U. 

SlIliOO  * 

50r>00  GO  TO  KLAQ-UATA-IN. 

51000  NEW-kUC. 

51010  MOVE  CUM  Iso  TO  lSO-2. 

51020  MOVE  EUnIO  TO  6RP-I0-2. 

51025  MOVE  CUh«UC  TO  WUC-HEC-2. 

51030  WRITE  HEC-2  FROM  wS-REC-2. 

510A0  AOO  1 TO  NtlM-REC-2. 

51050  PERAOH'I  .-leSET-l. 

51060  MOVE  wllE  TO  CURWUC. 

51U00  GO  TO  TEST-10. 

51100  NEW-GROuP. 

51110  IF  Nl  IS  EOUAL  TO  2ER0  OISPLAT  1 Nl  IS  ZERO  t CURVUC  CURIO 

51120  UPON  CONSOLE  60  TO  CLOSE-PILES. 

51130  COMPUTE  “H-UMA  > MH-MA-NUMA  / Nl . 

5I1A0  COMPUTE  iVORM-UMA  > NORM-UMA-NUM  / Nl. 

51150  IF  NREP-’E-O  IS  EOUAe  TO  ZERO  MOVE  ZERO  TO  MH-RER-PC 

51160  Go  10  NG-1. 

51170  COMPUTE  Mh-KTP-PE  > MH-KEP-PE-N  / NRtP-PE-O. 

hi  ITS  NG-l. 

hlllio  IF  NPEi--»n.u  IS  FuliAE  10  ZERO  MOVE  ZERO  TO  MH-RCR-HR 

blluo  Ou  in  Nu-2. 

51200  COMPUTE  Mll-KEP-MP  > HH-KEP-HP-N  / NREP-HP-D. 

512115  NG-2. 

51210  MOVE  tUHlSO  TO  lSO-3. 

51220  MOVE  EllHlI)  TO  GRP-ln-3. 

51230  kRIlE  Kl;-3  from  WS-REC-3. 

51200  AOn  1 To  N()M-REE-3. 

51250  PEPPOM».  NESET-2. 

51260  MOVE  CUP.SO  TO  ISO-2. 

51270  MOVE  CUk:o  TO  GRP-IO-2. 

51275  MOVE  CUHWUC  TO  WUC-REC-2. 

51280  WRITE  KeC-2  FROM  •S-REC-2. 

51205  PERFOKP  HESET-1. 

51290  AOO  I TO  NUM-RCC-2. 

51360  NEW-GROUP-ENO.  EXIT. 

51365  NEW-GROUP-CUNTINUE. 

51370  MOVE  wUe  to  CURWUC.  MOVE  GRP-Io  TO  CURIO. 

51380  MOVE  ISO  TO  CURISO. 

51390  GO  TO  TeST-IO. 

52000  CLOSE-OA'^A. 

52010  perform  NeW-GROUP  thru  NE«-OROUP-END> 

52100  MOVE  NUM-REC-1  TO  TEMP-NUM, 

52110  OISPLAT  ; NO.  RECS  FILE  I TEMP-NOH  UPON  CONSOLE. 

52120  MOVE  NUh  'REC-2  TO  TEMP-NUM, 

52130  DISPLAY  ! NO.  RECS  FILE  2 I TEMP-NUM  UPON  CONSOLE. 

52190  MOVL  NUM-HFC-3  TO  TEMP-NUM, 

52150  OISPLAY  ; NO.  HeCS  FILE  3 I TEMP-NUM  UPOM  CONSOLE. 

52200  Close-piles. 

52210  perform  ninl-fIll  thru  eno-nf. 

5222U  CLOSE  IN-FIEE-I> 

52230  FUe-2> 

52290  FILE-3  WITH  LOCK. 

162250  OISPLAT  1 €0J  9697  I UPON  CONSOLE, 

52290  GORACK. 


C989T0 
C989T0 
r989TA 
CoaoTA 
C9a9TA 
C989T0 
C989T0 
C989T0 
C989T0 
C989T0 
C989T0 
C989T0 
C989T0 
C989T0 
C969T0 
C989T0 
C989ro 
C989T0 
C98970 
C969T0 
C98970 
C98970 
C989TA 
COaOTO 
C9a9TA 
C989T0 
C989T0 
C989TA 
C989T0 
C989T0 
C989T0 
C989T0 
C9897!> 
C989T0 
C989T0 
C989T0 
C989T0 
C989T0 
C989T0 
C989T0 
C989T0 
C989T0 
C98970 
C98970 
C98970 
C989T0 
C989T0 
698970 
€98970 
C989T0 
C989T0 
096978 
C98970 
C98970 
C98970 
C989Tn 
C98970 
C 98970 


3 
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4 


i 
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6-289 


53U00 

RESET-I. 

C98970 

53U10 

MOVE 

ZEKO 

TO 

N2. 

C98970 

53U20 

MOVE 

zeho 

TO 

C. 

C98970 

53100 

reset-2. 

C98970 

53110 

. move 

ZEHO 

TO 

Nl. 

C98970 

53120 

hove 

ZEHO 

TO 

NORM-UMA-NUM. 

C98970 

53130 

MOVE 

ZEHO 

TO 

MH-MA-NUM*. 

C98970 

531*0 

MOVE 

ZEHO 

TO 

mh-rep-pe-n. 

C98970 

53150 

MOVE 

ZEHO 

TO 

MH-REP-HP-N. 

C98970 

53160 

MOVE 

ZEHO 

TO 

NREP-PE-0. 

C98970 

53170 

MOVE 

ZEHO 

TO 

NREP-HP-0. 

C9B970 

53200  NlNE-FlLLt 
53300  MF-2. 

53310  COMPUTt  CNT  > NUH-REC-2  - NOM-REC-2  / BP  • BP. 

53320  IF  CNT  IS  EQUAL  TO  2EH0  SO  TO  NP'O. 

53330  NF-*, 

533*0  *RITE  RLC-2  FROM  NINE. 

53350  *00  1 TO  CNT. 

53360  IF  CNT  IS  LESS  THAN  BF  60  TO  NF-*. 

53*00  NF-3. 

53*10  COMPOTE  LNT  > NUM-REC-3  - NOM-REC-3  / BF  • BF. 

53*20  IF  CNT  1~.  EQUAL  TO  ZERO  OO  TO  ENO-IF. 

53*30  NF-h. 

53**0  WRITE  REC-3  FROM  NINE. 

53*50  *00  1 TL  CNT. 

53*60  IF  CNT  IS  LESS  THAN  RF  60  TO  NF>S. 

53*90  ENu-nF.  Exit. 

/*  PLACE  COIIOL  SOURCE  BEFORE  THIS  CARO 

//LHG.TF61N  OU  *.SP*CC>CCTLtCl>lll 
/*  PLACE  TF6  OAT*  BEFORE  THIS  CARO 

//TPR.TU12  00  01SP>C0L0.KEEP3.V0L>SER>«F1.UNIT>TAF1 

//TPR.TU23  OU  01SP>COLO<PASSl 

//TPR.TU2*  OU  UlSP>COLO<P*SSl 

//TPN.TPHIN  DO  ••SPACEMTHK.tltllJ 
T/P  TU12  1010050Z050 

T/P  TU23  1010053Z050 

T/P  TU2*  1010050Z050 


C 90970 
C9B9T0 
C9S9T0 
C9B9T0 
C9B9T0 
C9S9T0 
C9B970 
C9B970 
C9B9T0 
C9B970 
C9B970 
C9B970 
090970 
C90970 
C 90970 
C 90970 

1**0  CDS 

T12 


/• 


place  T/P  CONTROL  CAROS  BEFORE  THIS  CARO 


6.15.10  VARIANCE  OF  WUC  SET 


//C9a9T6  EXEC 
//CHC.TU12 
// 

// 

//CH0.T023 

//CHO.TUZ* 

//CH0.T025 


PVbSSL . 1 1 HE>05>  ACC  T303S323007 

OU  0l5P>C>P*SS).UNtT>(T«Fl»l»0CFeR)«DSN>*A.9B97«6«>  .CT12  1 
VOL>SER>t*Fl.**Fl,0*Fl,C*Fl.0*Fi»e*Fl»F*Fl»B*Fl»H*Fl»  CT12  2 
ITH.J*F1.K*F1.L*F1.M*F1,N*F1»0*F1.P»F»»0*F1,R»F1,S*F1  J T12  3 


OU  USN>*P.9a9T*6S>0ISP>C0L0>P*SS) 

OU  OSN>*P.9a97*66iOISPXOLOtPASS) 

OU  OSN>*P.9a9T*6T>SP*CE>tCYLtt009»eeiJl 


023-IN 

02*-lN 

025-OUT 


//CHGb 

INPUT  DU  •.SP*CE>CCrLitl>l)) 

1**0  COS 

OOUOO 

COMJINE  compile 

B.  BAnB 

C9B9T0 

oiuoo 

identification  division. 

C9B9T0 

OlUlU 

PRObH*M-IU.  C98V7 

C9B9T0 

01U20 

AUTHOR.  A.  J.  eOWKEH. 

C9B9T0 

01U30 

installation,  general  OTNAMICS/CONVAIR. 

C9B9T0 

01U90 

OATE-NRiTTEN.  27  ULT  72. 

C9B9T0 

01U50 

remarks. 

C9B9T0 

U1U60 

TASK  VlI-6 

C9B9T0 

01U70 

L ompute  pass  no 

2. 

C9B970 

02U00 

envihonkent  division. 

C9B9T0 

U2U10 

conficuhatiun  section. 

C9B9T0 

02U20 

SOuHCE-LOMPuTER.  IHM.360. 

C9B9T0 

02U30 

object-computer.  inM-360. 

C9B970 

02100 

input-output  section. 

C989T0 

02110 

file-conthol. 

C9B9T0 

02120 

select  in-file-1 

ASSIBN  to  UT-S-TUlt 

C9B970 

02130 

RESL*VE  1 alternate 

ARE*. 

C9B9T0 

02140 

select  FlLE-2 

ASSIBN  TO  UT-S-TUH 

C9B970 

02150 

reserve  1 alternate 

AREA. 

C9B9T0 

02160 

select  FIlE-3 

ASSIBN  TO  UT-S-TU«« 

C9B9T0 

02170 

RESERVE  1 alternate 

AREA. 

C9B9T0 

02180 

SELECT  OUT-OAT A-FILE 

ASSIBN  TO  UT-S-TUIB 

C9B970 

0219U 

RESERVE  1 alternate 

AREA. 

C989T0 

10000 

OAT*  DIVISION. 

C98970 

10010 

FILE  section. 

C9S970 

11100 

FO  IN-FILE-1 

C 96970 

6-290 


'J’ 


11110 

C989T0 

11120 

RCCOPOIN'*  MODE  IS  r 

C969T0 

1113U 

BLOCK  contains  60  RECORDS 

C969Tn 

iimo 

RECORD  CONTAINS  50 

characters 

C989T0 

11150 

larll  klcords  are  omitted 

C989T0 

11160 

data  HLcOiins  ARE  IN-REC-I. 

C9R9T0 

IIITO 

01 

IN-kTC-1  SYNC. 

CPRQTO 

lllHO 

US  Iso 

PICIUME  X. 

C9R9Tn 

11164 

05  GKR-IU 

PICTURE  XX. 

C9e9Tn 

11185 

05  filler 

PICTURE  X. 

C989T0 

11186 

05  »Ut-IN 

PICTURE  XtSJ. 

C989T0 

11 187 

05  filler 

PICTURE  X. 

C969T6 

1119U 

05  M 

PICTURE  X. 

C989T0 

11200 

05  FILLER 

PICTURE  X. 

C989T0 

11210 

OS  MUC 

PICTURE  XtSl* 

C969T0 

11220 

05  filler 

PICTURE  X. 

C969T0 

11^30 

05  DATA-IN. 

C989T0 

11249 

10  -iller 

picture  Xt6]. 

C989T0 

11250 

10  NORM-MA 

PICTURE  OtTiV*. 

C989T0 

11280 

10  filler 

picture  X. 

C989T0 

11270 

10  i/AR-NORN-MA 

picture  OCTJVO. 

C989T0 

11280 

10  “FILLER 

PICTURE  Xt9]. 

C989T0 

11290 

05  filler 

picture  XX. 

C969T0 

12100 

FO 

FlLt-2 

C989T0 

12110 

C989T0 

12120 

RECURUINQ  NUDE  IS  F 

C989T0 

12130 

BLOCK  CONTAINS  60  RECORDS 

C969T0 

12140 

RECURD  contains  so 

characters 

C989T0 

12150 

label  records  are  omitted 

C989T0 

12160 

data  rlcords  are  REC-2. 

C989T0 

12170 

01 

REC-2  SitK 

picture  xtsol. 

C989T0 

13100 

FU 

FILL-0 

C969T0 

13110 

C969T0 

13120 

RECbRulUG  mode  15  F 

C9B9T0 

13130 

block  CCNTAINS  60  RECORDS 

C969T0 

13140 

RECORD  CONTAINS  50 

CHARACTERS 

C969T0 

43150 

label  RLCORDS  ARE  ONITTED 

C989T0 

13160 

DATA  RECORDS  ARE  REC-3. 

C989T0 

13170 

01 

REC-3  St'TC 

picture  XCSOI. 

C989T0 

14U0U 

FO 

out-data -file 

C989T0 

14U10 

RECORD |I<C  MODE  IS  F 

C989T0 

14U20 

BLOCK  CLTTAINS  20  RECORDS 

C969T0 

14030 

RECORD  I.1NTA1NS  100 

characters 

C969T0 

14U«i0 

LABEL  RLCORDS  ARE  OMITTED 

C989T0 

14U50 

DATA  RLCORDS  ARL  OUT-OATA-REC. 

C989T0 

14U60 

01 

OUT-OATA  -REC  STNC 

PICTURE  XtlOO). 

C969T0 

30U00 

MOMKlNG-Sroh^GE  section* 

C969T0 

30010 

77 

norm-uma-ndm  computational 

PICTURE  S9t6]V9. 

C969T0 

30U20 

77 

MH-kEP-FE-N  computational 

picture  S910JV9. 

C9e9T0 

CJU30 

77 

MH-hEP-fo-h  computational 

PICTURE  S9t«JV9. 

C969T0 

30040 

77 

NREP-PE-0  computational 

picture  S9C81V9. 

C969T0 

30o:<o 

77 

NREP-MP-0  computational 

picture  S910JV9. 

C969T0 

30060 

77 

lAJM-BtC-l  computational 

PICTURE  591 BJ  VALUE  ZERO. 

C969T0 

30070 

77 

IAJM.PlC-2  computational 

PICTURE  S9iej  VALUE  ZERO, 

C969T0 

30060 

77 

IIUM-RtC-3  computational  PICTURE  S9183  VALUE  ZERO. 

C969T0 

JCU90 

77 

CNt  computational 

PICTURE  5916). 

C969Tn 

30100 

77 

MH-MA-NU'^A  COMPUTATIONAL 

picture  S9I6)V9. 

C989T0 

30110 

77 

bF  computational 

picture  5999  value  <60. 

C969T0 

30120 

77 

CUR ISO 

picture  X VALUE  SPACE. 

C9B9T0 

30130 

77 

CURIO 

picture  XX  VALUE  SPACE. 

C969Tn 

30140 

77 

CURdUC 

picture  XCS)  value  SPACE. 

C969T0 

30150 

77 

ONE 

PICTURE  X value  111. 

C969T0 

30160 

77 

TNO 

PICTURE  X value  IZI. 

C969T0 

30170 

77 

THRlE 

picture  X VALUE  ISI. 

C9B9Tn 

30180 

77 

lEMp-NU" 

picture  916). 

C969T0 

30200 

01 

OATA-1  SYNC. 

C969T0 

30210 

05  HMC-1 

picture  XXX. 

C969T0 

30220 

05  FILLER 

picture  X. 

C969T0 

30230 

05  NUWo 

picture  9CT)V9. 

C969T0 

30240 

05  filler 

picture  X. 

C969T0 

30250 

05  NRLP-MP 

picture  9tT)V9. 

C969T0 

30260 

05  FILLER 

picture  X. 

C9B9T6 

30270 

05  NRLP-Pe 

picture  9CT)V9. 

C969T0 

30300 

01 

OAtA-2  sYNC. 

C969T0 

30310 

05  MMC-2 

picture  XXX. 

C969T0 

30320 

05  filler 

picture  X. 

C969T0 

30330 

03  MH-M* 

picture  9CT)V*. 

C969T0 

30340 

05  filler 

picture  X. 

C969T0 

30350 

05  var-mh-ma 

picture  9CTJV9. 

C989T0 

30360 

05  filler 

picture  Xl9). 

C9R9T0 

32170 

01 

VS-RTL-. • 

C969Tn 

jotno 

un  leu.* 

picriNtr  X. 

6-291 


32190 

os 

chp-:d-2 

PICTURE 

XX. 

C98970 

32200 

os 

filler 

PICTURE 

XC9J  value  SPACE. 

C98970 

32210 

os 

bUC-REC-2 

PICTURE 

xtsJ. 

C96970 

32220 

os 

filler 

PICTURE 

XCSJ  value  space. 

C98970 

3223U 

os 

N2 

PICTURE 

9IT1V9. 

C98970 

32240 

os 

filler 

PICTURE 

X VALUE  SPACE. 

C96970 

32250 

Ob 

c 

PICTURE 

9t  T 1V9. 

C98970 

32260 

OS 

filler 

PICTURE 

xciii  value 

C96970 

32270 

*t. 

C98970 

33170 

01 

«S-I 

REL-b 

C98970 

33160 

OS 

ISO-3 

PICTURE 

X. 

C96970 

33190 

OS 

6NP-.0-3 

picture 

XX. 

C96970 

33200 

OS 

FILLER 

PICTURE 

X VALUE  SPACE. 

C98970 

33210 

OS 

ph-uma 

PICTURE 

9t71V9. 

C96970 

33220 

Ob 

filler 

PICTURE 

X VALUE  SPACE. 

C96970 

33230 

OS 

N1 

picture 

9tTlV9. 

C96970 

3324U 

US 

filler 

PICTURE 

X VALUE  SPACE. 

C96970 

3325U 

OS 

NORm-UMA 

PICTURE 

9tTlV9. 

€96970 

33260 

OS 

F1LLC.R 

PICTURE 

X VALUE  SPACE. 

C96970 

33270 

OS 

pm-k:p-pe 

PICTURE 

MT1V9. 

C96970 

33260 

OS 

FILL'’R 

PICTURE 

X VALUE  SPACE. 

€96970 

33290 

OS 

PH-MEP-HP 

PICTURE  9CTJV9. 

C96970 

33300 

OS 

fillwR 

PICTURE 

XX  VALUE  I *i. 

C96970 

334  00 

01 

pacl-nuh  computational 

PICTURE 

S99  VALUE  ZERO. 

C96970 

33410 

01 

linls-phint  computational 

picture  S9C9J  value  2ER0. 

C90970 

3342U 

01 

XI 

computational 

picture 

S9{81V9. 

C90970 

33430 

01 

VAR 

•ph-liAa>o  computational 

PICTURE  S9tB)V9. 

C96970 

3344U 

01 

VAR 

-Hm-uMa  computational 

PICTURE 

S9C8)V9. 

C96970 

334SU 

01 

pACL*CNf  computational 

PICTURE 

S999  VALUE  <100. 

C9B970 

33460 

01 

A CgMpul ATIONAL 

picture 

S9CB)V9. 

C96970 

33470 

01 

B C0MPU1 «T10NAL 

picture  S9t6)V9. 

C96970 

33400 

01 

var 

-NORP-uMA-D  Computational  picture  sotoivs. 

C96970 

33500 

01 

VAP 

-norh-uma  computational 

PICTURE  S9C8JV9. 

C96970 

40UOO 

01 

NEW 

-PAOt-REC  SYNC. 

C96970 

40U10 

05 

filler 

PICTURE 

xcsoj  value 

C90970 

40U20 

:i 

RESULTS  OF  PROCESSINS  MAIN!. 

C98970 

40U30 

05 

filler 

picture 

XC90]  value 

C96970 

40U40 

'tenancl  manhour  and  norm  data  pase  i. 

C98970 

40U5U 

05 

PA6E*N0*RPT 

PICTURE 

29. 

C96970 

40U60 

05 

FILLER 

PICTURE 

xc  8 ] VALUE 

C96970 

40U70 

1 «t. 

C96970 

40100 

01 

TITlE-1  sync. 

C96970 

40110 

Ob 

filler 

picture 

XtSOl  VALUE 

C96970 

40120 

>0  «uc  aircraft 

MEAN  variance 

1. 

C96970 

40130 

OS 

filler 

picture 

XCSOJ  value 

C96970 

40140 

IMEAN  VARIANCE  MEAN  MEAN 

FI. 

C96970 

40200 

01 

TITlE-Z  STNC. 

C96970 

40210 

OS 

FILLER 

PICTURE  XT  SOI  VALUE 

C98970 

40220 

; SRoup  suesET 

MH/UMA  MH/uMA 

Nl. 

C96970 

40230 

05 

filler 

PICTURE 

XCSOJ  value 

C96970 

40240 

IORM/UMA  NORM/UMA  CMM/REPJRE  IMH/ReRJHPO 

FI. 

C96970 

40300 

01 

oata-out  stnc. 

C96970 

40310 

OS 

FILLER 

picture 

XX  VALUE  SPACE. 

C90970 

40320 

OS 

WUC-OUT 

picture 

XCSJ. 

C96970 

40330 

OS 

filler 

PICIURE 

XXX  VALUE  SPACE. 

C96970 

40340 

OS 

A-C-SU8-SCT 

picture 

XCTJ. 

€96970 

40350 

OS 

filler 

picture 

XCSJ  VALUE  SPACE. 

€96970 

4036U 

OS 

Mm-uMA*HPT 

PICTURE 

ZCBJ.9. 

C96970 

40370 

OS 

filler 

PICTURE 

XCSJ  VALUE  SPACE. 

€98970 

40360 

OS 

VAR«MH«UMA»HPr 

PICTURE 

118J.9. 

€98970 

40390 

OS 

filler 

PICTURE 

XCSJ  value  space. 

€98970 

4040U 

OS 

noh^-uma^rpt 

PICTURE 

2CBJ.9. 

€98970 

40410 

OS 

filler 

PICTURE 

XCSJ  VALUE  SPACE. 

€98970 

4042U 

OS 

VAR«r40RM*UMA«RPT 

PICTURE 

ZCBJ.9. 

€98970 

40430 

05 

filler 

PICTURE 

XCSJ  VALUE  SPACE. 

€98970 

4044U 

05 

mh-hep-pe-rpt 

PICTURE 

ZCBJ.9. 

€98970 

40450 

OS 

FILLER 

picture 

XCSJ  VALUE  SPACE. 

€98970 

40460 

OS 

MH-hEP*»IP-RPT 

PICTURE 

ZCBJ.9. 

€96970 

40470 

OS 

filler 

picture 

XCSJ  VALUE 

€98970 

40480 

. 1 

€98970 

50UOO 

PROCEDUHE  DlVt5lON. 

€98970 

50010 

OPEN  INPUT  IN-FIlE-1. 

€98970 

50U20 

FILc-2. 

€98970 

50U30 

FILl-S.  OUTPUT  OUT-OATA' 

-FILE. 

€98970 

50U50 

PEPPORP  RE5ET-1. 

€98970 

50u60 

PERFORM  RESET-2. 

€98970. 

50100 

REao>data-in. 

€98970 

50110 

read  IN-FIlE-I>  AT  END  SO  TO  CLOSE-OATA. 

€98970 

bOlIl 

IF 

ISO  IS  EQUAL  TO  191  SO  TO  CLOSE-OATA. 

€98970 

50116 

ADD 

I TO  NUM-REC-I. 

€98970 

50120 

IF 

ISO  IS  EQUAL  TO  CURISO  SO  TO  TEST-SRP-IO. 

€98970 

50130 

IF 

LURISO  is  equal  TO  SPACE 

€98970 

5014U 

MOVE  ISO  TO  CURISO 

€98970 

50150 

SO  TO  TEST-SRP-IO. 

€98970 
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50160 

50200 

50210 

50221) 

50230 

50260 

50250 

50300 

50310 

50320 

50330 

50360 

50350 

50600 

50605 

50610 

50620 

50630 

50660 

50650 

50655 

50660 

50665 

50666 

50667 
50670 
50500 
50510 
50515 
50520 
50530 
50640 
51U00 
51050 
51060 
51090 
51100 
51110 
51120 
51160 
51150 
51160 
51170 
51100 
51140 
51200 
51210 
51220 
51230 
51260 
51250 
51255 
51260 
51270 
51370 
51300 
51340 
52000 
52010 
52100 
52110 
52120 
52130 
52160 
52150 
52160 
52170 
52180 
52140 
52200 
52220 
52230 
52235 
52260 
52250 
52290 
53000 
53010 
53020 
53060 
53050 


00  TO  NtN>0H0UP< 

TES1-CSF-10. 

IF  OFP'IO  IS  EQUAL  TO  CU810  80  TO  TEST'MUC* 

IF  cUHll)  IS  EOUAL  TO  SPACE 

MOVE  GHP.ID  TO  CUPID 
60  TO  TEST-»0C. 

60  TO  Nc6>6M0UP. 

TEST-I2UC. 

IF  6UC  IS  EOUAL  TO  CURVUC  60  TO  TEST-tO. 

IF  CU««UC  IS  EOUAL  TO  SPACE 
MOVE  «UC  TO  CUHVUC 
60  TO  TEST-10. 

60  TO  f)tW-«UC. 

TEST-10. 

MOVL  vul-in  to  AUC-OUT. 

IF  JO  IS  equal  to  one  move  OATA-IN  TO  DATA-1 
60  TO  REAO-OATA-IN. 

IF  JO  IS  EOUAL  TO  TOO  MOVE  OATA-IN  TO  OATA-2 
00  TO  TEST-HMC. 

IF  N2  IS  equal  to  2ER0  60  TO  READ-DATA-IN. 

COMPUTE  - > C / N2  - MM-UMA. 

compute  VAR-MH-UmA-0  > VAR-Mh-UMA-D  < tm  • A • a < xil. 
COMPUTE  VAR-N0RM.UMA>0  > VAR-NORM-UMA-O  < 

N2  * (VAR-NORM-MA  < INORM-MA  • NORM-UMA]  • 
CNORM-MA  • NORM-UMA)). 

60  ''0  REAO-OATA-IN. 

TEST-MMt. 

IF  HMc-1  is  not  equal  to  HMC-2  60  TO  READ-DATA-IN. 

IF  N2  IS  EOUAL  TO  ZERO  60  TO  REAO-OATA-IN. 

COMPUTE  P > MH-MA  - C / N2, 

COMPUTE  XI  > XI  < NUMA  • tVAR-NH-MA  < R • 81. 

60  TO  HE>D-DATA-IN. 


C98470 

698970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C90970 

C98970 

C90970 

C90970 

C909T0 

C90970 

C90970 

C90970 

C98970 

698970 

C98970 

C909T0 

C98970 

C909T0 

C90970 

C90970 

C90970 

C909T0 

C98970 

C90970 

C98970 

C90970 

C90970 

C909T0 


NEx-HUC. 

PERT  OHM  UeSLT-I. 

MOVE  «UL  TO  CURWUC. 

60  TO  TtST-IO. 

NE«-6R0UP. 

COMPUTE  -AR-MH-UMA  > VAR-Mh-UMA-0  / NI. 

COMPUTE  VAR-HORM-UMA  > VAR-NORM-UMA-0  / Nl. 

IF  CUHISO  IS  equal  to  one  move  1 ISO  t TO  A-C-SUB-SCT 
ELSE  MOVE  TNON-tSOt  TO  A-C-SUB-SET. 
MOVL  MH-ilMA  TO  MH-UMA-RPT. 

MOVL  vam-mh-uma  to  var-mh-oma-rpt. 

MOVE  NOhM-uMA  to  norm-uma-rpt. 

MOVc.  VAH -NORM-UMA  TO  VAR-NQRM-UMA-RPT. 

MOVE  MM-4EP-PE  TO  MH-REP-PE-SPT . 

MOVE  MM-PLP-HP  to  MH-REP-HP-RPT. 

IF  PAOE-CNT  IS  6REATCR  THAN  60  PERFORM  NEW-PAQE. 
xRITt  OU’-OATA-HEC  FROM  OATA-OuT. 

ADD  1 TO  PA6C-CNT. 

*00  1 TO  LIMES-PRINT. 

NEv-GROUP-ti.n. 

pert  OHM  4ESET-1. 
perform  Reset-2. 

MOVE  XUL  TO  CUHVUC.  MOVE  ORP-IO  TO  CURIO. 

move  iso  to  curiso. 

60  TO  TeST-IO. 

CLOSE-OaTa. 

PERFORM  .)E«-GROuP. 

MOVE  NI)m-HEC-1  to  temp-num, 

DISPLAY  I NO.  REcS  FILE  S TEMP-NUM  UPON  CONSOLE. 

MOVE  num-hec-2  to  temp-num. 

DISPLAY  • NO.  RECS  FILE  2 I TEMP-NUM  UPON  CONSOLE. 

MOVE  NU.<-REC-3  TO  TEMP-NUM. 

display  I NO.  RECS  FILE  3 I TEMP-NUN  UPON  CONSOLE. 

MOVE  LIN-S-PRINI  TO  TEMP-NUM. 

DISPLAY  ■ TOTAL  lines  PRINTED  > I TEMP-NUM  UPON  CONSOLE. 
MOVE  PA6E-NUM  TO  temp-num. 

DISPLAY  . total  pages  printed  > I temp-num  upon  console. 
Close-files.  , 

CLOSE  IH-F1LE-1> 

FILE-2> 

out-oata-file« 

FILr-3  vith  lock. 

DISPLAY  ! EOJ  9897  I UPON  CONSOLE. 

60BACK. 

RESET-1. 

MOVE  ZERO  TO  XI. 

read  FlLE-2  INTO  MS-REC-2t  AT  ENO  60  TO  CLOSE-OATAa 
IF  lSO-2  IS  EOUAL  TO  191  60  TO  CL0SE-06T8. 

ADD  1 TO  NuM-REC-2. 
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SSlOO  RESCT-2a  C989TO 
S3110  MOVE  ZEHU  TO  VAR-MH-UMA-0.  C98970 
53120  MOVE  ZEHO  TO  VAH-NORH>UM«>0«  C989T0 
53130  read  FILF-3  INTO  HS-REC'S*  AT  CNO  50  TO  CLOSC-OATA.  C90970 
53150  IF  IS0>3  IS  EQUAL  TO  191  00  TO  CLOSC>OATA.  C90970 
53160  ADO  1 ru  NUM-REC-3.  C90970 
5S000  NEM-PAOLt  098978 
6SU10  ADO  1 TO  PAOE-NUM.  C90970 
SS020  MOVL  ZERO  TO  PA6C*CNT.  C90970 


SS030  MOVL  PAbC-NUM  TO  PA6E-N0-RPT. 

SS090  ADD  3 TO  LINES-PRINT. 

ssoso  vrite  out-data*hcc  from  NEW-PA0E>RCC« 

5SU60  WHITE  OU'i-DATA-HEC  FROM  TtTLE-l« 

55U70  WRITE  OU'-OATA-HEC  FROM  TlTLE-2. 

/•  PLACE  COUOL  SOUHCL  HFFORE  THIS  CARO 

//CHO.TFGIN  DU  *>SPACE>CCYL»l 1 • t 1} 

/•  PLACE  TFO  LATA  BEFORE  THIS  CARO 

//TPR.TU12  00  0ISP>C0L0<KEEP1>V0L>SCR>fP1>UN1T>TAF1 

//TPR.TUZb  DO  OISPHOLOtPASSl 

//TPR.TPRIN  DO  •iSPACEHTRKfCldll 

T/P  TU2S  199aiOCROOO 

/•  PLACE  T/P  CONTROL  CAROS  BEFORE  THIS  CARO 

//C9S97P  EXEC  C96U3N(TIME>02<ACCT>OSS32SOOT 
//CHB.TU25  00  OSN>«P. 9097967 » 01  SP>t  OLD  •DCLCTEl 

//CHO.fPRlM  00  •tSPACEXTRKtCltlll 

T/P  Tuts  '15981000000  - ' ^ 

/•-  PLACE  T/P  control  CAROS  BEFORE  THIS  CARO 


C98970 

C98970 

C98970 

C9S970 

C98970 

t«*0  COS 
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